From b7730b299b0d421ba9789d992f4c8a7df3fde208 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 11 Jun 2015 21:12:29 -0400 Subject: [PATCH] * lisp/startup.el (normal-top-level): Use delay-warning. (Bug#20792) --- lisp/startup.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 370e7aee771..e614466aa23 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -612,11 +612,7 @@ It is the default value of the variable `top-level'." charset-map-path)))) (if default-directory (setq default-directory (abbreviate-file-name default-directory)) - ;; FIXME this does not get shown. - ;; If after (command-line), it is shown, but if command-line - ;; changed the buffer (eg found a file), it applies to that - ;; buffer, not *scratch*. - (display-warning 'initialization "Error setting default-directory")) + (delay-warning 'initialization "Error setting default-directory")) (let ((old-face-font-rescale-alist face-font-rescale-alist)) (unwind-protect (command-line) -- 2.39.2