diff options
| author | Richard M. Stallman | 2002-06-08 10:42:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-06-08 10:42:54 +0000 |
| commit | 99d30b0c06f2975c2933753ad10d09cd796f1cb1 (patch) | |
| tree | 3caa37b524778275faf0a16241ec85abd3772a7f | |
| parent | dd33e6e94bb011a3e6e9be7b00aedc89679f01ee (diff) | |
| download | emacs-99d30b0c06f2975c2933753ad10d09cd796f1cb1.tar.gz emacs-99d30b0c06f2975c2933753ad10d09cd796f1cb1.zip | |
(bookmark-file-or-variation-thereof): Doc fix.
| -rw-r--r-- | lisp/bookmark.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index c3bab39ba3d..5d56d9ca31f 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el | |||
| @@ -1072,8 +1072,9 @@ of the old one in the permanent bookmark record." | |||
| 1072 | 1072 | ||
| 1073 | 1073 | ||
| 1074 | (defun bookmark-file-or-variation-thereof (file) | 1074 | (defun bookmark-file-or-variation-thereof (file) |
| 1075 | "Return FILE if it exists, or return the first variation based on | 1075 | "Return FILE (a string) or a reasonable variation that exists, else nil. |
| 1076 | `Info-suffix-list' that exists, else return nil." | 1076 | Reasonable variations of the name are made by appending suffixes defined |
| 1077 | in `Info-suffix-list'." | ||
| 1077 | (if (file-exists-p file) | 1078 | (if (file-exists-p file) |
| 1078 | file | 1079 | file |
| 1079 | (require 'info) ; ensure Info-suffix-list is bound | 1080 | (require 'info) ; ensure Info-suffix-list is bound |
| @@ -1085,7 +1086,6 @@ of the old one in the permanent bookmark record." | |||
| 1085 | Info-suffix-list) | 1086 | Info-suffix-list) |
| 1086 | nil))) | 1087 | nil))) |
| 1087 | 1088 | ||
| 1088 | |||
| 1089 | (defun bookmark-jump-noselect (str) | 1089 | (defun bookmark-jump-noselect (str) |
| 1090 | ;; a leetle helper for bookmark-jump :-) | 1090 | ;; a leetle helper for bookmark-jump :-) |
| 1091 | ;; returns (BUFFER . POINT) | 1091 | ;; returns (BUFFER . POINT) |