# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 927495968 0
# Node ID c9362ef0817ae26e30c104742c7f4f0bfd0fc23c
# Parent  585c5f115d830ba1146ab3f699f49d7a6e8256c3
Delete some XEmacs compatibility code.
(bookmark-jump-noselect): Check vc-backend.

diff -r 585c5f115d83 -r c9362ef0817a lisp/bookmark.el
--- 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