Mercurial > emacs
diff lisp/shell.el @ 6885:3c007de39916
(shell-dynamic-complete-as-command): Don't match ignored-extensions if it's nil.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 14 Apr 1994 19:19:30 +0000 |
| parents | 965beb0c97d2 |
| children | 9888d3b32db3 |
line wrap: on
line diff
--- 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)