diff options
author | Dave Love <fx@gnu.org> | 2000-01-26 17:15:13 +0000 |
---|---|---|
committer | Dave Love <fx@gnu.org> | 2000-01-26 17:15:13 +0000 |
commit | d8693181b0be3f0652b95109f019840a52b836c9 (patch) | |
tree | 826ec9a85fae0932abc83c6fb53d55ddc8eb0e1b /lisp/emacs-lisp | |
parent | f5941bf8c0c13e150f67f26094287381c34c7217 (diff) | |
download | emacs-d8693181b0be3f0652b95109f019840a52b836c9.tar.gz emacs-d8693181b0be3f0652b95109f019840a52b836c9.tar.bz2 emacs-d8693181b0be3f0652b95109f019840a52b836c9.zip |
(checkdoc-interactive-loop): Don't lose on a function with an empty
body.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 22 |
1 files 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))) |