Mercurial > emacs
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)))