Mercurial > emacs
comparison lisp/subr.el @ 56398:92855ff2cb86
(get-buffer-window-list): Doc fix.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Mon, 12 Jul 2004 01:10:54 +0000 |
| parents | bb7bcfc53d76 |
| children | 78189fca7611 |
comparison
equal
deleted
inserted
replaced
| 56397:c3b04ca3836e | 56398:92855ff2cb86 |
|---|---|
| 1598 On those systems, it is automatically local in every buffer. | 1598 On those systems, it is automatically local in every buffer. |
| 1599 On other systems, this variable is normally always nil.") | 1599 On other systems, this variable is normally always nil.") |
| 1600 | 1600 |
| 1601 ;; This should probably be written in C (i.e., without using `walk-windows'). | 1601 ;; This should probably be written in C (i.e., without using `walk-windows'). |
| 1602 (defun get-buffer-window-list (buffer &optional minibuf frame) | 1602 (defun get-buffer-window-list (buffer &optional minibuf frame) |
| 1603 "Return windows currently displaying BUFFER, or nil if none. | 1603 "Return list of all windows displaying BUFFER, or nil if none. |
| 1604 BUFFER can be a buffer or a buffer name. | |
| 1604 See `walk-windows' for the meaning of MINIBUF and FRAME." | 1605 See `walk-windows' for the meaning of MINIBUF and FRAME." |
| 1605 (let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows) | 1606 (let ((buffer (if (bufferp buffer) buffer (get-buffer buffer))) windows) |
| 1606 (walk-windows (function (lambda (window) | 1607 (walk-windows (function (lambda (window) |
| 1607 (if (eq (window-buffer window) buffer) | 1608 (if (eq (window-buffer window) buffer) |
| 1608 (setq windows (cons window windows))))) | 1609 (setq windows (cons window windows))))) |