diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-20 16:20:48 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-20 16:20:48 +0000 |
| commit | b260aab7e0f28c6fa97558845c285107963abc85 (patch) | |
| tree | 3390c1af48659a7e9b015b489953d94607964722 /lisp/emacs-lisp | |
| parent | 639fbfe13ac7b9a5959ed9d48babd46e40a236e9 (diff) | |
| download | emacs-b260aab7e0f28c6fa97558845c285107963abc85.tar.gz emacs-b260aab7e0f28c6fa97558845c285107963abc85.tar.bz2 emacs-b260aab7e0f28c6fa97558845c285107963abc85.zip | |
(checkdoc-start-section, checkdoc-error):
Bind inhibit-read-only since the buffer is always read-only.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index de23111754a..dc3bbe9a7cf 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -2605,7 +2605,9 @@ function called to create the messages." (checkdoc-output-mode) (setq default-directory dir) (goto-char (point-max)) - (insert "\n\n\C-l\n*** " label ": " check-type " V " checkdoc-version)))) + (let ((inhibit-read-only t)) + (insert "\n\n\C-l\n*** " label ": " + check-type " V " checkdoc-version))))) (defun checkdoc-error (point msg) "Store POINT and MSG as errors in the checkdoc diagnostic buffer." @@ -2616,7 +2618,8 @@ function called to create the messages." ": " msg))) (with-current-buffer (get-buffer checkdoc-diagnostic-buffer) (goto-char (point-max)) - (apply 'insert text)))) + (let ((inhibit-read-only t)) + (apply 'insert text))))) (defun checkdoc-show-diagnostics () "Display the checkdoc diagnostic buffer in a temporary window." |