Mercurial > emacs

diff lisp/bookmark.el @ 84777:68033fec6867

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bookmark-xemacsp): Remove. (bookmark-make): Don't use bookmark-xemacsp, use (featurep 'xemacs) instead.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 22 Sep 2007 03:11:04 +0000
parents b98604865ea0
children e745533cff59
line wrap: on
line diff
--- a/lisp/bookmark.el	Sat Sep 22 02:46:35 2007 +0000
+++ b/lisp/bookmark.el	Sat Sep 22 03:11:04 2007 +0000
@@ -207,11 +207,6 @@
 
 ;;; No user-serviceable parts beyond this point.
 
-;; Is it XEmacs?
-(defconst bookmark-xemacsp
-  (string-match "\\(Lucid\\|Xemacs\\)" emacs-version))
-
-
 ;; Added  for lucid emacs  compatibility, db
 (or (fboundp 'defalias)  (fset 'defalias 'fset))
 
@@ -495,7 +490,7 @@
 INFO-NODE, so record this fact in the bookmark's entry."
   (bookmark-maybe-load-default-file)
   (let ((stripped-name (copy-sequence name)))
-    (or bookmark-xemacsp
+    (or (featurep 'xemacs)
         ;; XEmacs's `set-text-properties' doesn't work on
         ;; free-standing strings, apparently.
         (set-text-properties 0 (length stripped-name) nil stripped-name))