I gotta admit, this is the first time I've seen xemacs-logo used to
determine if the running emacs is XEmacs or not. :-)
Of course, an added side benefit to this patch is that it makes Eshell
usable on SXEmacs.
John, would you like me to commit this to the XEmacs CVS repo?
eshell patch:
ChangeLog files diff command: cvs -q diff -U 0
Files affected: ChangeLog
Source files diff command: cvs -q diff -uN
Files affected: esh-util.el
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/eshell/ChangeLog,v
retrieving revision 1.21
diff -u -U0 -r1.21 ChangeLog
--- ChangeLog 29 Jun 2004 05:16:48 -0000 1.21
+++ ChangeLog 13 Jan 2005 22:14:27 -0000
@@ -0,0 +1,6 @@
+2005-01-14 Steve Youngs <steve(a)sxemacs.org>
+
+ * esh-util.el (eshell-under-xemacs-p): Do a featurep test for
+ `xemacs' or `sxemacs' instead of testing whether or not
+ `xemacs-logo' is bound.
+
Index: esh-util.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/eshell/esh-util.el,v
retrieving revision 1.2
diff -u -u -r1.2 esh-util.el
--- esh-util.el 29 Jun 2004 04:57:54 -0000 1.2
+++ esh-util.el 13 Jan 2005 22:14:15 -0000
@@ -129,7 +129,7 @@
(defsubst eshell-under-xemacs-p ()
"Return non-nil if we are running under XEmacs."
- (boundp 'xemacs-logo))
+ (or (featurep 'xemacs) (featurep 'sxemacs)))
(defsubst eshell-under-windows-p ()
"Return non-nil if we are running under MS-DOS/Windows."
--
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
| In space, |
| No one can hear you rip a stinky |
|------------------------------------<steve(a)sxemacs.org>---|
Show replies by date