# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1114458164 0
# Node ID 82f10a9c9eb3fbe501ff3c8da209bbbb0357d482
# Parent  7167a1afa2aac47112197a9642de74e08f26d032
(calc-view-news): Let-bind inhibit-read-only to t, use help-mode.

diff -r 7167a1afa2aa -r 82f10a9c9eb3 lisp/calc/calc-help.el
--- a/lisp/calc/calc-help.el	Mon Apr 25 18:11:33 2005 +0000
+++ b/lisp/calc/calc-help.el	Mon Apr 25 19:42:44 2005 +0000
@@ -393,12 +393,14 @@
 	(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")