Iconifying screens

Article View: gnu.epoch.misc

Article #1862

#1862

From: Ron M. Shapiro
Date: Tue, 04 Jun 1991 10:45

18 lines
1115 bytes

This code will iconify/restore all Epoch screens when minibuffer is iconified
or restored:

(on-unmap-do (minibuf-screen) 'my-unmap-func)

(on-map-do (minibuf-screen) 'my-map-func)

(defun my-unmap-func (screen)
  (on-unmap-do (minibuf-screen) 'my-unmap-func) ;one-shot so re-install
  (mapcar 'iconify-screen (screen-list)))

(defun my-map-func (screen)
  (on-map-do (minibuf-screen) 'my-map-func) ;one-shot so re-install
  (mapcar 'map-screen (reverse (screen-list t))))

Enjoy!

Ron Shapiro

Technical Details

Message-ID: <9106041045.AA03537@apollo.srl.ford.com>

Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!cis.ohio-state.edu!tut.cis.ohio-state.edu!unreplyable!garbage

References: <DISSER.91Jun3165703@koko.engin.umich.edu>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fc7ee,52f98cb78bd4fa50
X-Google-Attributes: gidfc7ee,public
X-Google-ArrivalTime: 1991-06-04 07:11:26 PST
Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!cis.ohio-state.edu!tut.cis.ohio-state.edu!unreplyable!garbage
From: rms@CAE1.SRL.FORD.COM (Ron M. Shapiro)
Newsgroups: gnu.epoch.misc
Subject: Iconifying screens
Message-ID: <9106041045.AA03537@apollo.srl.ford.com>
Date: 4 Jun 91 10:45:49 GMT
References: <DISSER.91Jun3165703@koko.engin.umich.edu>
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 18

Reply to Parent Message