diff options
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-help.el | 14 | ||||
| -rw-r--r-- | lisp/calc/calc.el | 2 |
2 files changed, 8 insertions, 8 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") diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index ceee013e493..ce9681b828f 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -1174,8 +1174,6 @@ commands given here will actually operate on the *Calculator* stack." (setq buffer-read-only t) (make-local-variable 'overlay-arrow-position) (make-local-variable 'overlay-arrow-string) - (set (make-local-variable 'font-lock-defaults) - '(nil t nil nil nil (font-lock-core-only . t))) (when buf (set (make-local-variable 'calc-main-buffer) buf)) (when (= (buffer-size) 0) |