diff options
author | Karl Heuer <kwzh@gnu.org> | 1996-01-25 06:02:21 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1996-01-25 06:02:21 +0000 |
commit | a3ad20c239576b35d1365e2f59b2d7cef91e0d46 (patch) | |
tree | 2e3e2cff39406c6041b67cb5c43447f3da750d9e /lisp/bookmark.el | |
parent | 3c190163d271e86a274d97c20bd6e6f88b18a08a (diff) | |
download | emacs-a3ad20c239576b35d1365e2f59b2d7cef91e0d46.tar.gz |
(bookmark-alist-from-buffer): Fix error text.
(bookmark-maybe-upgrade-file-format, bookmark-set): Likewise.
(bookmark-send-annotation, bookmark-send-edited-annotation): Likewise.
(bookmark-load): Delete redundant format call.
Diffstat (limited to 'lisp/bookmark.el')
-rw-r--r-- | lisp/bookmark.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 8759118191f..e3fbe7c41fc 100644 --- a/lisp/bookmark.el +++ b/lisp/bookmark.el @@ -622,7 +622,7 @@ affect point." (forward-char -1) (read (current-buffer))) ;; Else no hope of getting information here. - (error "Not bookmark format."))))) + (error "Not bookmark format"))))) (defun bookmark-upgrade-version-0-alist (old-list) @@ -688,7 +688,7 @@ This expects to be called from point-min in a bookmark file." ((= version 0) (bookmark-upgrade-file-format-from-0)) (t - (error "Bookmark file format version strangeness."))))) + (error "Bookmark file format version strangeness"))))) (defun bookmark-insert-file-format-version-stamp () @@ -733,7 +733,7 @@ the list of bookmarks.\)" (interactive (list nil current-prefix-arg)) (or (bookmark-buffer-file-name) - (error "Buffer not visiting a file or directory.")) + (error "Buffer not visiting a file or directory")) (bookmark-maybe-load-default-file) @@ -793,7 +793,7 @@ as the annotation for a bookmark, and store it in the bookmark list with the bookmark (and file, and point) specified in buffer local variables." (interactive) (if (not (eq major-mode 'bookmark-read-annotation-mode)) - (error "Not in bookmark-read-annotation-mode.")) + (error "Not in bookmark-read-annotation-mode")) (goto-char (point-min)) (while (< (point) (point-max)) (if (looking-at "^#") @@ -902,7 +902,7 @@ When you have finished composing, type \\[bookmark-send-annotation]. as the new annotation for a bookmark." (interactive) (if (not (eq major-mode 'bookmark-edit-annotation-mode)) - (error "Not in bookmark-edit-annotation-mode.")) + (error "Not in bookmark-edit-annotation-mode")) (goto-char (point-min)) (while (< (point) (point-max)) (if (looking-at "^#") @@ -1375,11 +1375,11 @@ explicitly." (setq bookmark-alist (append blist (if (not revert) bookmark-alist))) (bookmark-bmenu-surreptitiously-rebuild-list)) - (error (format "Invalid bookmark list in %s." file)))) + (error "Invalid bookmark list in %s" file))) (kill-buffer (current-buffer))) (if (and (null no-msg) (>= baud-rate 9600)) (message "Loading bookmarks from %s...done" file))) - (error (format "Cannot read bookmark file %s." file)))) + (error "Cannot read bookmark file %s" file))) |