From: Noam Postavsky <npostavs@gmail.com>
Date: Sun, 21 Aug 2016 14:51:38 +0000 (-0400)
Subject: Don't --load directories
X-Git-Tag: emacs-26.0.90~1638
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a08ce41ed8e9fd8768dcd1ecd22ff6bc4c4c7f8f;p=emacs.git

Don't --load directories

* lisp/startup.el (command-line-1): Only pass expanded FILENAME argument
of --load when it refers to a normal file, since `load' doesn't handle
directories (Bug #16406).
---

diff --git a/lisp/startup.el b/lisp/startup.el
index fcdc376c5ff..d5225bdcb30 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -2393,7 +2393,7 @@ nil default-directory" name)
                             ;; Take file from default dir if it exists there;
                             ;; otherwise let `load' search for it.
                             (file-ex (expand-file-name file)))
-                       (when (file-exists-p file-ex)
+                       (when (file-regular-p file-ex)
                          (setq file file-ex))
                        (load file nil t)))