From 7b90763521a3778585f2e568726a9cf1b115de70 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Tue, 7 Dec 2004 04:24:28 +0000 Subject: Set calc-summary-indentation even when Calc Summary buffer exists. --- lisp/calc/calc-help.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lisp/calc/calc-help.el') diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index 660e4c37bcc..087c42d295c 100644 --- 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))) -- cgit v1.2.1