From cb5af48e50b716a2ee017e29a3e88edcf17e276f Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Thu, 24 Mar 2011 02:11:15 +0800 Subject: Move abbrevlist.el to obsolete/abbrevlist.el --- lisp/obsolete/abbrevlist.el | 56 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) create mode 100644 lisp/obsolete/abbrevlist.el (limited to 'lisp/obsolete/abbrevlist.el') diff --git a/lisp/obsolete/abbrevlist.el b/lisp/obsolete/abbrevlist.el new file mode 100644 index 00000000000..55940dfc1ce --- /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 . + +;;; 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 -- cgit v1.2.3