* emacs-lisp/lisp.el (lisp-completion-at-point): Give it a doc string.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46196e85a650887c5c809c759073a5ced0ecb6df..f0eb059642edb14cd847b3256a1ff3213287fb38 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-04-20  Glenn Morris  <rgm@gnu.org>
 
+       * emacs-lisp/lisp.el (lisp-completion-at-point): Give it a doc string.
+
        * minibuffer.el (completion-at-point): Doc fix.
 
 2010-04-18  Chong Yidong  <cyd@stupidchicken.com>

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index da482e715b14ce450710159cc56a6bcebaabc482..54fa4d615cd5bf2c5810ac04dbbd7c3f96f14c17 100644 (file)
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -627,9 +627,10 @@ considered."
     (let ((completion-annotate-function (plist-get plist :annotate-function)))
       (completion-in-region (nth 0 data) (nth 1 data) (nth 2 data)
                             (plist-get plist :predicate)))))
-    
+
 
 (defun lisp-completion-at-point (&optional predicate)
+  "Function used for `completion-at-point-functions' in `emacs-lisp-mode'."
   ;; FIXME: the `end' could be after point?
   (let* ((end (point))
          (beg (with-syntax-table emacs-lisp-mode-syntax-table