diff options
Diffstat (limited to 'lisp/obsolete/abbrevlist.el')
-rw-r--r-- | lisp/obsolete/abbrevlist.el | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/lisp/obsolete/abbrevlist.el b/lisp/obsolete/abbrevlist.el new file mode 100644 index 0000000000..55940dfc1c --- /dev/null +++ b/lisp/obsolete/abbrevlist.el @@ -0,0 +1,56 @@ +;;; abbrevlist.el --- list one abbrev table alphabetically ordered + +;; Copyright (C) 1986, 1992, 2001-2011 Free Software Foundation, Inc. +;; Suggested by a previous version by Gildea. + +;; Maintainer: FSF +;; Keywords: abbrev +;; Package: emacs +;; Obsolete-since: 24.1 + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + +;;; Code: + +;;;###autoload +(defun list-one-abbrev-table (abbrev-table output-buffer) + "Display alphabetical listing of ABBREV-TABLE in buffer OUTPUT-BUFFER." + (with-output-to-temp-buffer output-buffer + (save-excursion + (let ((abbrev-list nil) (first-column 0)) + (set-buffer standard-output) + (mapatoms + (function (lambda (abbrev) + (setq abbrev-list (cons abbrev abbrev-list)))) + abbrev-table) + (setq abbrev-list (sort abbrev-list 'string-lessp)) + (while abbrev-list + (if (> (+ first-column 40) (window-width)) + (progn + (insert "\n") + (setq first-column 0))) + (indent-to first-column) + (insert (symbol-name (car abbrev-list))) + (indent-to (+ first-column 8)) + (insert (symbol-value (car abbrev-list))) + (setq first-column (+ first-column 40)) + (setq abbrev-list (cdr abbrev-list))))))) + +(provide 'abbrevlist) + +;;; abbrevlist.el ends here |