Re: changing icons

Article View: gnu.epoch.misc

Article #1171

#1171

From: Brian L. Kahn
Date: Wed, 21 Oct 1992 19:30

25 lines
1414 bytes

Try working with the window-select-hook and set-window-buffer-hook.
An example of using these two:


(defun ep:do-titles (win)
  "Do screen title, WIN currently selected."
  ;; change screen title if new name, not minibuf
  (let ((scr (buffer-name (window-buffer win))))
    (if (not (string-equal (title) scr))
	(if (not (string-match "Minibuf" scr))
	    (title scr (screen-of-window win))
	    (icon-name scr (screen-of-window win))
	  ))))
      


(setq set-window-buffer-hook 
      (func (win) (ep:do-titles win)))

(setq window-select-hook 
      (func (win) (ep:do-titles win)))

--
B<   Brian Kahn   blk@mitre.org   "may the farce be with you"

Technical Details

Message-ID: <BLK.92Oct21143051@vanity.mitre.org>

Path: arc1-ca.pugleaf.net!sparky!uunet!stanford.edu!agate!linus!linus.mitre.org!news!mbunix!blk

References: <FCAIC.92Oct20115018@woody.wbst845e.xerox.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fc7ee,8cd90657a4db292e
X-Google-Attributes: gidfc7ee,public
X-Google-ArrivalTime: 1992-10-21 07:54:04 PST
Newsgroups: gnu.epoch.misc
Path: arc1-ca.pugleaf.net!sparky!uunet!stanford.edu!agate!linus!linus.mitre.org!news!mbunix!blk
From: blk@mitre.org (Brian L. Kahn)
Subject: Re: changing icons
In-Reply-To: fcaic@wbst845e.xerox.com's message of Tue, 20 Oct 1992 16:50:18 GMT
Message-ID: <BLK.92Oct21143051@vanity.mitre.org>
Sender: news@linus.mitre.org (News Service)
Nntp-Posting-Host: vanity.mitre.org
Organization: The MITRE Corp. Bedford, MA
References: <FCAIC.92Oct20115018@woody.wbst845e.xerox.com>
Distribution: gnu.epoch.misc
Date: Wed, 21 Oct 1992 19:30:51 GMT
Lines: 26

Reply to Parent Message