mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

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

Browse Source 
* emulation/edt.el (edt-x-emacs19-p): Use featurep 'xemacs.
This commit is contained in:
Dan Nicolaescu 2007-10-28 17:39:49 +00:00
parent c48254fbbf
commit a7f58f4be2
3 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

2
lisp/cus-edit.el
View File

@ -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 ""))

2
lisp/emulation/edt.el
View File

@ -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))