Mercurial > emacs
comparison lisp/desktop.el @ 70653:019755175634
(desktop-missing-file-warning): Fix docstring.
(desktop-restore-file-buffer): Correct question asked on missing file.
| author | Lars Hansen <larsh@soem.dk> |
|---|---|
| date | Sun, 14 May 2006 20:26:12 +0000 |
| parents | 75ac416582c4 |
| children | bef13fc7f695 a5812696f7bf |
comparison
equal
deleted
inserted
replaced
| 70652:fc5f994a4079 | 70653:019755175634 |
|---|---|
| 199 :type '(repeat directory) | 199 :type '(repeat directory) |
| 200 :group 'desktop | 200 :group 'desktop |
| 201 :version "22.1") | 201 :version "22.1") |
| 202 | 202 |
| 203 (defcustom desktop-missing-file-warning nil | 203 (defcustom desktop-missing-file-warning nil |
| 204 "*If non-nil then `desktop-read' asks if a non-existent file should be recreated. | 204 "If non-nil, offer to recreate the buffer of a deleted file. |
| 205 Also pause for a moment to display message about errors signaled in | 205 Also pause for a moment to display message about errors signaled in |
| 206 `desktop-buffer-mode-handlers'. | 206 `desktop-buffer-mode-handlers'. |
| 207 | 207 |
| 208 If nil, just print error messages in the message buffer." | 208 If nil, just print error messages in the message buffer." |
| 209 :type 'boolean | 209 :type 'boolean |
| 941 (if desktop-buffer-file-name | 941 (if desktop-buffer-file-name |
| 942 (if (or (file-exists-p desktop-buffer-file-name) | 942 (if (or (file-exists-p desktop-buffer-file-name) |
| 943 (let ((msg (format "Desktop: File \"%s\" no longer exists." | 943 (let ((msg (format "Desktop: File \"%s\" no longer exists." |
| 944 desktop-buffer-file-name))) | 944 desktop-buffer-file-name))) |
| 945 (if desktop-missing-file-warning | 945 (if desktop-missing-file-warning |
| 946 (y-or-n-p (concat msg " Re-create? ")) | 946 (y-or-n-p (concat msg " Re-create buffer? ")) |
| 947 (message "%s" msg) | 947 (message "%s" msg) |
| 948 nil))) | 948 nil))) |
| 949 (let* ((auto-insert nil) ; Disable auto insertion | 949 (let* ((auto-insert nil) ; Disable auto insertion |
| 950 (coding-system-for-read | 950 (coding-system-for-read |
| 951 (or coding-system-for-read | 951 (or coding-system-for-read |