changeset 27444:89c53b25be12

(checkdoc-interactive-loop): Don't lose on a function with an empty body.
author Dave Love <fx@gnu.org>
date Wed, 26 Jan 2000 17:15:13 +0000
parents ce25ccd15a08
children a1fc4f6f01bf
files lisp/emacs-lisp/checkdoc.el
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- 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)))