Mercurial > emacs
changeset 108321:497767b878dc
* emacs-lisp/lisp.el (lisp-completion-at-point): Give it a doc string.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Tue, 20 Apr 2010 00:54:28 -0700 |
parents | a7c97cc14b52 |
children | a70c2c59b3f6 |
files | lisp/ChangeLog lisp/emacs-lisp/lisp.el |
diffstat | 2 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Apr 20 00:37:20 2010 -0700 +++ b/lisp/ChangeLog Tue Apr 20 00:54:28 2010 -0700 @@ -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>
--- a/lisp/emacs-lisp/lisp.el Tue Apr 20 00:37:20 2010 -0700 +++ b/lisp/emacs-lisp/lisp.el Tue Apr 20 00:54:28 2010 -0700 @@ -627,9 +627,10 @@ (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