diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-04-14 19:19:30 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-04-14 19:19:30 +0000 |
| commit | e601943c0d4aed69273f21bb8f3b8eb002e76acb (patch) | |
| tree | 25511023caa6dbba75599c3021c2a33210a001ba /lisp/shell.el | |
| parent | a1c225bfdecdc18fd70a4db95a217207ec646c23 (diff) | |
| download | emacs-e601943c0d4aed69273f21bb8f3b8eb002e76acb.tar.gz | |
(shell-dynamic-complete-as-command): Don't match ignored-extensions if it's nil.
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index 644c43c560b..b0bb9db9787 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -702,7 +702,8 @@ See `shell-dynamic-complete-filename'. Returns t if successful." (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) |