Mercurial > emacs

changeset 14354:f1035d934a7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Karl Heuer <kwzh@gnu.org>
date Thu, 25 Jan 1996 06:02:21 +0000
parents d0d8d9d73f7f
children 87fde6ef6c95
files lisp/bookmark.el
diffstat 1 files changed, 7 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bookmark.el	Thu Jan 25 03:13:39 1996 +0000
+++ b/lisp/bookmark.el	Thu Jan 25 06:02:21 1996 +0000
@@ -622,7 +622,7 @@
             (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 @@
      ((= 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 @@
   (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 @@
 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 @@
 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 @@
                   (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)))