diff options
| author | Dave Love | 2000-01-26 17:15:13 +0000 |
|---|---|---|
| committer | Dave Love | 2000-01-26 17:15:13 +0000 |
| commit | d8693181b0be3f0652b95109f019840a52b836c9 (patch) | |
| tree | 826ec9a85fae0932abc83c6fb53d55ddc8eb0e1b | |
| parent | f5941bf8c0c13e150f67f26094287381c34c7217 (diff) | |
| download | emacs-d8693181b0be3f0652b95109f019840a52b836c9.tar.gz emacs-d8693181b0be3f0652b95109f019840a52b836c9.zip | |
(checkdoc-interactive-loop): Don't lose on a function with an empty
body.
| -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." | |||
| 613 | (checkdoc-overlay-put cdo 'face 'highlight) | 613 | (checkdoc-overlay-put cdo 'face 'highlight) |
| 614 | ;; Make sure the whole doc string is visible if possible. | 614 | ;; Make sure the whole doc string is visible if possible. |
| 615 | (sit-for 0) | 615 | (sit-for 0) |
| 616 | (if (not (pos-visible-in-window-p | 616 | (if (and (looking-at "\"") |
| 617 | (save-excursion (forward-sexp 1) (point)) | 617 | (not (pos-visible-in-window-p |
| 618 | (selected-window))) | 618 | (save-excursion (forward-sexp 1) (point)) |
| 619 | (if (looking-at "\"") | 619 | (selected-window)))) |
| 620 | (let ((l (count-lines (point) | 620 | (let ((l (count-lines (point) |
| 621 | (save-excursion | 621 | (save-excursion |
| 622 | (forward-sexp 1) (point))))) | 622 | (forward-sexp 1) (point))))) |
| 623 | (if (> l (window-height)) | 623 | (if (> l (window-height)) |
| 624 | (recenter 1) | 624 | (recenter 1) |
| 625 | (recenter (/ (- (window-height) l) 2)))) | 625 | (recenter (/ (- (window-height) l) 2)))) |
| 626 | (recenter))) | 626 | (recenter)) |
| 627 | (message "%s (C-h,%se,n,p,q)" (checkdoc-error-text | 627 | (message "%s (C-h,%se,n,p,q)" (checkdoc-error-text |
| 628 | (car (car err-list))) | 628 | (car (car err-list))) |
| 629 | (if (checkdoc-error-unfixable (car (car err-list))) | 629 | (if (checkdoc-error-unfixable (car (car err-list))) |