Set calc-summary-indentation even when Calc Summary buffer exists.

7b907635 · Jay Belanger · 92dd6c93 · 7b907635
Commit 7b907635 authored Dec 07, 2004 by Jay Belanger
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 5 deletions

lisp/calc/calc-help.el lisp/calc/calc-help.el +6 -5

No files found.
--- a/lisp/calc/calc-help.el
+++ b/lisp/calc/calc-help.el
@@ -186,11 +186,12 @@ C-w  Describe how there is no warranty for Calc."
 				 (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)))