diff options
| author | Stefan Kangas | 2022-10-02 17:52:05 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-10-02 17:52:05 +0200 |
| commit | 4839b42a16635a3090f4fb374fb1fbe532ef0451 (patch) | |
| tree | 29573e76be8b2281fb8f98e1cf1d3b67027b703f | |
| parent | 0a40120b40356ce43c084f44cedba8566a5685be (diff) | |
| download | emacs-4839b42a16635a3090f4fb374fb1fbe532ef0451.tar.gz emacs-4839b42a16635a3090f4fb374fb1fbe532ef0451.zip | |
* lisp/files.el (after-find-file): Use substitute-command-keys.
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 10b156fb306..40ad11ecfc4 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -2711,7 +2711,8 @@ unless NOMODES is non-nil." | |||
| 2711 | (file-newer-than-file-p (or buffer-auto-save-file-name | 2711 | (file-newer-than-file-p (or buffer-auto-save-file-name |
| 2712 | (make-auto-save-file-name)) | 2712 | (make-auto-save-file-name)) |
| 2713 | buffer-file-name)) | 2713 | buffer-file-name)) |
| 2714 | (format "%s has auto save data; consider M-x recover-this-file" | 2714 | (format (substitute-command-keys |
| 2715 | "%s has auto save data; consider \\`M-x recover-this-file'") | ||
| 2715 | (file-name-nondirectory buffer-file-name)) | 2716 | (file-name-nondirectory buffer-file-name)) |
| 2716 | (setq not-serious t) | 2717 | (setq not-serious t) |
| 2717 | (if error "(New file)" nil))) | 2718 | (if error "(New file)" nil))) |