diff options
| author | K. Handa <handa@gnu.org> | 2015-09-08 20:43:11 +0900 |
|---|---|---|
| committer | K. Handa <handa@gnu.org> | 2015-09-08 20:43:11 +0900 |
| commit | 94ed5167557112fb00eeca05e62589db744206de (patch) | |
| tree | 80a544f8534802dd61fbd218b97441d3419dbf6b /lisp/format.el | |
| parent | 33f2e0023a5ef03db3e99ade0b93a7a1a913dbe1 (diff) | |
| parent | 10e7f7de910ca816799062f33b830f7598801f0e (diff) | |
| download | emacs-94ed5167557112fb00eeca05e62589db744206de.tar.gz | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs
Diffstat (limited to 'lisp/format.el')
| -rw-r--r-- | lisp/format.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/format.el b/lisp/format.el index 7ab68c8a04e..dbc814e5b01 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -395,7 +395,7 @@ unless you supply a prefix argument." (cdr (assq 'default-directory (buffer-local-variables))) nil nil (buffer-name)))) - (fmt (format-read (format-message "Write file ‘%s’ in format: " + (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) @@ -416,7 +416,7 @@ 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-message "Read file ‘%s’ in format: " + (fmt (format-read (format-message "Read file `%s' in format: " (file-name-nondirectory file))))) (list file fmt))) (let ((format-alist nil)) @@ -435,7 +435,7 @@ 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-message "Read file ‘%s’ in format: " + (fmt (format-read (format-message "Read file `%s' in format: " (file-name-nondirectory file))))) (list file fmt))) (let (value size old-undo) |