diff options
| -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) |