From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Wed, 12 Jan 2005 14:31:52 +0000 (+0000)
Subject: (calc-describe-key): Use temporary info buffer to create a Calc
X-Git-Tag: ttn-vms-21-2-B4~2794
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcda5138f2d4af0eb142c5c27c61d2364f3e3222;p=emacs.git

(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 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."
 		       (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")