1 ;;; makesum.el --- generate key binding summary for Emacs
3 ;; Copyright (C) 1985 Free Software Foundation, Inc.
5 ;; This file is part of GNU Emacs.
7 ;; GNU Emacs is free software; you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation; either version 1, or (at your option)
12 ;; GNU Emacs is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 ;; GNU General Public License for more details.
17 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs; see the file COPYING. If not, write to
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23 (defun make-command-summary ()
24 "Make a summary of current key bindings in the buffer *Summary*.
25 Previous contents of that buffer are killed first."
27 (message "Making command summary...")
28 ;; This puts a description of bindings in a buffer called *Help*.
29 (save-window-excursion
31 (with-output-to-temp-buffer "*Summary*"
33 (let ((cur-mode mode-name
))
34 (set-buffer standard-output
)
36 (insert-buffer-substring "*Help*")
37 (goto-char (point-min))
38 (delete-region (point) (progn (forward-line 1) (point)))
39 (while (search-forward " " nil t
)
41 (goto-char (point-min))
42 (while (search-forward "-@ " nil t
)
43 (replace-match "-SP"))
44 (goto-char (point-min))
45 (while (search-forward " .. ~ " nil t
)
46 (replace-match "SP .. ~"))
47 (goto-char (point-min))
48 (while (search-forward "C-?" nil t
)
49 (replace-match "DEL"))
50 (goto-char (point-min))
51 (while (search-forward "C-i" nil t
)
52 (replace-match "TAB"))
53 (goto-char (point-min))
54 (if (re-search-forward "^Local Bindings:" nil t
)
57 (insert " for " cur-mode
" Mode")
58 (while (search-forward "??\n" nil t
)
59 (delete-region (point)
63 (goto-char (point-min))
64 (insert "Emacs command summary, " (substring (current-time-string) 0 10)
66 ;; Delete "key binding" and underlining of dashes.
67 (delete-region (point) (progn (forward-line 2) (point)))
68 (forward-line 1) ;Skip blank line
71 (or (re-search-forward "^$" nil t
)
72 (goto-char (point-max)))
73 (double-column beg
(point))
75 (goto-char (point-min)))))
76 (message "Making command summary...done"))
78 (defun double-column (start end
)
82 (from-end (- (point-max) end
)))
83 (setq nlines
(count-lines start end
))
86 (setq half
(/ (1+ nlines
) 2))
90 (while (< half nlines
)
92 (setq line
(buffer-substring (point) (save-excursion (end-of-line) (point))))
93 (setq lines
(cons line lines
))
94 (delete-region (point) (progn (forward-line 1) (point)))))
95 (setq lines
(nreverse lines
))
101 (setq lines
(cdr lines
))))
102 (goto-char (- (point-max) from-end
))))
104 ;;; makesum.el ends here