From d9bc5288daee24f357665129409b8894f1073917 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 25 Apr 2005 19:42:44 +0000 Subject: [PATCH] (calc-view-news): Let-bind inhibit-read-only to t, use help-mode. --- lisp/calc/calc-help.el | 14 ++++++++------ 1 file 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") -- 2.39.2