Mercurial > emacs

comparison lisp/calc/calc-help.el @ 90072:cb67264d6096

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-2 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-83 - miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-84 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-3 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-4 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-5 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-6 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-11 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-12 Remove "-face" suffix from lazy-highlight face name * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-13 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-16 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-17 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-18 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-21 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-22 <no summary provided> * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-23 - miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-39 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-40 Fix regressions from latest reftex update * miles@gnu.org--gnu-2005/gnus--rel--5.10--base-0 tag of miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-82 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-1 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-2 Merge from miles@gnu.org--gnu-2004 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-3 Merge from emacs--cvs-trunk--0
author Miles Bader <miles@gnu.org>
date Sun, 16 Jan 2005 03:40:12 +0000
parents f2ebccfa87d4 766a3686c3ae
children fa9654493afb
comparison
equal deleted inserted replaced
90071:f6b4d0ebf147 90072:cb67264d6096
176 (let ((msg (save-excursion 176 (let ((msg (save-excursion
177 (set-buffer (get-buffer-create "*Calc Summary*")) 177 (set-buffer (get-buffer-create "*Calc Summary*"))
178 (if (= (buffer-size) 0) 178 (if (= (buffer-size) 0)
179 (progn 179 (progn
180 (message "Reading Calc summary from manual...") 180 (message "Reading Calc summary from manual...")
181 (save-window-excursion 181 (require 'info nil t)
182 (save-excursion 182 (with-temp-buffer
183 (calc-info-goto-node "Summary") 183 (Info-mode)
184 (goto-char (point-min)) 184 (Info-goto-node "(Calc)Summary")
185 (forward-line 1) 185 (goto-char (point-min))
186 (copy-to-buffer "*Calc Summary*" 186 (forward-line 1)
187 (point) (point-max)) 187 (copy-to-buffer "*Calc Summary*"
188 (if Info-history 188 (point) (point-max)))
189 (Info-last)))))) 189 (setq buffer-read-only t)))
190 (goto-char (point-min)) 190 (goto-char (point-min))
191 (setq case-fold-search nil) 191 (setq case-fold-search nil)
192 (re-search-forward "^\\(.*\\)\\[\\.\\. a b") 192 (re-search-forward "^\\(.*\\)\\[\\.\\. a b")
193 (setq calc-summary-indentation 193 (setq calc-summary-indentation
194 (- (match-end 1) (match-beginning 1))) 194 (- (match-end 1) (match-beginning 1)))