aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSimon Marshall1996-02-28 09:22:11 +0000
committerSimon Marshall1996-02-28 09:22:11 +0000
commit63503b24ca7f855d043608e6b93b6704273d60e2 (patch)
treee86be68199a0431dd3ca59884c9864bb5a7e3084
parent673cc3c51d87926c7a320557022f82ae6c6a2778 (diff)
downloademacs-63503b24ca7f855d043608e6b93b6704273d60e2.tar.gz
emacs-63503b24ca7f855d043608e6b93b6704273d60e2.zip
Make get-buffer-window-list take MINIBUF arg.
-rw-r--r--lisp/subr.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/subr.el b/lisp/subr.el
index 71566b2250d..f5087fc6851 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -698,14 +698,14 @@ On those systems, it is automatically local in every buffer.
698On other systems, this variable is normally always nil.") 698On other systems, this variable is normally always nil.")
699 699
700;; This should probably be written in C (i.e., without using `walk-windows'). 700;; This should probably be written in C (i.e., without using `walk-windows').
701(defun get-buffer-window-list (buffer &optional frame) 701(defun get-buffer-window-list (buffer &optional minibuf frame)
702 "Return windows currently displaying BUFFER, or nil if none. 702 "Return windows currently displaying BUFFER, or nil if none.
703See `get-buffer-window' for the meaning of FRAME." 703See `walk-windows' for the meaning of MINIBUF and FRAME."
704 (let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows) 704 (let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows)
705 (walk-windows (function (lambda (window) 705 (walk-windows (function (lambda (window)
706 (if (eq (window-buffer window) buffer) 706 (if (eq (window-buffer window) buffer)
707 (setq windows (cons window windows))))) 707 (setq windows (cons window windows)))))
708 nil frame) 708 minibuf frame)
709 windows)) 709 windows))
710 710
711(defun ignore (&rest ignore) 711(defun ignore (&rest ignore)