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

* lisp/minibuffer.el (completion-file-name-table): Keep track of errors.

Browse source 
(completion-table-with-predicate): Handle the case where pred1 is nil.
* lisp/pcomplete.el (pcomplete-completions-at-point): Simplify.

Fixes: debbugs:9160
This commit is contained in:
Stefan Monnier 2011-09-19 21:06:29 -04:00
parent 207c12ef2a
commit 78054a469d
3 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/pcomplete.el
View file

@ -515,14 +515,13 @@ Same as `pcomplete' but using the standard completion UI."
(pred
;; Pare it down, if applicable.
(when (and pcomplete-use-paring pcomplete-seen)
(setq pcomplete-seen
(mapcar (lambda (f)
(funcall pcomplete-norm-func
(directory-file-name f)))
pcomplete-seen))
;; Capture the dynbound values for later use.
(let ((norm-func pcomplete-norm-func)
(seen pcomplete-seen))
(seen
(mapcar (lambda (f)
(funcall pcomplete-norm-func
(directory-file-name f)))
pcomplete-seen)))
(lambda (f)
(not (member
(funcall norm-func (directory-file-name f))