# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 948906913 0
# Node ID 89c53b25be12b530faa565000b838f78d2f4379b
# Parent  ce25ccd15a08508255f2d214132c8a148e14894d
(checkdoc-interactive-loop): Don't lose on a function with an empty
body.

diff -r ce25ccd15a08 -r 89c53b25be12 lisp/emacs-lisp/checkdoc.el
--- a/lisp/emacs-lisp/checkdoc.el	Wed Jan 26 14:47:42 2000 +0000
+++ b/lisp/emacs-lisp/checkdoc.el	Wed Jan 26 17:15:13 2000 +0000
@@ -613,17 +613,17 @@
 	      (checkdoc-overlay-put cdo 'face 'highlight)
 	      ;; Make sure the whole doc string is visible if possible.
 	      (sit-for 0)
-	      (if (not (pos-visible-in-window-p
-			(save-excursion (forward-sexp 1) (point))
-			(selected-window)))
-		  (if (looking-at "\"")
-		      (let ((l (count-lines (point)
-					    (save-excursion
-					      (forward-sexp 1) (point)))))
-			(if (> l (window-height))
-			    (recenter 1)
-			  (recenter (/ (- (window-height) l) 2))))
-		    (recenter)))
+	      (if (and (looking-at "\"")
+		       (not (pos-visible-in-window-p
+			     (save-excursion (forward-sexp 1) (point))
+			     (selected-window))))
+		  (let ((l (count-lines (point)
+					(save-excursion
+					  (forward-sexp 1) (point)))))
+		    (if (> l (window-height))
+			(recenter 1)
+		      (recenter (/ (- (window-height) l) 2))))
+		(recenter))
 	      (message "%s (C-h,%se,n,p,q)" (checkdoc-error-text
 					      (car (car err-list)))
 		       (if (checkdoc-error-unfixable (car (car err-list)))