[Emacs-diffs] /srv/bzr/emacs/trunk r105646: * 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.

[Deniz Dogan]

------------------------------------------------------------
revno: 105646
committer: Deniz Dogan <address@hidden>
branch nick: emacs-trunk
timestamp: Sat 2011-09-03 19:40:08 +0200
message:
  * 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.
modified:
  lisp/ChangeLog
  lisp/net/rcirc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-03 17:16:57 +0000
+++ b/lisp/ChangeLog    2011-09-03 17:40:08 +0000
@@ -1,3 +1,9 @@
+2011-09-03  Deniz Dogan  <address@hidden>
+
+       * 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  <address@hidden>
 
        * help.el (help-return-method): Doc fix.

=== modified file 'lisp/net/rcirc.el'
--- a/lisp/net/rcirc.el 2011-08-28 06:07:14 +0000
+++ b/lisp/net/rcirc.el 2011-09-03 17:40:08 +0000
@@ -1556,18 +1556,16 @@
 
          ;; 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)