diff options
| author | Michael Albinus | 2019-04-17 14:04:37 +0200 |
|---|---|---|
| committer | Michael Albinus | 2019-04-17 14:04:37 +0200 |
| commit | 2c06731dca42ee4f10484a6c72b3528e14c548d7 (patch) | |
| tree | b504a55790771a9eaa08e5c7b55c5b4902e9687b /lisp | |
| parent | 48a6a3ac028181dbe32f6619982539adb0cd9a6a (diff) | |
| download | emacs-2c06731dca42ee4f10484a6c72b3528e14c548d7.tar.gz emacs-2c06731dca42ee4f10484a6c72b3528e14c548d7.zip | |
Fix Bug#35241
* lisp/files.el (executable-find): Quote default-directory. (Bug#35241)
* test/lisp/files-tests.el (files-tests-executable-find): New test.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index b81550e297c..c05d70a00ec 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1058,7 +1058,8 @@ REMOTE is non-nil, search on the remote host indicated by | |||
| 1058 | (when (stringp res) (file-local-name res))) | 1058 | (when (stringp res) (file-local-name res))) |
| 1059 | ;; Use 1 rather than file-executable-p to better match the | 1059 | ;; Use 1 rather than file-executable-p to better match the |
| 1060 | ;; behavior of call-process. | 1060 | ;; behavior of call-process. |
| 1061 | (locate-file command exec-path exec-suffixes 1))) | 1061 | (let ((default-directory (file-name-quote default-directory 'top))) |
| 1062 | (locate-file command exec-path exec-suffixes 1)))) | ||
| 1062 | 1063 | ||
| 1063 | (defun load-library (library) | 1064 | (defun load-library (library) |
| 1064 | "Load the Emacs Lisp library named LIBRARY. | 1065 | "Load the Emacs Lisp library named LIBRARY. |