mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(get-buffer-window-list): Rename buffer argument to

Browse source 
buffer-or-name and make it optional.
This commit is contained in:
Martin Rudalics 2008-10-25 08:08:19 +00:00
parent fec8926115
commit cf20330bba
2 changed files with 14 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2008-10-25 Martin Rudalics <rudalics@gmx.at>
* window.el (get-buffer-window-list): Rename buffer argument to
buffer-or-name and make it optional.
2008-10-25 Juanma Barranquero <lekktu@gmail.com>
* completion.el (add-completion-to-head, add-completion): Doc fixes.

13
lisp/window.el
View file

@ -193,11 +193,16 @@ Anything else means restrict to the selected frame."
(defalias 'some-window 'get-window-with-predicate)
;; This should probably be written in C (i.e., without using `walk-windows').
(defun get-buffer-window-list (buffer &optional minibuf all-frames)
"Return list of all windows displaying BUFFER, or nil if none.
BUFFER can be a buffer or a buffer name.
(defun get-buffer-window-list (&optional buffer-or-name minibuf all-frames)
"Return list of all windows displaying BUFFER-OR-NAME, or nil if none.
BUFFER-OR-NAME may be a buffer or the name of an existing buffer
and defaults to nil.
See `walk-windows' for the meaning of MINIBUF and ALL-FRAMES."
(let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows)
(let ((buffer (cond
((not buffer-or-name) (current-buffer))
((bufferp buffer-or-name) buffer-or-name)
(t (get-buffer buffer-or-name))))
windows)
(walk-windows (function (lambda (window)
(if (eq (window-buffer window) buffer)
(setq windows (cons window windows)))))