mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

(bookmark-write-file, bookmark-load): Delete format call inside message.

Browse Source
This commit is contained in:
Karl Heuer 1996-01-25 00:59:34 +00:00
parent 4bf785ba7e
commit bd0e5b36b9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/bookmark.el
View File

@ -1312,7 +1312,7 @@ for a file, defaulting to the file defined by variable
(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 @@ for a file, defaulting to the file defined by variable
(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 @@ explicitly."
(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 @@ explicitly."
(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))))