procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(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.
CHECK is a vector stating the current status of each test as an
element is the status of that level of teset."
(with-output-to-temp-buffer " *Checkdoc Status*"
(princ-list
"Buffer comments and tags: " (nth 0 check) "\n"
"Documentation style: " (nth 1 check) "\n"
"Message/Query text style: " (nth 2 check) "\n"
"Unwanted Spaces: " (nth 3 check)
))
(let (temp-buffer-setup-hook)
(with-output-to-temp-buffer " *Checkdoc Status*"
(princ-list
"Buffer comments and tags: " (nth 0 check) "\n"
"Documentation style: " (nth 1 check) "\n"
"Message/Query text style: " (nth 2 check) "\n"
"Unwanted Spaces: " (nth 3 check)
)))
(shrink-window-if-larger-than-buffer
(get-buffer-window " *Checkdoc Status*"))
(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
;; be. Let's see if we can find the comment, and offer to turn it
;; into documentation for them.
(let ((have-comment nil))
(let ((have-comment nil)
(comment-start ";")) ; in case it's not default
(condition-case nil
(progn
(forward-sexp -1)