186 |
(copy-to-buffer "*Calc Summary*" |
(copy-to-buffer "*Calc Summary*" |
187 |
(point) (point-max)) |
(point) (point-max)) |
188 |
(if Info-history |
(if Info-history |
189 |
(Info-last)))) |
(Info-last)))))) |
190 |
(setq case-fold-search nil) |
(goto-char (point-min)) |
191 |
(re-search-forward "^\\(.*\\)\\[\\.\\. a b") |
(setq case-fold-search nil) |
192 |
(setq calc-summary-indentation |
(re-search-forward "^\\(.*\\)\\[\\.\\. a b") |
193 |
(- (match-end 1) (match-beginning 1))))) |
(setq calc-summary-indentation |
194 |
|
(- (match-end 1) (match-beginning 1))) |
195 |
(goto-char (point-min)) |
(goto-char (point-min)) |
196 |
(setq target (if (and (string-match "[0-9]\\'" desc) |
(setq target (if (and (string-match "[0-9]\\'" desc) |
197 |
(not (string-match "[d#]" desc))) |
(not (string-match "[d#]" desc))) |