Mercurial > hg > xemacs-beta

comparison lisp/prim/window.el @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 6a378aca36af
children 43dd3413c7c7
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
341 (setq wind (next-window wind nil t)) 341 (setq wind (next-window wind nil t))
342 (setq done (eq wind firstwin))) 342 (setq done (eq wind firstwin)))
343 window-list)) 343 window-list))
344 344
345 (defun buffer-in-multiple-windows-p (&optional buffer) 345 (defun buffer-in-multiple-windows-p (&optional buffer)
346 "Returns t if BUFFER is in multiple windows. 346 "Return t if BUFFER is in multiple windows.
347 If BUFFER is not specified, the current buffer will be used." 347 If BUFFER is not specified, the current buffer will be used."
348 (setq buffer (or buffer 348 (setq buffer (or buffer
349 (get-buffer buffer) 349 (get-buffer buffer)
350 (get-file-buffer buffer) 350 (get-file-buffer buffer)
351 (current-buffer))) 351 (current-buffer)))