Mercurial > hg > xemacs-beta

comparison lisp/packages/makesum.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children ac2d302a0011
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;;; makesum.el --- generate key binding summary for Emacs
2
3 ;; Copyright (C) 1985 Free Software Foundation, Inc.
4
5 ;; Maintainer: FSF
6 ;; Keywords: help
7
8 ;; This file is part of XEmacs.
9
10 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23
24 ;;; Synched up with: FSF 19.30.
25
26 ;;; Commentary:
27
28 ;; Displays a nice human-readable summary of all keybindings in a
29 ;; two-column format.
30
31 ;;; Code:
32
33 ;;;###autoload
34 (defun make-command-summary ()
35 "Make a summary of current key bindings in the buffer *Summary*.
36 Previous contents of that buffer are killed first."
37 (interactive)
38 (message "Making command summary...")
39 ;; This puts a description of bindings in a buffer called *Help*.
40 (save-window-excursion
41 (describe-bindings))
42 (with-output-to-temp-buffer "*Summary*"
43 (save-excursion
44 (let ((cur-mode mode-name))
45 (set-buffer standard-output)
46 (erase-buffer)
47 (insert-buffer-substring "*Help*")
48 (goto-char (point-min))
49 (delete-region (point) (progn (forward-line 1) (point)))
50 (while (search-forward " " nil t)
51 (replace-match " "))
52 (goto-char (point-min))
53 (while (search-forward "-@ " nil t)
54 (replace-match "-SP"))
55 (goto-char (point-min))
56 (while (search-forward " .. ~ " nil t)
57 (replace-match "SP .. ~"))
58 (goto-char (point-min))
59 (while (search-forward "C-?" nil t)
60 (replace-match "DEL"))
61 (goto-char (point-min))
62 (while (search-forward "C-i" nil t)
63 (replace-match "TAB"))
64 (goto-char (point-min))
65 (if (re-search-forward "^Local Bindings:" nil t)
66 (progn
67 (forward-char -1)
68 (insert " for " cur-mode " Mode")
69 (while (search-forward "??\n" nil t)
70 (delete-region (point)
71 (progn
72 (forward-line -1)
73 (point))))))
74 (goto-char (point-min))
75 (insert "Emacs command summary, " (substring (current-time-string) 0 10)
76 ".\n")
77 ;; Delete "key binding" and underlining of dashes.
78 (delete-region (point) (progn (forward-line 2) (point)))
79 (forward-line 1) ;Skip blank line
80 (while (not (eobp))
81 (let ((beg (point)))
82 (or (re-search-forward "^$" nil t)
83 (goto-char (point-max)))
84 (double-column beg (point))
85 (forward-line 1)))
86 (goto-char (point-min)))))
87 (message "Making command summary...done"))
88
89 (defun double-column (start end)
90 (interactive "r")
91 (let (half cnt
92 line lines nlines
93 (from-end (- (point-max) end)))
94 (setq nlines (count-lines start end))
95 (if (<= nlines 1)
96 nil
97 (setq half (/ (1+ nlines) 2))
98 (goto-char start)
99 (save-excursion
100 (forward-line half)
101 (while (< half nlines)
102 (setq half (1+ half))
103 (setq line (buffer-substring (point) (save-excursion (end-of-line) (point))))
104 (setq lines (cons line lines))
105 (delete-region (point) (progn (forward-line 1) (point)))))
106 (setq lines (nreverse lines))
107 (while lines
108 (end-of-line)
109 (indent-to 41 1)
110 (insert (car lines))
111 (forward-line 1)
112 (setq lines (cdr lines))))
113 (goto-char (- (point-max) from-end))))
114
115 ;;; makesum.el ends here