procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lisp-complete-symbol): Bind completion-fixup-function.

Browse source
This commit is contained in:
Richard M. Stallman 1994-07-11 21:26:44 +00:00
parent 9a43a5943d
commit 52ae2b4256
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/lisp.el
View file

@ -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