* cus-edit.el (custom-browse-insert-prefix):

* emulation/edt.el (edt-x-emacs19-p): Use featurep 'xemacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 30bdbefd98e8dadf0537757bcffc23ea872d7b62..f8c4831ae600423fff72fbebeef7f187b2605973 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-28  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * cus-edit.el (custom-browse-insert-prefix):
+       * emulation/edt.el (edt-x-emacs19-p): Use featurep 'xemacs.
+
 2007-10-28  Juanma Barranquero  <lekktu@gmail.com>
 
        * server.el (server-process-filter): Fix typo in docstring.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 19098367d8fe36a8af1abc10b0b3cae7c54b42da..5e398d46ccf9d0f11a8362b018a74ffc11cd9779 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1713,7 +1713,7 @@ item in another window.\n\n"))
 (defun custom-browse-insert-prefix (prefix)
   "Insert PREFIX.  On XEmacs convert it to line graphics."
   ;; Fixme: do graphics.
-  (if nil ; (string-match "XEmacs" emacs-version)
+  (if nil ; (featurep 'xemacs)
       (progn
        (insert "*")
        (while (not (string-equal prefix ""))

diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index bff1a583586037fc27338fe27c23bd18469fa660..3ea7ebb5b121ecfba3b165894a6bcb8aaaa1d6b6 100644 (file)
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -325,7 +325,7 @@ This means that an edt-user.el file was found in the user's `load-path'.")
   "Non-nil if we are running GNU Emacs or XEmacs version 19, or higher.")
 
 (defconst edt-x-emacs19-p
-  (and edt-emacs19-p (string-match "XEmacs" emacs-version))
+  (and edt-emacs19-p (featurep 'xemacs))
   "Non-nil if we are running XEmacs version 19, or higher.")
 
 (defconst edt-gnu-emacs19-p (and edt-emacs19-p (not edt-x-emacs19-p))