From 9700caaf436728742c4f7dadbbafcd95ab1a8cd5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 12 Jul 1994 07:08:31 +0000 Subject: [PATCH] (insert-directory): Fix prev change. --- lisp/files.el | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index fc15ed2090f..5206a5871dd 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2128,21 +2128,23 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'." switches (mapconcat 'identity switches " ") " " - pattern))) + pattern)))) ;; SunOS 4.1.3, SVr4 and others need the "." to list the ;; directory if FILE is a symbolic link. (apply 'call-process insert-directory-program nil t nil (let (list) - (if (consp switches) + (if (listp switches) (setq list switches) - ;; Split the switches at any spaces - ;; so we can pass separate options as separate args. - (while (string-match " " switches) - (setq list (cons (substring switches 0 (match-beginning 0)) - list) - switches (substring switches (match-end 0)))) - (setq list (cons switches list))) + (if (not (equal switches "")) + (progn + ;; Split the switches at any spaces + ;; so we can pass separate options as separate args. + (while (string-match " " switches) + (setq list (cons (substring switches 0 (match-beginning 0)) + list) + switches (substring switches (match-end 0)))) + (setq list (cons switches list))))) (append list (list (if full-directory-p -- 2.39.5