# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531574 0
# Node ID f2dfcd4d4b9b822bf9388176fd7e395db9677f62
# Parent  0f8f0073316585b81404c87e279ab5646b2165c8
(bookmark-write-file, bookmark-load): Delete format call inside message.

diff -r 0f8f00733165 -r f2dfcd4d4b9b lisp/bookmark.el
--- 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))))