diff options
| author | Jay Belanger | 2005-01-12 14:31:52 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-01-12 14:31:52 +0000 |
| commit | fcda5138f2d4af0eb142c5c27c61d2364f3e3222 (patch) | |
| tree | f4e741f7e1005df56221f67bb3732d3b4a5abc0a | |
| parent | b41a40196b340cd97700dacbdfc90d7c8393eb38 (diff) | |
| download | emacs-fcda5138f2d4af0eb142c5c27c61d2364f3e3222.tar.gz emacs-fcda5138f2d4af0eb142c5c27c61d2364f3e3222.zip | |
(calc-describe-key): Use temporary info buffer to create a Calc
summary.
| -rw-r--r-- | lisp/calc/calc-help.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index 087c42d295c..eb0cba79cd8 100644 --- a/lisp/calc/calc-help.el +++ b/lisp/calc/calc-help.el | |||
| @@ -178,15 +178,15 @@ C-w Describe how there is no warranty for Calc." | |||
| 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") |