mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Delete some XEmacs compatibility code.

Browse source 
(bookmark-jump-noselect): Check vc-backend.
This commit is contained in:
Richard M. Stallman 1999-05-23 21:46:08 +00:00
parent 5d5fa02f65
commit 596ff2eefc
1 changed files with 5 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/bookmark.el
View file

@ -215,13 +215,6 @@ following in your `.emacs' file:
;; some random value higher than 9600
(setq baud-rate 19200))
;; XEmacs apparently call this `buffer-substring-without-properties',
;; sigh.
(or (fboundp 'buffer-substring-no-properties)
(if (fboundp 'buffer-substring-without-properties)
(fset 'buffer-substring-no-properties
'buffer-substring-without-properties)
(fset 'buffer-substring-no-properties 'buffer-substring)))
;;; Keymap stuff:
@ -1097,10 +1090,8 @@ of the old one in the permanent bookmark record."
)
(if (or
(file-exists-p file)
;; else try some common compression extensions
;; and Emacs better handle it right!
;; Sigh: I think it may *not* be handled at the moment. What
;; to do about this?
;; Else try some common compression extensions, which Emacs
;; usually handles right. I hope.
(setq file
(or
(let ((altname (concat file ".Z")))
@ -1111,7 +1102,9 @@ of the old one in the permanent bookmark record."
altname))
(let ((altname (concat file ".z")))
(and (file-exists-p altname)
altname)))))
altname))
;; Check VC incarnations, preparatory to checkout
(if (vc-backend file) file nil))))
(save-excursion
(save-window-excursion
(if info-node