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 | a5451c7c2603398b3d43b4ae1552c44d1d9860a5 (patch) | |
tree | dde780607e3e990ad35b210efddcf74d14dcead2 /lisp/emacs-lisp/checkdoc.el | |
parent | 3a6c283f524b9d5629bec80be54b78abf4e0a8d0 (diff) | |
download | emacs-a5451c7c2603398b3d43b4ae1552c44d1d9860a5.tar.gz |
(checkdoc-interactive-loop): Don't lose on a function with an empty
body.
Diffstat (limited to 'lisp/emacs-lisp/checkdoc.el')
-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))) |