mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-03 14:10:47 -08:00
Code Issues Projects Releases Wiki Activity

(pcomplete-comint-setup): If there's a choice, replace

Browse source 
shell-dynamic-complete-filename in preference to
comint-dynamic-complete-filename.
This commit is contained in:
Stefan Monnier 2009-10-28 13:59:30 +00:00
parent b861e45ef6
commit 70f44c655c
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2009-10-28 Stefan Monnier <monnier@iro.umontreal.ca>
* pcomplete.el (pcomplete-comint-setup): If there's a choice, replace
shell-dynamic-complete-filename in preference to
comint-dynamic-complete-filename.
* bookmark.el (bookmark-insert-location, bookmark-bmenu-list)
(bookmark-bmenu-show-filenames, bookmark-bmenu-hide-filenames):
Don't consider whether the display supports colors.

4
lisp/pcomplete.el
View file

@ -775,8 +775,8 @@ this is `comint-dynamic-complete-functions'."
(set (make-local-variable completef-sym)
(copy-sequence (symbol-value completef-sym)))
(let* ((funs (symbol-value completef-sym))
(elem (or (memq 'comint-dynamic-complete-filename funs)
(memq 'shell-dynamic-complete-filename funs))))
(elem (or (memq 'shell-dynamic-complete-filename funs)
(memq 'comint-dynamic-complete-filename funs))))
(if elem
(setcar elem 'pcomplete)
(add-to-list completef-sym 'pcomplete))))