diff options
| author | Simon Marshall | 1996-02-28 09:22:11 +0000 |
|---|---|---|
| committer | Simon Marshall | 1996-02-28 09:22:11 +0000 |
| commit | 63503b24ca7f855d043608e6b93b6704273d60e2 (patch) | |
| tree | e86be68199a0431dd3ca59884c9864bb5a7e3084 | |
| parent | 673cc3c51d87926c7a320557022f82ae6c6a2778 (diff) | |
| download | emacs-63503b24ca7f855d043608e6b93b6704273d60e2.tar.gz emacs-63503b24ca7f855d043608e6b93b6704273d60e2.zip | |
Make get-buffer-window-list take MINIBUF arg.
| -rw-r--r-- | lisp/subr.el | 6 |
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. | |||
| 698 | On other systems, this variable is normally always nil.") | 698 | On 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. |
| 703 | See `get-buffer-window' for the meaning of FRAME." | 703 | See `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) |