Mercurial > emacs
changeset 85724:c717580e7817
* cus-edit.el (custom-browse-insert-prefix):
* emulation/edt.el (edt-x-emacs19-p): Use featurep 'xemacs.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 28 Oct 2007 17:39:49 +0000 |
| parents | b9cad333d47d |
| children | e177256e1ca2 |
| files | lisp/ChangeLog lisp/cus-edit.el lisp/emulation/edt.el |
| diffstat | 3 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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 ""))
--- 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))