not-for-host

git-svn-id: file:///svn/tfheen/trunk/dotfiles@39 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf

diff --git a/emacs-standard b/emacs-standard
index 4f04c1e62654784f0900adf2249f8793e5d5812b..16bd54b81d51482db3eca7dde649af6f8957fdc2 100644 (file)
--- a/emacs-standard
+++ b/emacs-standard
@@ -1,6 +1,6 @@
 ;; -*- mode: emacs-lisp -*-
 
-;; $Id: emacs-standard,v 1.2 2002/09/26 08:12:15 tfheen Exp $
+;; $Id: emacs-standard,v 1.3 2002/09/26 10:24:22 tfheen Exp $
 (require 'cl)
 
 (defmacro cw/for-emacs-20 (&rest body)
@@ -21,6 +21,10 @@
               (string-match "Lucid" emacs-version))
      ,@body))
 
+(defmacro cw/not-for-host (host &rest body)
+  `(when (not (string-match ,host system-name))
+     ,@body))
+
 (defmacro cw/for-host (host &rest body)
   `(when (string-match ,host system-name)
      ,@body))