(calc-describe-key): Use temporary info buffer to create a Calc

summary.

diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el
index 087c42d295c51d6004688d7304bad1c8cc46fc70..eb0cba79cd8cc4632d6f4421a2e5d141d7419932 100644 (file)
--- 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."
                       (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")