From: tfheen <tfheen@8da78d58-1cd3-0310-bee5-d77bd1b3e8bf>
Date: Thu, 26 Sep 2002 10:24:22 +0000 (+0000)
Subject: not-for-host
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2e0c27cbba28df71f15aa4a35b6e35d4bb87b955;p=dotfiles

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 4f04c1e..16bd54b 100644
--- 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))