From: Dave Love <fx@gnu.org>
Date: Mon, 13 Sep 1999 21:05:01 +0000 (+0000)
Subject: (checkdoc-display-status-buffer): Avoid
X-Git-Tag: emacs-pretest-21.0.90~6745
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb83be8a1dbdb21c96b57dd9c5227fd52521b1c7;p=emacs.git

(checkdoc-display-status-buffer): Avoid
Help mode for temp buffer.
(checkdoc-this-string-valid): Don't assume default comment-start.
---

diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index 5fd428a904a..102e6850a1e 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -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)