# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 763325684 0
# Node ID 59a6684e8057afe0d535daf5b2111f75c970ff1d
# Parent  6044f2615082db9d9de4769dafc1e8a25f847fb3
(shell-dynamic-complete-as-command): Make ignored-extensions
nil if comint-completion-fignore is nil.

diff -r 6044f2615082 -r 59a6684e8057 lisp/shell.el
--- a/lisp/shell.el	Thu Mar 10 17:23:56 1994 +0000
+++ b/lisp/shell.el	Thu Mar 10 18:54:44 1994 +0000
@@ -688,8 +688,9 @@
 	 (paths (cdr (reverse exec-path)))
 	 (cwd (file-name-as-directory (expand-file-name default-directory)))
 	 (ignored-extensions
-	  (mapconcat (function (lambda (x) (concat (regexp-quote x) "$")))
-		     comint-completion-fignore "\\|"))
+	  (and comint-completion-fignore
+	       (mapconcat (function (lambda (x) (concat (regexp-quote x) "$")))
+			  comint-completion-fignore "\\|")))
 	 (path "") (comps-in-path ()) (file "") (filepath "") (completions ()))
     ;; Go thru each path in the search path, finding completions.
     (while paths