mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(shell-dynamic-complete-as-command): Don't match ignored-extensions if it's nil.

Browse source
This commit is contained in:
Karl Heuer 1994-04-14 19:19:30 +00:00
parent 06aa1ec4bf
commit 7b2db0a013
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/shell.el
View file

@ -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)