Mercurial > emacs
changeset 25697:6060f83b1ffc
(checkdoc-display-status-buffer): Avoid
Help mode for temp buffer.
(checkdoc-this-string-valid): Don't assume default comment-start.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 13 Sep 1999 21:05:01 +0000 |
| parents | f541d471520a |
| children | c8067b54bd55 |
| files | lisp/emacs-lisp/checkdoc.el |
| diffstat | 1 files changed, 10 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/checkdoc.el Mon Sep 13 20:49:05 1999 +0000 +++ b/lisp/emacs-lisp/checkdoc.el Mon Sep 13 21:05:01 1999 +0000 @@ -541,13 +541,14 @@ "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 @@ ;; 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)