# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 766351170 0
# Node ID 3c007de39916b4552b71753cb8f12e981dc271b6
# Parent  58db14526c1d7fe75e0db16a12b7f1908561fe50
(shell-dynamic-complete-as-command): Don't match ignored-extensions if it's nil.

diff -r 58db14526c1d -r 3c007de39916 lisp/shell.el
--- a/lisp/shell.el	Thu Apr 14 18:40:45 1994 +0000
+++ b/lisp/shell.el	Thu Apr 14 19:19:30 1994 +0000
@@ -702,7 +702,8 @@
 	(setq file (car comps-in-path)
 	      filepath (concat path file))
 	(if (and (not (member file completions))
-		 (not (string-match ignored-extensions file))
+		 (not (and ignored-extensions
+			   (string-match ignored-extensions file)))
 		 (or (string-equal path cwd)
 		     (not (file-directory-p filepath)))
 		 (or (null shell-completion-execonly)