Mercurial > emacs

comparison lisp/calc/calc-help.el @ 57576:5e8a69bc2cfa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-describe-bindings): Set `buffer-read-only' to nil while working in the keybindings buffer; remove some extra information from the keybindings buffer.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 18 Oct 2004 19:13:16 +0000
parents cadf61c7f4eb
children 0dd4932a3caa
comparison
equal deleted inserted replaced
57575:da44dbb5ee89 57576:5e8a69bc2cfa
110 (defun calc-describe-bindings () 110 (defun calc-describe-bindings ()
111 (interactive) 111 (interactive)
112 (describe-bindings) 112 (describe-bindings)
113 (save-excursion 113 (save-excursion
114 (set-buffer "*Help*") 114 (set-buffer "*Help*")
115 (goto-char (point-min)) 115 (let ((buffer-read-only nil))
116 (if (search-forward "Global bindings:" nil t) 116 (goto-char (point-min))
117 (delete-region (match-beginning 0) (point-max))) 117 (when (search-forward "Major Mode Bindings:" nil t)
118 (goto-char (point-min)) 118 (delete-region (point-min) (point))
119 (while (re-search-forward "\n[a-z] ESC" nil t) 119 (insert "Calc Mode Bindings:"))
120 (end-of-line) 120 (when (search-forward "Global bindings:" nil t)
121 (delete-region (match-beginning 0) (point))) 121 (forward-line -1)
122 (goto-char (point-min)) 122 (delete-region (point) (point-max)))
123 (while (re-search-forward "\nESC m" nil t) 123 (goto-char (point-min))
124 (end-of-line) 124 (while
125 (delete-region (match-beginning 0) (point))) 125 (re-search-forward
126 (goto-char (point-min)) 126 "\n[a-z] [0-9]\\( .*\n\\)\\([a-z] [0-9]\\1\\)*[a-z] \\([0-9]\\)\\1"
127 (while (search-forward "\n\n\n" nil t) 127 nil t)
128 (backward-delete-char 1) 128 (let ((dig1 (char-after (1- (match-beginning 1))))
129 (backward-char 2)) 129 (dig2 (char-after (match-beginning 3))))
130 (goto-char (point-min)) 130 (delete-region (match-end 1) (match-end 0))
131 (while 131 (goto-char (match-beginning 1))
132 (re-search-forward 132 (delete-backward-char 1)
133 "\n[a-z] [0-9]\\(\t\t.*\n\\)\\([a-z] [0-9]\\1\\)*[a-z] \\([0-9]\\)\\1" 133 (delete-char 5)
134 nil t) 134 (insert (format "%c .. %c" (min dig1 dig2) (max dig1 dig2)))))
135 (let ((dig1 (char-after (1- (match-beginning 1)))) 135 (goto-char (point-min)))))
136 (dig2 (char-after (match-beginning 3))))
137 (delete-region (match-end 1) (match-end 0))
138 (goto-char (match-beginning 1))
139 (delete-backward-char 1)
140 (delete-char 1)
141 (insert (format "%c .. %c" (min dig1 dig2) (max dig1 dig2)))))
142 (goto-char (point-min))))
143 136
144 (defun calc-describe-key-briefly (key) 137 (defun calc-describe-key-briefly (key)
145 (interactive "kDescribe key briefly: ") 138 (interactive "kDescribe key briefly: ")
146 (calc-describe-key key t)) 139 (calc-describe-key key t))
147 140