diff options
| author | Michael Albinus | 2021-10-09 16:18:53 +0200 |
|---|---|---|
| committer | Michael Albinus | 2021-10-09 16:18:53 +0200 |
| commit | 81f20e8b89d6333cbc796e92df5aa3df4f5712db (patch) | |
| tree | 3616e0e96a70279917a0724e318f21eefbe8f36d | |
| parent | ec9f25bd356c7c81d94c78f11100b97d6d52ce97 (diff) | |
| download | emacs-81f20e8b89d6333cbc796e92df5aa3df4f5712db.tar.gz emacs-81f20e8b89d6333cbc796e92df5aa3df4f5712db.zip | |
Fix thinko in ls-lisp--insert-directory
* lisp/ls-lisp.el (ls-lisp--insert-directory): Ensure that
SWITCHES is a string.
| -rw-r--r-- | lisp/ls-lisp.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index 8e81f79e429..82153ff0adb 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el | |||
| @@ -283,6 +283,7 @@ are also supported; unsupported long options are silently ignored." | |||
| 283 | (funcall orig-fun | 283 | (funcall orig-fun |
| 284 | file switches wildcard full-directory-p) | 284 | file switches wildcard full-directory-p) |
| 285 | ;; We need the directory in order to find the right handler. | 285 | ;; We need the directory in order to find the right handler. |
| 286 | (setq switches (or switches "")) | ||
| 286 | (let ((handler (find-file-name-handler (expand-file-name file) | 287 | (let ((handler (find-file-name-handler (expand-file-name file) |
| 287 | 'insert-directory)) | 288 | 'insert-directory)) |
| 288 | (orig-file file) | 289 | (orig-file file) |