home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / help-lucid-emacs / text0319.txt < prev    next >
Encoding:
Text File  |  1993-07-14  |  400 b   |  13 lines
  1. >>>>> On 12 May 1993 09:06:13 EST,
  2. >>>>> In message <9305121406.AA09475@hopi.lks.csi.com>,
  3. >>>>> irvine@lks.csi.com wrote:
  4.  
  5. irvine> I need an elisp function that given a buffer returns the
  6. irvine> screen that it is currently being displayed in, otherwise
  7. irvine> returns nil.
  8.  
  9. (defun get-buffer-screen (buffer)
  10.     (let ((win (get-buffer-window buffer t t)))
  11.         (and win (window-screen win))))
  12.  
  13.