Commit ad6c1be9 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* 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'. ...@@ -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 <class> variables are declared obsolete.
*** The <initarg> variables are declared obsolete. *** The <initarg> variables are declared obsolete.
*** defgeneric and defmethod are declared obsolete. *** defgeneric and defmethod are declared obsolete.
*** `constructor' is now an obsolete alias for `make-instance'.
** ido ** ido
*** New command `ido-bury-buffer-at-head' bound to C-S-b *** 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> 2015-02-16 Kelly Dean <kelly@prtime.org>
   
* lisp/files.el (insert-file-contents-literally): Fix docstring typo. * lisp/files.el (insert-file-contents-literally): Fix docstring typo.
......
...@@ -2619,14 +2619,15 @@ function called to create the messages." ...@@ -2619,14 +2619,15 @@ function called to create the messages."
(defun checkdoc-show-diagnostics () (defun checkdoc-show-diagnostics ()
"Display the checkdoc diagnostic buffer in a temporary window." "Display the checkdoc diagnostic buffer in a temporary window."
(if checkdoc-pending-errors (if checkdoc-pending-errors
(let ((b (get-buffer checkdoc-diagnostic-buffer))) (let* ((b (get-buffer checkdoc-diagnostic-buffer))
(if b (progn (pop-to-buffer b) (win (if b (display-buffer b))))
(goto-char (point-max)) (when win
(re-search-backward "\C-l" nil t) (with-selected-window win
(beginning-of-line) (goto-char (point-max))
(forward-line 1) (re-search-backward "\C-l" nil t)
(recenter 0))) (beginning-of-line)
(other-window -1) (forward-line 1)
(recenter 0)))
(setq checkdoc-pending-errors nil) (setq checkdoc-pending-errors nil)
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