procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/lisp.el (lisp-complete-symbol, lisp-completion-at-point):

Browse source 
Fix typo.
This commit is contained in:
Stefan Monnier 2011-05-09 12:17:05 -03:00
parent 25fb3d747b
commit 3f254caa51
2 changed files with 27 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -624,7 +624,8 @@ considered."
(interactive)
(let* ((data (lisp-completion-at-point predicate))
(plist (nthcdr 3 data)))
(let ((completion-annotate-function (plist-get plist :annotate-function)))
(let ((completion-annotate-function
(plist-get plist :annotation-function)))
(completion-in-region (nth 0 data) (nth 1 data) (nth 2 data)
(plist-get plist :predicate)))))
@ -660,7 +661,7 @@ considered."
'fboundp))))))
(list beg end obarray
:predicate predicate
:annotate-function
:annotation-function
(unless (eq predicate 'fboundp)
(lambda (str) (if (fboundp (intern-soft str)) " <f>")))))))