mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 14:30:43 -08:00
Code Issues Projects Releases Wiki Activity

(checkdoc-display-status-buffer): Avoid

Browse source 
Help mode for temp buffer.
(checkdoc-this-string-valid): Don't assume default comment-start.
This commit is contained in:
Dave Love 1999-09-13 21:05:01 +00:00
parent b190d317b3
commit eb83be8a1d
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -541,13 +541,14 @@ the users will view as each check is completed."
"Display and update the status buffer for the current checkdoc mode. "Display and update the status buffer for the current checkdoc mode.
CHECK is a vector stating the current status of each test as an CHECK is a vector stating the current status of each test as an
element is the status of that level of teset." element is the status of that level of teset."
(with-output-to-temp-buffer " *Checkdoc Status*" (let (temp-buffer-setup-hook)
(princ-list (with-output-to-temp-buffer " *Checkdoc Status*"
"Buffer comments and tags: " (nth 0 check) "\n" (princ-list
"Documentation style: " (nth 1 check) "\n" "Buffer comments and tags: " (nth 0 check) "\n"
"Message/Query text style: " (nth 2 check) "\n" "Documentation style: " (nth 1 check) "\n"
"Unwanted Spaces: " (nth 3 check) "Message/Query text style: " (nth 2 check) "\n"
)) "Unwanted Spaces: " (nth 3 check)
)))
(shrink-window-if-larger-than-buffer (shrink-window-if-larger-than-buffer
(get-buffer-window " *Checkdoc Status*")) (get-buffer-window " *Checkdoc Status*"))
(message nil) (message nil)
@ -1311,7 +1312,8 @@ See the style guide in the Emacs Lisp manual for more details."
;; Sometimes old code has comments where the documentation should ;; Sometimes old code has comments where the documentation should
;; be. Let's see if we can find the comment, and offer to turn it ;; be. Let's see if we can find the comment, and offer to turn it
;; into documentation for them. ;; into documentation for them.
(let ((have-comment nil)) (let ((have-comment nil)
(comment-start ";")) ; in case it's not default
(condition-case nil (condition-case nil
(progn (progn
(forward-sexp -1) (forward-sexp -1)