Mercurial > emacs
comparison lisp/userlock.el @ 4566:14d8646c61c4
(ask-user-about-supersession-threat): Mention file name when asking question.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 11 Aug 1993 20:36:30 +0000 |
| parents | 2cdce064065f |
| children | f96b7683e3c5 |
comparison
equal
deleted
inserted
replaced
| 4565:a97d23c71c95 | 4566:14d8646c61c4 |
|---|---|
| 92 The buffer in question is current when this function is called." | 92 The buffer in question is current when this function is called." |
| 93 (discard-input) | 93 (discard-input) |
| 94 (save-window-excursion | 94 (save-window-excursion |
| 95 (let (answer) | 95 (let (answer) |
| 96 (while (null answer) | 96 (while (null answer) |
| 97 (message "File has changed on disk; really want to edit the buffer? (y, n or C-h) ") | 97 (message "%s changed on disk; really edit the buffer? (y, n or C-h) " |
| 98 (file-name-nondirectory fn)) | |
| 98 (let ((tem (downcase (let ((cursor-in-echo-area t)) | 99 (let ((tem (downcase (let ((cursor-in-echo-area t)) |
| 99 (read-char))))) | 100 (read-char))))) |
| 100 (setq answer | 101 (setq answer |
| 101 (if (= tem help-char) | 102 (if (= tem help-char) |
| 102 'help | 103 'help |