Mercurial > emacs

comparison lisp/emacs-lisp/lisp.el @ 23451:4b8c40cf1931

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lisp-complete-symbol): Don't bind completion-fixup-function.
author Richard M. Stallman <rms@gnu.org>
date Tue, 13 Oct 1998 23:56:32 +0000
parents a517c846d04e
children f132d890985a
comparison
equal deleted inserted replaced
23450:085606778286 23451:4b8c40cf1931
314 ((not (string= pattern completion)) 314 ((not (string= pattern completion))
315 (delete-region beg end) 315 (delete-region beg end)
316 (insert completion)) 316 (insert completion))
317 (t 317 (t
318 (message "Making completion list...") 318 (message "Making completion list...")
319 (let ((list (all-completions pattern obarray predicate)) 319 (let ((list (all-completions pattern obarray predicate)))
320 (completion-fixup-function
321 (function (lambda () (if (save-excursion
322 (goto-char (max (point-min) (- (point) 4)))
323 (looking-at " <f>"))
324 (forward-char -4))))))
325 (setq list (sort list 'string<)) 320 (setq list (sort list 'string<))
326 (or (eq predicate 'fboundp) 321 (or (eq predicate 'fboundp)
327 (let (new) 322 (let (new)
328 (while list 323 (while list
329 (setq new (cons (if (fboundp (intern (car list))) 324 (setq new (cons (if (fboundp (intern (car list)))