diff options
author | Jay Belanger <jay.p.belanger@gmail.com> | 2004-12-07 04:24:28 +0000 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2004-12-07 04:24:28 +0000 |
commit | 7b90763521a3778585f2e568726a9cf1b115de70 (patch) | |
tree | e182febd59983218aa5540fd5bd54890de358f91 /lisp/calc/calc-help.el | |
parent | 92dd6c93c014de935497de3124b43c83489d9057 (diff) | |
download | emacs-7b90763521a3778585f2e568726a9cf1b115de70.tar.gz |
Set calc-summary-indentation even when Calc Summary buffer exists.
Diffstat (limited to 'lisp/calc/calc-help.el')
-rw-r--r-- | lisp/calc/calc-help.el | 11 |
1 files changed, 6 insertions, 5 deletions
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))) |