+2006-11-10 Juanma Barranquero <lekktu@gmail.com>
+
+ * bs.el (bs--window-for-buffer): Remove.
+ (bs--show-with-configuration): Use `get-window-with-predicate'
+ instead of `bs--window-for-buffer'.
+
2006-11-10 Kenichi Handa <handa@m17n.org>
* files.el (revert-buffer): Fix previous change.
(interactive)
(bs--redisplay t))
-(defun bs--window-for-buffer (buffer-name)
- "Return a window showing a buffer with name BUFFER-NAME.
-Take only windows of current frame into account.
-Return nil if there is no such buffer."
- (catch 'window
- (walk-windows (lambda (w)
- (when (string= (buffer-name (window-buffer w))
- buffer-name)
- (throw 'window w))))
- nil))
-
(defun bs--set-window-height ()
"Change the height of the selected window to suit the current buffer list."
(unless (one-window-p t)
(or (cdr bs--cycle-list)
"this buffer"))))))
-
;;;###autoload
(defun bs-cycle-previous ()
"Select previous buffer defined by buffer cycling.
;; we have to set the buffer we started the command
(setq bs--buffer-coming-from (current-buffer)))
(let ((liste (bs-buffer-list))
- (active-window (bs--window-for-buffer "*buffer-selection*")))
+ (active-window (get-window-with-predicate
+ (lambda (w)
+ (string= (buffer-name (window-buffer w))
+ "*buffer-selection*")))))
(if active-window
(select-window active-window)
(modify-frame-parameters nil