[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/bookmark.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/bookmark.el |
Date: |
Sat, 08 Jun 2002 06:42:56 -0400 |
Index: emacs/lisp/bookmark.el
diff -c emacs/lisp/bookmark.el:1.60 emacs/lisp/bookmark.el:1.61
*** emacs/lisp/bookmark.el:1.60 Fri Jun 7 23:33:09 2002
--- emacs/lisp/bookmark.el Sat Jun 8 06:42:54 2002
***************
*** 1072,1079 ****
(defun bookmark-file-or-variation-thereof (file)
! "Return FILE if it exists, or return the first variation based on
! `Info-suffix-list' that exists, else return nil."
(if (file-exists-p file)
file
(require 'info) ; ensure Info-suffix-list is bound
--- 1072,1080 ----
(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'."
(if (file-exists-p file)
file
(require 'info) ; ensure Info-suffix-list is bound
***************
*** 1084,1090 ****
(throw 'found suffixed-file))))
Info-suffix-list)
nil)))
-
(defun bookmark-jump-noselect (str)
;; a leetle helper for bookmark-jump :-)
--- 1085,1090 ----