diff lisp/emacs-lisp/checkdoc.el @ 96121:bd062fcb9c58

(checkdoc-start-section, checkdoc-error): Bind inhibit-read-only since the buffer is always read-only.

--- a/lisp/emacs-lisp/checkdoc.el	Fri Jun 20 16:16:34 2008 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Fri Jun 20 16:20:48 2008 +0000
@@ -2605,7 +2605,9 @@
       (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 @@
 		    ": " 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."