diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-04-25 19:42:44 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-04-25 19:42:44 +0000 |
| commit | d9bc5288daee24f357665129409b8894f1073917 (patch) | |
| tree | b8715fe1aeaefbdc3f0e96527958f2e12bb970ab /lisp/calc/calc-help.el | |
| parent | c9b630f7f218cfb2231504c8fe63004d7aad0bf8 (diff) | |
| download | emacs-d9bc5288daee24f357665129409b8894f1073917.tar.gz | |
(calc-view-news): Let-bind inhibit-read-only to t, use help-mode.
Diffstat (limited to 'lisp/calc/calc-help.el')
| -rw-r--r-- | lisp/calc/calc-help.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index 46b8cec2ac6..2a89bb2b883 100644 --- a/lisp/calc/calc-help.el +++ b/lisp/calc/calc-help.el @@ -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") |