diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-09 12:17:05 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-09 12:17:05 -0300 |
| commit | 3f254caa518753c50a49361719ccd6a25dfff0f9 (patch) | |
| tree | 9145f359d83bd7705ee31b75b75aafddfda8facc /lisp/emacs-lisp | |
| parent | 25fb3d747b89eea898f870fcd1770e6c12830ebb (diff) | |
| download | emacs-3f254caa518753c50a49361719ccd6a25dfff0f9.tar.gz emacs-3f254caa518753c50a49361719ccd6a25dfff0f9.tar.bz2 emacs-3f254caa518753c50a49361719ccd6a25dfff0f9.zip | |
* lisp/emacs-lisp/lisp.el (lisp-complete-symbol, lisp-completion-at-point):
Fix typo.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 822c2d30fbe..1f1fa16108f 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -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>"))))))) |