From 3f254caa518753c50a49361719ccd6a25dfff0f9 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 9 May 2011 12:17:05 -0300 Subject: * lisp/emacs-lisp/lisp.el (lisp-complete-symbol, lisp-completion-at-point): Fix typo. --- lisp/emacs-lisp/lisp.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp/lisp.el') 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)) " "))))))) -- cgit v1.2.3