Commit 4211e434 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

(bookmark-xemacsp): Remove.

(bookmark-make): Don't use bookmark-xemacsp, use
(featurep 'xemacs) instead.
parent 055f99f4
2007-09-22 Dan Nicolaescu <>
* bookmark.el (bookmark-xemacsp): Remove.
(bookmark-make): Don't use bookmark-xemacsp, use
(featurep 'xemacs) instead.
* speedbar.el (speedbar-frame-mode)
(speedbar-set-mode-line-format, speedbar-reconfigure-keymaps)
......@@ -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."
(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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment