Mercurial > emacs
comparison lisp/calc/calc-help.el @ 59501:766a3686c3ae
(calc-describe-key): Use temporary info buffer to create a Calc
summary.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Wed, 12 Jan 2005 14:31:52 +0000 |
| parents | b6f65248543d |
| children | 4d497d47983e cb67264d6096 |
comparison
equal
deleted
inserted
replaced
| 59500:e7064c8273f5 | 59501:766a3686c3ae |
|---|---|
| 176 (let ((msg (save-excursion | 176 (let ((msg (save-excursion |
| 177 (set-buffer (get-buffer-create "*Calc Summary*")) | 177 (set-buffer (get-buffer-create "*Calc Summary*")) |
| 178 (if (= (buffer-size) 0) | 178 (if (= (buffer-size) 0) |
| 179 (progn | 179 (progn |
| 180 (message "Reading Calc summary from manual...") | 180 (message "Reading Calc summary from manual...") |
| 181 (save-window-excursion | 181 (require 'info nil t) |
| 182 (save-excursion | 182 (with-temp-buffer |
| 183 (calc-info-goto-node "Summary") | 183 (Info-mode) |
| 184 (goto-char (point-min)) | 184 (Info-goto-node "(Calc)Summary") |
| 185 (forward-line 1) | 185 (goto-char (point-min)) |
| 186 (copy-to-buffer "*Calc Summary*" | 186 (forward-line 1) |
| 187 (point) (point-max)) | 187 (copy-to-buffer "*Calc Summary*" |
| 188 (if Info-history | 188 (point) (point-max))) |
| 189 (Info-last)))))) | 189 (setq buffer-read-only t))) |
| 190 (goto-char (point-min)) | 190 (goto-char (point-min)) |
| 191 (setq case-fold-search nil) | 191 (setq case-fold-search nil) |
| 192 (re-search-forward "^\\(.*\\)\\[\\.\\. a b") | 192 (re-search-forward "^\\(.*\\)\\[\\.\\. a b") |
| 193 (setq calc-summary-indentation | 193 (setq calc-summary-indentation |
| 194 (- (match-end 1) (match-beginning 1))) | 194 (- (match-end 1) (match-beginning 1))) |