# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773996911 0
# Node ID aea786f4cdd14933ac1c3d8a77260922f62e85c7
# Parent  5d9da948dc9fa64cb54abe2d62a38f8ca4761a1a
(insert-directory): Fix prev change.

diff -r 5d9da948dc9f -r aea786f4cdd1 lisp/files.el
--- 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