1072 |
|
|
1073 |
|
|
1074 |
(defun bookmark-file-or-variation-thereof (file) |
(defun bookmark-file-or-variation-thereof (file) |
1075 |
"Return FILE if it exists, or return the first variation based on |
"Return FILE (a string) or a reasonable variation that exists, else nil. |
1076 |
`Info-suffix-list' that exists, else return nil." |
Reasonable variations of the name are made by appending suffixes defined |
1077 |
|
in `Info-suffix-list'." |
1078 |
(if (file-exists-p file) |
(if (file-exists-p file) |
1079 |
file |
file |
1080 |
(require 'info) ; ensure Info-suffix-list is bound |
(require 'info) ; ensure Info-suffix-list is bound |
1086 |
Info-suffix-list) |
Info-suffix-list) |
1087 |
nil))) |
nil))) |
1088 |
|
|
|
|
|
1089 |
(defun bookmark-jump-noselect (str) |
(defun bookmark-jump-noselect (str) |
1090 |
;; a leetle helper for bookmark-jump :-) |
;; a leetle helper for bookmark-jump :-) |
1091 |
;; returns (BUFFER . POINT) |
;; returns (BUFFER . POINT) |