mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

* startup.el (fancy-startup-tail): Improve the message about auto-save files.

Browse Source 
Fixes: debbugs:2176
This commit is contained in:
Chong Yidong 2012-12-01 09:49:29 +08:00
parent a940045887
commit c01bf73e79
2 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2012-12-01 Chong Yidong <cyd@gnu.org>
* startup.el (fancy-startup-tail): Improve the message about
auto-save files (Bug#2176).
2012-12-01 Glenn Morris <rgm@gnu.org>
* ido.el (ido-file-internal):

38
lisp/startup.el
View File

@ -1569,27 +1569,23 @@ a face or button specification."
:face '(variable-pitch (:height 0.8))
emacs-copyright
"\n")
(and auto-save-list-file-prefix
;; Don't signal an error if the
;; directory for auto-save-list files
;; does not yet exist.
(file-directory-p (file-name-directory
auto-save-list-file-prefix))
(directory-files
(file-name-directory auto-save-list-file-prefix)
nil
(concat "\\`"
(regexp-quote (file-name-nondirectory
auto-save-list-file-prefix)))
t)
(fancy-splash-insert :face '(variable-pitch font-lock-comment-face)
"\nIf an Emacs session crashed recently, "
"type "
:face '(fixed-pitch font-lock-comment-face)
"Meta-x recover-session RET"
:face '(variable-pitch font-lock-comment-face)
"\nto recover"
" the files you were editing."))
(when auto-save-list-file-prefix
(let ((dir (file-name-directory auto-save-list-file-prefix))
(name (file-name-nondirectory auto-save-list-file-prefix))
files)
;; Don't warn if the directory for auto-save-list files does not
;; yet exist.
(and (file-directory-p dir)
(setq files (directory-files dir nil (concat "\\`" name) t))
(fancy-splash-insert :face '(variable-pitch font-lock-comment-face)
(if (= (length files) 1)
"\nAn auto-save file list was found. "
"\nAuto-save file lists were found. ")
"If an Emacs session crashed recently,\ntype "
:face '(fixed-pitch font-lock-comment-face)
"M-x recover-session RET"
:face '(variable-pitch font-lock-comment-face)
" to recover the files you were editing."))))
(when concise
(fancy-splash-insert