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