Mercurial > emacs
comparison lisp/bookmark.el @ 59133:55f8ffb8e523
(bookmark-jump): Nice error if BOOKMARK is nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 27 Dec 2004 16:41:59 +0000 |
| parents | 4e04e776fb5e |
| children | 8b4c93f5bcf1 95879cc1ed20 |
comparison
equal
deleted
inserted
replaced
| 59132:38f1d5865861 | 59133:55f8ffb8e523 |
|---|---|
| 1047 will then jump to the new location, as well as recording it in place | 1047 will then jump to the new location, as well as recording it in place |
| 1048 of the old one in the permanent bookmark record." | 1048 of the old one in the permanent bookmark record." |
| 1049 (interactive | 1049 (interactive |
| 1050 (list (bookmark-completing-read "Jump to bookmark" | 1050 (list (bookmark-completing-read "Jump to bookmark" |
| 1051 bookmark-current-bookmark))) | 1051 bookmark-current-bookmark))) |
| 1052 (unless bookmark | |
| 1053 (error "No bookmark specified")) | |
| 1052 (bookmark-maybe-historicize-string bookmark) | 1054 (bookmark-maybe-historicize-string bookmark) |
| 1053 (let ((cell (bookmark-jump-noselect bookmark))) | 1055 (let ((cell (bookmark-jump-noselect bookmark))) |
| 1054 (and cell | 1056 (and cell |
| 1055 (switch-to-buffer (car cell)) | 1057 (switch-to-buffer (car cell)) |
| 1056 (goto-char (cdr cell)) | 1058 (goto-char (cdr cell)) |