Mercurial > emacs

changeset 14339:f2dfcd4d4b9b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(bookmark-write-file, bookmark-load): Delete format call inside message.
author Karl Heuer <kwzh@gnu.org>
date Thu, 25 Jan 1996 00:59:34 +0000
parents 0f8f00733165
children bf1d862f3673
files lisp/bookmark.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bookmark.el	Thu Jan 25 00:59:25 1996 +0000
+++ b/lisp/bookmark.el	Thu Jan 25 00:59:34 1996 +0000
@@ -1312,7 +1312,7 @@
   (save-excursion
     (save-window-excursion
       (if (>= baud-rate 9600)
-          (message (format "Saving bookmarks to file %s..." file)))
+          (message "Saving bookmarks to file %s..." file))
       (set-buffer (let ((enable-local-variables nil))
                     (find-file-noselect file)))
       (goto-char (point-min))
@@ -1329,7 +1329,7 @@
         (write-file file)
         (kill-buffer (current-buffer))
         (if (>= baud-rate 9600)
-            (message (format "Saving bookmarks to file %s...done" file)))
+            (message "Saving bookmarks to file %s...done" file))
         ))))
 
 
@@ -1360,7 +1360,7 @@
       (save-excursion
         (save-window-excursion
           (if (and (null no-msg) (>= baud-rate 9600))
-              (message (format "Loading bookmarks from %s..." file)))
+              (message "Loading bookmarks from %s..." file))
           (set-buffer (let ((enable-local-variables nil))
                         (find-file-noselect file)))
           (goto-char (point-min))
@@ -1378,7 +1378,7 @@
               (error (format "Invalid bookmark list in %s." file))))
           (kill-buffer (current-buffer)))
 	(if (and (null no-msg) (>= baud-rate 9600))
-            (message (format "Loading bookmarks from %s...done" file))))
+            (message "Loading bookmarks from %s...done" file)))
     (error (format "Cannot read bookmark file %s." file))))