# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1193593189 0
# Node ID c717580e78174a225ad6a55081192c3269626db1
# Parent  b9cad333d47da1358f4f086ee26e89d9c4766516
* cus-edit.el (custom-browse-insert-prefix):
* emulation/edt.el (edt-x-emacs19-p): Use featurep 'xemacs.

diff -r b9cad333d47d -r c717580e7817 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 28 15:17:08 2007 +0000
+++ b/lisp/ChangeLog	Sun Oct 28 17:39:49 2007 +0000
@@ -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 -r b9cad333d47d -r c717580e7817 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Sun Oct 28 15:17:08 2007 +0000
+++ b/lisp/cus-edit.el	Sun Oct 28 17:39:49 2007 +0000
@@ -1713,7 +1713,7 @@
 (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 -r b9cad333d47d -r c717580e7817 lisp/emulation/edt.el
--- a/lisp/emulation/edt.el	Sun Oct 28 15:17:08 2007 +0000
+++ b/lisp/emulation/edt.el	Sun Oct 28 17:39:49 2007 +0000
@@ -325,7 +325,7 @@
   "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))