Commit d37e5c87 authored by Deniz Dogan's avatar Deniz Dogan

* lisp/net/rcirc.el (rcirc-print): Simplify code for...

* lisp/net/rcirc.el (rcirc-print): Simplify code for rcirc-scroll-show-maximum-output.  There is no need to walk through all windows to find the right one.
parent f3ada0ee
2011-09-03 Deniz Dogan <deniz@dogan.se>
* net/rcirc.el (rcirc-print): Simplify code for
rcirc-scroll-show-maximum-output. There is no need to walk
through all windows to find the right one.
2011-09-03 Christoph Scholtes <cschol2112@googlemail.com>
* help.el (help-return-method): Doc fix.
......
......@@ -1556,18 +1556,16 @@ record activity."
;; keep window on bottom line if it was already there
(when rcirc-scroll-show-maximum-output
(walk-windows (lambda (w)
(when (eq (window-buffer w) (current-buffer))
(with-current-buffer (window-buffer w)
(when (eq major-mode 'rcirc-mode)
(with-selected-window w
(when (<= (- (window-height)
(count-screen-lines (window-point)
(window-start))
1)
0)
(recenter -1)))))))
nil t))
(let ((window (get-buffer-window)))
(when window
(with-selected-window window
(when (eq major-mode 'rcirc-mode)
(when (<= (- (window-height)
(count-screen-lines (window-point)
(window-start))
1)
0)
(recenter -1)))))))
;; flush undo (can we do something smarter here?)
(buffer-disable-undo)
......
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