diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-05-23 21:46:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-05-23 21:46:08 +0000 |
| commit | 596ff2eefcb37c68d633ed5a69c2fac5012e9f22 (patch) | |
| tree | 002d64713a12297cb48df191c115a692e9d45e54 /lisp/bookmark.el | |
| parent | 5d5fa02f658dd992c7dc0df9b1611476c2a43872 (diff) | |
| download | emacs-596ff2eefcb37c68d633ed5a69c2fac5012e9f22.tar.gz | |
Delete some XEmacs compatibility code.
(bookmark-jump-noselect): Check vc-backend.
Diffstat (limited to 'lisp/bookmark.el')
| -rw-r--r-- | lisp/bookmark.el | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 65f117a0411..ec5a4f590f1 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -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 |