From: tfheen <tfheen@8da78d58-1cd3-0310-bee5-d77bd1b3e8bf>
Date: Tue, 28 Jun 2005 18:37:48 +0000 (+0000)
Subject: handle newer emacs too
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=db4f6a847f1dc975ef7cd2a39cdfcb817d9c049a;p=dotfiles

handle newer emacs too

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

diff --git a/emacs-standard b/emacs-standard
index 16bd54b..ccacc3d 100644
--- a/emacs-standard
+++ b/emacs-standard
@@ -8,10 +8,20 @@
      ,@body))
 
 (defmacro cw/for-emacs-21 (&rest body)
+  `(when (and (= emacs-major-version 21) 
+              (not (string-match "Lucid" emacs-version)))
+     ,@body))
+
+(defmacro cw/for-emacs-21-and-later (&rest body)
   `(when (and (>= emacs-major-version 21) 
               (not (string-match "Lucid" emacs-version)))
      ,@body))
 
+(defmacro cw/for-emacs-22 (&rest body)
+  `(when (and (= emacs-major-version 22) 
+              (not (string-match "Lucid" emacs-version)))
+     ,@body))
+
 (defmacro cw/for-emacs (&rest body)
   `(when (not (string-match "Lucid" emacs-version))
      ,@body))