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 16bd54b81d51482db3eca7dde649af6f8957fdc2..ccacc3d2ba323b1215c16a7b5e77d0018d8a11ec 100644 (file)
--- 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))