Commit 52ae2b42 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 9a43a594
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment