mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(calc-view-news): Let-bind inhibit-read-only to t, use help-mode.

Browse Source
This commit is contained in:
Jay Belanger 2005-04-25 19:42:44 +00:00
parent c9b630f7f2
commit d9bc5288da
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -393,12 +393,14 @@ C-w Describe how there is no warranty for Calc."
(error "Can't locate Calc sources"))
(calc-quit)
(switch-to-buffer "*Help*")
(erase-buffer)
(insert-file-contents (expand-file-name "README" (car path)))
(search-forward "Summary of changes")
(forward-line -1)
(delete-region (point-min) (point))
(goto-char (point-min))))
(let ((inhibit-read-only t))
(erase-buffer)
(insert-file-contents (expand-file-name "README" (car path)))
(search-forward "Summary of changes")
(forward-line -1)
(delete-region (point-min) (point))
(goto-char (point-min)))
(help-mode)))
(defvar calc-help-long-names '((?b . "binary/business")
(?g . "graphics")