Commit d8693181 authored by Dave Love's avatar Dave Love
Browse files

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

body.
parent f5941bf8
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment