Commit ad6c1be9 authored by Stefan Monnier's avatar Stefan Monnier

* lisp/emacs-lisp/checkdoc.el (checkdoc-show-diagnostics): Don't make bogus

assumptions about window ordering.
parent 81d89d88
......@@ -235,6 +235,7 @@ If you need your objects to be named, do it by inheriting from `eieio-named'.
*** The <class> variables are declared obsolete.
*** The <initarg> variables are declared obsolete.
*** defgeneric and defmethod are declared obsolete.
*** `constructor' is now an obsolete alias for `make-instance'.
** ido
*** New command `ido-bury-buffer-at-head' bound to C-S-b
......
2015-02-18 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/checkdoc.el (checkdoc-show-diagnostics): Don't make bogus
assumptions about window ordering.
2015-02-16 Kelly Dean <kelly@prtime.org>
* lisp/files.el (insert-file-contents-literally): Fix docstring typo.
......
......@@ -2619,14 +2619,15 @@ function called to create the messages."
(defun checkdoc-show-diagnostics ()
"Display the checkdoc diagnostic buffer in a temporary window."
(if checkdoc-pending-errors
(let ((b (get-buffer checkdoc-diagnostic-buffer)))
(if b (progn (pop-to-buffer b)
(goto-char (point-max))
(re-search-backward "\C-l" nil t)
(beginning-of-line)
(forward-line 1)
(recenter 0)))
(other-window -1)
(let* ((b (get-buffer checkdoc-diagnostic-buffer))
(win (if b (display-buffer b))))
(when win
(with-selected-window win
(goto-char (point-max))
(re-search-backward "\C-l" nil t)
(beginning-of-line)
(forward-line 1)
(recenter 0)))
(setq checkdoc-pending-errors nil)
nil)))
......
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