Re: WorkShop Toolbar/Tools-Menu problem solved
Good spotting, Jason.
Jason R Mastaler <jason(a)4b.org> writes:
*** eserve.el~ Thu Apr 23 17:17:38 1998
--- eserve.el Thu Apr 23 17:18:06 1998
***************
*** 42,48 ****
(defvar running-xemacs nil "t if we're running XEmacs")
(defvar running-emacs nil "t if we're running GNU Emacs 19")
! (if (string-match
"^\\(19\\|20\\)\..*\\(XEmacs\\|Lucid\\)" emacs-version)
(setq running-xemacs t)
(setq running-emacs t))
--- 42,48 ----
(defvar running-xemacs nil "t if we're running XEmacs")
(defvar running-emacs nil "t if we're running GNU Emacs 19")
! (if (string-match
"^\\(19\\|20\\|21\\)\..*\\(XEmacs\\|Lucid\\)" emacs-version)
(setq running-xemacs t)
(setq running-emacs t))
This patch is going to fail when XEmacs 22 comes around. What's wrong
with merely:
(if (string-match "XEmacs\\|Lucid" emacs-version)
...
The symbol `running-xemacs' is already set by XEmacs, btw.
as Martin pointed out a few hours ago, using version numbers for
feature tests is slightly naughty.