andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(checkdoc-start-section, checkdoc-error):

Browse source 
Bind inhibit-read-only since the buffer is always read-only.
This commit is contained in:
Stefan Monnier 2008-06-20 16:20:48 +00:00
parent 639fbfe13a
commit b260aab7e0
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-06-20 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/checkdoc.el (checkdoc-start-section, checkdoc-error):
Bind inhibit-read-only since the buffer is always read-only.
2008-06-20 Ulf Jasper <ulf@web.de>
* net/newst-treeview.el (newsticker-treeview-own-frame): Changed

7
lisp/emacs-lisp/checkdoc.el
View file

@ -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."