Mercurial > emacs

changeset 24763:c9362ef0817a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Delete some XEmacs compatibility code. (bookmark-jump-noselect): Check vc-backend.
author Richard M. Stallman <rms@gnu.org>
date Sun, 23 May 1999 21:46:08 +0000
parents 585c5f115d83
children ece1961bd955
files lisp/bookmark.el
diffstat 1 files changed, 5 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bookmark.el	Sun May 23 21:08:13 1999 +0000
+++ b/lisp/bookmark.el	Sun May 23 21:46:08 1999 +0000
@@ -215,13 +215,6 @@
     ;; 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 @@
          )
     (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 @@
                        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