changeset 58811:b6f65248543d

Set calc-summary-indentation even when Calc Summary buffer exists.
author Jay Belanger <jay.p.belanger@gmail.com>
date Tue, 07 Dec 2004 04:24:28 +0000
parents 9fcc0f024a83
children 6e9341215026
files lisp/calc/calc-help.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-help.el	Tue Dec 07 00:58:02 2004 +0000
+++ b/lisp/calc/calc-help.el	Tue Dec 07 04:24:28 2004 +0000
@@ -186,11 +186,12 @@
 				 (copy-to-buffer "*Calc Summary*"
 						 (point) (point-max))
                                  (if Info-history
-                                     (Info-last))))
-			     (setq case-fold-search nil)
-			     (re-search-forward "^\\(.*\\)\\[\\.\\. a b")
-			     (setq calc-summary-indentation
-				   (- (match-end 1) (match-beginning 1)))))
+                                     (Info-last))))))
+                       (goto-char (point-min))
+                       (setq case-fold-search nil)
+                       (re-search-forward "^\\(.*\\)\\[\\.\\. a b")
+                       (setq calc-summary-indentation
+                             (- (match-end 1) (match-beginning 1)))
 		       (goto-char (point-min))
 		       (setq target (if (and (string-match "[0-9]\\'" desc)
 					     (not (string-match "[d#]" desc)))