Mercurial > emacs

diff lisp/calc/calc-help.el @ 83295:2d137ca54960

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 279-280) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-279 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-280 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-335
author Karoly Lorentey <lorentey@elte.hu>
date Tue, 26 Apr 2005 12:17:42 +0000
parents 82f10a9c9eb3
children d47f288fcf69 08185296b491
line wrap: on
line diff
--- a/lisp/calc/calc-help.el	Tue Apr 26 12:13:35 2005 +0000
+++ b/lisp/calc/calc-help.el	Tue Apr 26 12:17:42 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")