diff options
author | Eli Zaretskii <eliz@gnu.org> | 2022-04-22 15:18:56 +0300 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2022-04-22 15:18:56 +0300 |
commit | f2f9e8dc76cdc7433624ee7e88ec5380a5b06902 (patch) | |
tree | 70154f46adf3d2f10381d898062d872924fd7a1c /lisp/startup.el | |
parent | 05705454d5c616cb54294ae3bbb2d40ab72fc8ed (diff) | |
download | emacs-f2f9e8dc76cdc7433624ee7e88ec5380a5b06902.tar.gz |
; Improve comments for a recently installed bugfix
* lisp/startup.el (command-line): Remove references to a wrong bug
number and improve comments for delaying the 'user-emacs-directory'
warning. (Bug#25163)
Diffstat (limited to 'lisp/startup.el')
-rw-r--r-- | lisp/startup.el | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 4391fdd9961..57a38a295ed 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -1291,9 +1291,11 @@ please check its value") (setcdr command-line-args args))) ;; Re-evaluate predefined variables whose initial value depends on - ;; the runtime context. - (let ((user-emacs-directory-warning nil)) ; Delay showing this - ; warning (Bug#25162). + ;; the runtime context. But delay the warning about + ;; `user-emacs-directory' being inaccessible until after processing + ;; the init file and the command-line arguments, in case the user + ;; customized `user-emacs-directory-warning' to nil via those. + (let ((user-emacs-directory-warning nil)) (when (listp custom-delayed-init-variables) (mapc #'custom-reevaluate-setting ;; Initialize them in the same order they were loaded, in @@ -1559,14 +1561,17 @@ please check its value") (list 'error (substitute-command-keys "Memory exhausted--use \\[save-some-buffers] then exit and restart Emacs"))) - ;; Reevaluate `user-emacs-directory-warning' before process '--eval' - ;; args, so that the user can override that default (Bug#25162). + ;; Reevaluate `user-emacs-directory-warning' before processing + ;; '--eval' arguments, so that the user could override the default + ;; value in the '--eval' forms. (custom-reevaluate-setting 'user-emacs-directory-warning) ;; Process the remaining args. (command-line-1 (cdr command-line-args)) - ;; Check if `user-emacs-directory' is accessible (Bug#25162). + ;; Check if `user-emacs-directory' is accessible and warn if it + ;; isn't, unless `user-emacs-directory-warning' was customized to + ;; disable that warning. (when (and user-emacs-directory-warning (not (file-accessible-directory-p user-emacs-directory))) (locate-user-emacs-file "")) |