From d8693181b0be3f0652b95109f019840a52b836c9 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 26 Jan 2000 17:15:13 +0000 Subject: [PATCH] (checkdoc-interactive-loop): Don't lose on a function with an empty body. --- lisp/emacs-lisp/checkdoc.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 62d4566124d..e687ce7dd74 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -613,17 +613,17 @@ style." (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))) -- 2.39.5