Return to abbrevlist.el CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp

Annotation of 43BSDReno/contrib/emacs-18.55/lisp/abbrevlist.el, revision 1.1

1.1     ! root        1: ;; List one abbrev table alphabetically ordered.
        !             2: ;; Copyright (C) 1986 Free Software Foundation, Inc.
        !             3: ;; Suggested by a previous version by Gildea.
        !             4: 
        !             5: ;; This file is part of GNU Emacs.
        !             6: 
        !             7: ;; GNU Emacs is distributed in the hope that it will be useful,
        !             8: ;; but WITHOUT ANY WARRANTY.  No author or distributor
        !             9: ;; accepts responsibility to anyone for the consequences of using it
        !            10: ;; or for whether it serves any particular purpose or works at all,
        !            11: ;; unless he says so in writing.  Refer to the GNU Emacs General Public
        !            12: ;; License for full details.
        !            13: 
        !            14: ;; Everyone is granted permission to copy, modify and redistribute
        !            15: ;; GNU Emacs, but only under the conditions described in the
        !            16: ;; GNU Emacs General Public License.   A copy of this license is
        !            17: ;; supposed to have been given to you along with GNU Emacs so you
        !            18: ;; can know your rights and responsibilities.  It should be in a
        !            19: ;; file named COPYING.  Among other things, the copyright notice
        !            20: ;; and this notice must be preserved on all copies.
        !            21: 
        !            22: 
        !            23: (provide 'abbrevlist)
        !            24: 
        !            25: (defun list-one-abbrev-table (abbrev-table output-buffer)
        !            26:   "Display alphabetical listing of ABBREV-TABLE in buffer BUFFER."
        !            27:   (with-output-to-temp-buffer output-buffer
        !            28:     (save-excursion
        !            29:       (let ((abbrev-list nil) (first-column 0))
        !            30:        (set-buffer standard-output)
        !            31:        (mapatoms 
        !            32:          (function (lambda (abbrev)
        !            33:                      (setq abbrev-list (cons abbrev abbrev-list))))
        !            34:          abbrev-table)
        !            35:        (setq abbrev-list (sort abbrev-list 'string-lessp))
        !            36:        (while abbrev-list
        !            37:          (if (> (+ first-column 40) (screen-width))
        !            38:              (progn
        !            39:                (insert "\n")
        !            40:                (setq first-column 0)))
        !            41:          (indent-to first-column)
        !            42:          (insert (symbol-name (car abbrev-list)))
        !            43:          (indent-to (+ first-column 8))
        !            44:          (insert (symbol-value (car abbrev-list)))
        !            45:          (setq first-column (+ first-column 40))
        !            46:          (setq abbrev-list (cdr abbrev-list)))))))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.