mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(calc-describe-key): Use temporary info buffer to create a Calc

Browse Source 
summary.
This commit is contained in:
Jay Belanger 2005-01-12 14:31:52 +00:00
parent b41a40196b
commit fcda5138f2
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/calc/calc-help.el
View File

@ -178,15 +178,15 @@ C-w Describe how there is no warranty for Calc."
(if (= (buffer-size) 0)
(progn
(message "Reading Calc summary from manual...")
(save-window-excursion
(save-excursion
(calc-info-goto-node "Summary")
(goto-char (point-min))
(forward-line 1)
(copy-to-buffer "*Calc Summary*"
(point) (point-max))
(if Info-history
(Info-last))))))
(require 'info nil t)
(with-temp-buffer
(Info-mode)
(Info-goto-node "(Calc)Summary")
(goto-char (point-min))
(forward-line 1)
(copy-to-buffer "*Calc Summary*"
(point) (point-max)))
(setq buffer-read-only t)))
(goto-char (point-min))
(setq case-fold-search nil)
(re-search-forward "^\\(.*\\)\\[\\.\\. a b")