diff options
Diffstat (limited to 'lisp/format.el')
| -rw-r--r-- | lisp/format.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/format.el b/lisp/format.el index afec51c3aa2..7ab68c8a04e 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -395,8 +395,8 @@ unless you supply a prefix argument." (cdr (assq 'default-directory (buffer-local-variables))) nil nil (buffer-name)))) - (fmt (format-read (format "Write file ‘%s’ in format: " - (file-name-nondirectory file))))) + (fmt (format-read (format-message "Write file ‘%s’ in format: " + (file-name-nondirectory file))))) (list file fmt (not current-prefix-arg)))) (let ((old-formats buffer-file-format) preserve-formats) @@ -416,8 +416,8 @@ If FORMAT is nil then do not do any format conversion." (interactive ;; Same interactive spec as write-file, plus format question. (let* ((file (read-file-name "Find file: ")) - (fmt (format-read (format "Read file ‘%s’ in format: " - (file-name-nondirectory file))))) + (fmt (format-read (format-message "Read file ‘%s’ in format: " + (file-name-nondirectory file))))) (list file fmt))) (let ((format-alist nil)) (find-file filename)) @@ -435,8 +435,8 @@ a list (ABSOLUTE-FILE-NAME SIZE)." (interactive ;; Same interactive spec as write-file, plus format question. (let* ((file (read-file-name "Find file: ")) - (fmt (format-read (format "Read file ‘%s’ in format: " - (file-name-nondirectory file))))) + (fmt (format-read (format-message "Read file ‘%s’ in format: " + (file-name-nondirectory file))))) (list file fmt))) (let (value size old-undo) ;; Record only one undo entry for the insertion. Inhibit point-motion and |