Mercurial > emacs

changeset 61831:82f10a9c9eb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-view-news): Let-bind inhibit-read-only to t, use help-mode.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 25 Apr 2005 19:42:44 +0000
parents 7167a1afa2aa
children 22cd260b5134
files lisp/calc/calc-help.el
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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")