diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2006-11-10 01:36:05 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2006-11-10 01:36:05 +0000 |
| commit | edf6fbc5f7f2dd9bf329477fd81e2c97b1cbb86c (patch) | |
| tree | 307322c9dbf8022150fa30310bb1cfd2ee628ddb /lisp | |
| parent | 52f9b7513ffbfe49e0ddbe24ecef816e1a134860 (diff) | |
| download | emacs-edf6fbc5f7f2dd9bf329477fd81e2c97b1cbb86c.tar.gz | |
(bs--window-for-buffer): Remove.
(bs--show-with-configuration): Use `get-window-with-predicate' instead of
`bs--window-for-buffer'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/bs.el | 17 |
2 files changed, 10 insertions, 13 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cb97fa9d3d8..add015be455 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +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. diff --git a/lisp/bs.el b/lisp/bs.el index cf6ca0c2de3..d0b929b2d85 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -692,17 +692,6 @@ Refresh whole Buffer Selection Menu." (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) @@ -1241,7 +1230,6 @@ by buffer configuration `bs-cycle-configuration-name'." (or (cdr bs--cycle-list) "this buffer")))))) - ;;;###autoload (defun bs-cycle-previous () "Select previous buffer defined by buffer cycling. @@ -1435,7 +1423,10 @@ for buffer selection." ;; 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 |