Mercurial > emacs
annotate lisp/abbrevlist.el @ 60428:2e103c7354f7
(Glossary): Rename "Balance Parentheses" to "Balancing...".
Add "Byte Compilation". Correct "Copyleft".
New xref in "Customization".
Clarify "Current Line", "Echoing", "Fringe", "Frame", "Speedbar".
Add "Graphical Terminal" "Keybinding", "Margin", "Window System".
Rename "Registers" to "Register".
Replace "Selecting" with "Selected Frame",
"Selected Window", and "Selecting a Buffer".
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 06 Mar 2005 17:24:24 +0000 |
parents | b4c64a995036 |
children | 6fb026ad601f |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
14169
diff
changeset
|
1 ;;; abbrevlist.el --- list one abbrev table alphabetically ordered |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
2 |
584 | 3 ;; Copyright (C) 1986, 1992 Free Software Foundation, Inc. |
170 | 4 ;; Suggested by a previous version by Gildea. |
2247
2c7997f249eb
Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
5 |
845 | 6 ;; Maintainer: FSF |
2247
2c7997f249eb
Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
7 ;; Keywords: abbrev |
170 | 8 |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
777
diff
changeset
|
13 ;; the Free Software Foundation; either version 2, or (at your option) |
170 | 14 ;; any later version. |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
170 | 25 |
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
14169
diff
changeset
|
26 ;;; Commentary: |
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
14169
diff
changeset
|
27 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
777
diff
changeset
|
28 ;;; Code: |
170 | 29 |
30 (defun list-one-abbrev-table (abbrev-table output-buffer) | |
31 "Display alphabetical listing of ABBREV-TABLE in buffer OUTPUT-BUFFER." | |
32 (with-output-to-temp-buffer output-buffer | |
33 (save-excursion | |
34 (let ((abbrev-list nil) (first-column 0)) | |
35 (set-buffer standard-output) | |
42561
d0f023f30837
Remove unnecessary whitespace.
Pavel Janík <Pavel@Janik.cz>
parents:
38412
diff
changeset
|
36 (mapatoms |
170 | 37 (function (lambda (abbrev) |
38 (setq abbrev-list (cons abbrev abbrev-list)))) | |
39 abbrev-table) | |
40 (setq abbrev-list (sort abbrev-list 'string-lessp)) | |
41 (while abbrev-list | |
54517
b4c64a995036
(list-one-abbrev-table): Use window-width instead of frame-width.
Juri Linkov <juri@jurta.org>
parents:
52401
diff
changeset
|
42 (if (> (+ first-column 40) (window-width)) |
170 | 43 (progn |
44 (insert "\n") | |
45 (setq first-column 0))) | |
46 (indent-to first-column) | |
47 (insert (symbol-name (car abbrev-list))) | |
48 (indent-to (+ first-column 8)) | |
49 (insert (symbol-value (car abbrev-list))) | |
50 (setq first-column (+ first-column 40)) | |
51 (setq abbrev-list (cdr abbrev-list))))))) | |
584 | 52 |
53 (provide 'abbrevlist) | |
54 | |
52401 | 55 ;;; arch-tag: 178f0638-6597-4c16-bcee-576c3d8e9217 |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
56 ;;; abbrevlist.el ends here |