From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Mon, 25 Apr 2005 19:42:44 +0000 (+0000)
Subject: (calc-view-news): Let-bind inhibit-read-only to t, use help-mode.
X-Git-Tag: ttn-vms-21-2-B4~749
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d9bc5288daee24f357665129409b8894f1073917;p=emacs.git

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

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")