Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ad6c1be9
Commit
ad6c1be9
authored
Feb 18, 2015
by
Stefan Monnier
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* lisp/emacs-lisp/checkdoc.el (checkdoc-show-diagnostics): Don't make bogus
assumptions about window ordering.
parent
81d89d88
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
15 additions
and
8 deletions
+15
-8
etc/NEWS
etc/NEWS
+1
-0
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/emacs-lisp/checkdoc.el
lisp/emacs-lisp/checkdoc.el
+9
-8
No files found.
etc/NEWS
View file @
ad6c1be9
...
...
@@ -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
...
...
lisp/ChangeLog
View file @
ad6c1be9
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.
...
...
lisp/emacs-lisp/checkdoc.el
View file @
ad6c1be9
...
...
@@ -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
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment