Mercurial > emacs
changeset 8220:aea786f4cdd1
(insert-directory): Fix prev change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 12 Jul 1994 07:08:31 +0000 |
| parents | 5d9da948dc9f |
| children | 0b9e18f9b085 |
| files | lisp/files.el |
| diffstat | 1 files changed, 11 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Jul 12 06:46:52 1994 +0000 +++ b/lisp/files.el Tue Jul 12 07:08:31 1994 +0000 @@ -2128,21 +2128,23 @@ 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