Mercurial > emacs
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)))