[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105646: * lisp/net/rcirc.el (rcirc-p
From: |
Deniz Dogan |
Subject: |
[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. |
Date: |
Sat, 03 Sep 2011 19:40:08 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [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 <=