/[emacs]/emacs/lisp/calc/calc-help.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-help.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by jpb, Tue Nov 30 17:11:37 2004 UTC revision 1.14 by jpb, Tue Dec 7 04:24:28 2004 UTC
# Line 186  C-w  Describe how there is no warranty f Line 186  C-w  Describe how there is no warranty f
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)))

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26