Mercurial > emacs
changeset 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 | e7064c8273f5 |
| children | df1403831a1e |
| files | lisp/calc/calc-help.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-help.el Wed Jan 12 10:54:02 2005 +0000 +++ b/lisp/calc/calc-help.el Wed Jan 12 14:31:52 2005 +0000 @@ -178,15 +178,15 @@ (if (= (buffer-size) 0) (progn (message "Reading Calc summary from manual...") - (save-window-excursion - (save-excursion - (calc-info-goto-node "Summary") - (goto-char (point-min)) - (forward-line 1) - (copy-to-buffer "*Calc Summary*" - (point) (point-max)) - (if Info-history - (Info-last)))))) + (require 'info nil t) + (with-temp-buffer + (Info-mode) + (Info-goto-node "(Calc)Summary") + (goto-char (point-min)) + (forward-line 1) + (copy-to-buffer "*Calc Summary*" + (point) (point-max))) + (setq buffer-read-only t))) (goto-char (point-min)) (setq case-fold-search nil) (re-search-forward "^\\(.*\\)\\[\\.\\. a b")