mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-22 21:50:45 -08:00
Code Issues Projects Releases Wiki Activity

* abbrev.el (abbrev-with-wrapper-hook): (re)move...

Browse source 
* simple.el (with-wrapper-hook): ...to here.  Add argument `args'.
* minibuffer.el (completion-in-region-functions): New hook.
(completion-in-region): New function.
* emacs-lisp/lisp.el (lisp-complete-symbol):
* pcomplete.el (pcomplete-std-complete): Use it.
This commit is contained in:
Stefan Monnier 2009-11-19 03:12:51 +00:00
parent 87e32266f0
commit a185548b1c
6 changed files with 92 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/emacs-lisp/lisp.el
View file

@ -647,17 +647,11 @@ considered."
;; Maybe a `let' varlist or something.
nil
;; Else, we assume that a function name is expected.
'fboundp)))))
(ol (make-overlay beg end nil nil t)))
(overlay-put ol 'field 'completion)
'fboundp))))))
(let ((completion-annotate-function
(unless (eq predicate 'fboundp)
(lambda (str) (if (fboundp (intern-soft str)) " <f>"))))
(minibuffer-completion-table obarray)
(minibuffer-completion-predicate predicate))
(unwind-protect
(call-interactively 'minibuffer-complete)
(delete-overlay ol)))))
(lambda (str) (if (fboundp (intern-soft str)) " <f>")))))
(completion-in-region beg end obarray predicate))))
;; arch-tag: aa7fa8a4-2e6f-4e9b-9cd9-fef06340e67e
;;; lisp.el ends here