* bookmark.el (bookmark-file-or-variation-thereof): Restore vc-backend

  check, thanks to Robert Thorpe <robert.thorpe@antenova.com> for
  noticing.  Redocument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6b40fd1505e621dfc81ed7cb99f8792435aff461..eacc3f1ab48419470dbd47c6cbec8d80b20e4a91 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-12  Karl Fogel  <kfogel@red-bean.com>
+
+       * bookmark.el (bookmark-file-or-variation-thereof): Restore
+       vc-backend check, thanks to Robert Thorpe for noticing.
+
 2002-06-12  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * textmodes/bibtex.el: Change the maintainer to "none".

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 5d56d9ca31f1944a06604be7361bfc456061c9e1..97217a10e79695798b81dc46859ae6975b432f05 100644 (file)
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1072,19 +1072,25 @@ of the old one in the permanent bookmark record."
 
 
 (defun bookmark-file-or-variation-thereof (file)
-  "Return FILE (a string) or a reasonable variation that exists, else nil.
-Reasonable variations of the name are made by appending suffixes defined
-in `Info-suffix-list'."
+  "Return FILE (a string) if it exists, or return a reasonable
+variation of FILE if that exists.  Reasonable variations are checked
+by appending suffixes defined in `Info-suffix-list'.  If cannot find FILE
+nor a reasonable variation thereof, then still return FILE if it can
+be retrieved from a VC backend, else return nil."
   (if (file-exists-p file)
       file
-    (require 'info)  ; ensure Info-suffix-list is bound
-    (catch 'found
-      (mapc (lambda (elt)
-              (let ((suffixed-file (concat file (car elt))))
-                (if (file-exists-p suffixed-file)
-                    (throw 'found suffixed-file))))
-            Info-suffix-list)
-      nil)))
+    (or
+     (progn (require 'info)  ; ensure Info-suffix-list is bound
+            (catch 'found
+              (mapc (lambda (elt)
+                      (let ((suffixed-file (concat file (car elt))))
+                        (if (file-exists-p suffixed-file)
+                            (throw 'found suffixed-file))))
+                    Info-suffix-list)
+              nil))
+     ;; Last possibility: try VC
+     (if (vc-backend file) file))))
+
 
 (defun bookmark-jump-noselect (str)
   ;; a leetle helper for bookmark-jump :-)