From b14d2df532f637fe9fe21a50a8a6066a40720c8b Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sun, 4 Sep 2016 17:57:56 -0400 Subject: [PATCH v1] Add suffix search to --load dir/foo * lisp/startup.el (command-line-1): Search for files with load-suffixes in default directory (Bug #17848). --- lisp/startup.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index d5225bd..01e6d85 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -2392,8 +2392,11 @@ command-line-1 (or argval (pop command-line-args-left)))) ;; Take file from default dir if it exists there; ;; otherwise let `load' search for it. - (file-ex (expand-file-name file))) - (when (file-regular-p file-ex) + (file-ex (locate-file + file (list default-directory) + (append (get-load-suffixes) + load-file-rep-suffixes)))) + (when (and file-ex (file-regular-p file-ex)) (setq file file-ex)) (load file nil t))) -- 2.9.3