mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(checkdoc-interactive-loop): Don't lose on a function with an empty

Browse Source 
body.
This commit is contained in:
Dave Love 2000-01-26 17:15:13 +00:00
parent f5941bf8c0
commit d8693181b0
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/emacs-lisp/checkdoc.el
View File

@ -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)))