Mercurial > emacs

comparison lisp/emacs-lisp/lisp.el @ 16494:3f971c7163fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(lisp-complete-symbol): Sort the list.
author Richard M. Stallman <rms@gnu.org>
date Fri, 01 Nov 1996 08:19:07 +0000
parents 454a13718b1f
children b11021ca3525
comparison
equal deleted inserted replaced
16493:bdca7f3626c0 16494:3f971c7163fb
297 (completion-fixup-function 297 (completion-fixup-function
298 (function (lambda () (if (save-excursion 298 (function (lambda () (if (save-excursion
299 (goto-char (max (point-min) (- (point) 4))) 299 (goto-char (max (point-min) (- (point) 4)))
300 (looking-at " <f>")) 300 (looking-at " <f>"))
301 (forward-char -4)))))) 301 (forward-char -4))))))
302 (setq list (sort list 'string<))
302 (or (eq predicate 'fboundp) 303 (or (eq predicate 'fboundp)
303 (let (new) 304 (let (new)
304 (while list 305 (while list
305 (setq new (cons (if (fboundp (intern (car list))) 306 (setq new (cons (if (fboundp (intern (car list)))
306 (list (car list) " <f>") 307 (list (car list) " <f>")