Mercurial > emacs

comparison lisp/abbrevlist.el @ 777:c99faf9381bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Wed, 15 Jul 1992 00:32:19 +0000
parents 8a533acedb77
children 4f28bd14272c
comparison
equal deleted inserted replaced
776:a1d724d96f6b 777:c99faf9381bb
30 (function (lambda (abbrev) 30 (function (lambda (abbrev)
31 (setq abbrev-list (cons abbrev abbrev-list)))) 31 (setq abbrev-list (cons abbrev abbrev-list))))
32 abbrev-table) 32 abbrev-table)
33 (setq abbrev-list (sort abbrev-list 'string-lessp)) 33 (setq abbrev-list (sort abbrev-list 'string-lessp))
34 (while abbrev-list 34 (while abbrev-list
35 (if (> (+ first-column 40) (screen-width)) 35 (if (> (+ first-column 40) (frame-width))
36 (progn 36 (progn
37 (insert "\n") 37 (insert "\n")
38 (setq first-column 0))) 38 (setq first-column 0)))
39 (indent-to first-column) 39 (indent-to first-column)
40 (insert (symbol-name (car abbrev-list))) 40 (insert (symbol-name (car abbrev-list)))