From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sat, 22 Sep 2007 03:11:04 +0000 (+0000)
Subject: (bookmark-xemacsp): Remove.
X-Git-Tag: emacs-pretest-23.0.90~10737
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4211e4349d5f4af054de23de284b9fff451d3cc0;p=emacs.git

(bookmark-xemacsp): Remove.
(bookmark-make): Don't use bookmark-xemacsp, use
(featurep 'xemacs) instead.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f0b813e44bb..6d3909928c8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2007-09-22  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* bookmark.el (bookmark-xemacsp): Remove.
+	(bookmark-make): Don't use bookmark-xemacsp, use
+	(featurep 'xemacs) instead.
+
 	* speedbar.el (speedbar-frame-mode)
 	(speedbar-frame-reposition-smartly)
 	(speedbar-set-mode-line-format, speedbar-reconfigure-keymaps)
diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index c1904cb0393..47a1d651598 100644
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -207,11 +207,6 @@ following in your `.emacs' file:
 
 ;;; 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 @@ Optional fourth arg INFO-NODE means this bookmark is at info node
 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))