* lisp/startup.el (normal-top-level): Use delay-warning. (Bug#20792)

1 files changed, 1 insertions, 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)