From: Michael Albinus <michael.albinus@gmx.de>
Date: Sat, 9 Oct 2021 14:18:53 +0000 (+0200)
Subject: Fix thinko in ls-lisp--insert-directory
X-Git-Tag: emacs-28.0.90~345
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81f20e8b89;p=emacs.git

Fix thinko in ls-lisp--insert-directory

* lisp/ls-lisp.el (ls-lisp--insert-directory): Ensure that
SWITCHES is a string.
---

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."
       (funcall orig-fun
 	       file switches wildcard full-directory-p)
     ;; We need the directory in order to find the right handler.
+    (setq switches (or switches ""))
     (let ((handler (find-file-name-handler (expand-file-name file)
 					   'insert-directory))
 	  (orig-file file)