From: Noah Friedman Date: Mon, 24 Jul 2000 00:28:27 +0000 (+0000) Subject: (menu-bar-files-menu [recover-session]): Make sure auto save directory X-Git-Tag: emacs-pretest-21.0.90~2675 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db3ca487f6000241f1d303f255df5c6af684f786;p=emacs.git (menu-bar-files-menu [recover-session]): Make sure auto save directory exists before calling directory-files. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0b8b70abc1d..73d6cbe24fb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-07-23 Noah Friedman + + * menu-bar.el (menu-bar-files-menu [recover-session]): Make sure + auto save directory exists before calling directory-files. + 2000-07-23 Dave Love * international/iso-transl.el (iso-transl-char-map): Fix ^e, ^i, @@ -31,7 +36,7 @@ * timer.el (run-with-idle-timer): Doc fix. - * mail/mail-utils.el (mail-strip-quoted-names): + * mail/mail-utils.el (mail-strip-quoted-names): Handle case where <...> appears inside "...". Use replace-match to edit the string more simply. (rmail-dont-reply-to): Cope with an unmatched ". @@ -59,8 +64,8 @@ * gnus/parse-time.el: Correct author's mail address. 2000-07-19 Colin Walters - - * comint.el (comint-highlight-input, comint-highlight-face): + + * comint.el (comint-highlight-input, comint-highlight-face): New user options. (comint-input-ring-file-name): Change custom type. (comint-mode-map): Bind mouse-2. @@ -81,7 +86,7 @@ * faces.el (face-font-selection-order) (face-font-family-alternatives): Add custom type. - + 2000-07-18 Dave Love * cus-edit.el (custom-variable-reset-saved) @@ -111,7 +116,7 @@ * recentf.el: Update from author. * info.el (Info-title-face-alist): Removed. - + 2000-07-18 Eli Zaretskii * eshell/eshell.el (eshell): Replace links to eshell.info with diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index b28b5ef4a37..9bde22e593c 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -124,7 +124,9 @@ A large number or nil slows down menu responsiveness." (define-key menu-bar-files-menu [recover-session] '(menu-item "Recover Crashed Session..." recover-session :enable (and auto-save-list-file-prefix - (directory-files + (file-directory-p + (file-name-directory auto-save-list-file-prefix)) + (directory-files (file-name-directory auto-save-list-file-prefix) nil (concat "\\`"