Mercurial > emacs
comparison lisp/calc/calc-help.el @ 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 | 8564d764ff4d |
| children | 766a3686c3ae f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
| 58810:9fcc0f024a83 | 58811:b6f65248543d |
|---|---|
| 184 (goto-char (point-min)) | 184 (goto-char (point-min)) |
| 185 (forward-line 1) | 185 (forward-line 1) |
| 186 (copy-to-buffer "*Calc Summary*" | 186 (copy-to-buffer "*Calc Summary*" |
| 187 (point) (point-max)) | 187 (point) (point-max)) |
| 188 (if Info-history | 188 (if Info-history |
| 189 (Info-last)))) | 189 (Info-last)))))) |
| 190 (setq case-fold-search nil) | 190 (goto-char (point-min)) |
| 191 (re-search-forward "^\\(.*\\)\\[\\.\\. a b") | 191 (setq case-fold-search nil) |
| 192 (setq calc-summary-indentation | 192 (re-search-forward "^\\(.*\\)\\[\\.\\. a b") |
| 193 (- (match-end 1) (match-beginning 1))))) | 193 (setq calc-summary-indentation |
| 194 (- (match-end 1) (match-beginning 1))) | |
| 194 (goto-char (point-min)) | 195 (goto-char (point-min)) |
| 195 (setq target (if (and (string-match "[0-9]\\'" desc) | 196 (setq target (if (and (string-match "[0-9]\\'" desc) |
| 196 (not (string-match "[d#]" desc))) | 197 (not (string-match "[d#]" desc))) |
| 197 (concat (substring desc 0 -1) "0-9") | 198 (concat (substring desc 0 -1) "0-9") |
| 198 desc)) | 199 desc)) |