diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-11 21:26:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-11 21:26:44 +0000 |
| commit | 52ae2b425612bea551fac9d3274d8a9e6ed257f2 (patch) | |
| tree | e7baebb06b6e4b8a9ca1d01b035aff3ac38d33e0 /lisp/emacs-lisp/lisp.el | |
| parent | 9a43a5943dc93b301ef109ce77af00ac42b4bf3f (diff) | |
| download | emacs-52ae2b425612bea551fac9d3274d8a9e6ed257f2.tar.gz emacs-52ae2b425612bea551fac9d3274d8a9e6ed257f2.tar.bz2 emacs-52ae2b425612bea551fac9d3274d8a9e6ed257f2.zip | |
(lisp-complete-symbol): Bind completion-fixup-function.
Diffstat (limited to 'lisp/emacs-lisp/lisp.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index d6f3e4afb8d..07a22698c6e 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -277,7 +277,12 @@ function definitions, values or properties are considered." (insert completion)) (t (message "Making completion list...") - (let ((list (all-completions pattern obarray predicate))) + (let ((list (all-completions pattern obarray predicate)) + (completion-fixup-function + (function (lambda () (if (save-excursion + (goto-char (max (point-min) (- (point) 4))) + (looking-at " <f>")) + (forward-char -4)))))) (or (eq predicate 'fboundp) (let (new) (while list |