Screen titles (elisp code)

Article View: gnu.epoch.misc

Article #109

#109

From: Brian L. Kahn
Date: Wed, 05 Aug 1992 14:44

21 lines
1016 bytes

This does a pretty good job, with occasional mistakes:

----------------------

(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)
	  ))))
      
(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@security.mitre.org   "may the farce be with you"

Technical Details

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

Path: arc1-ca.pugleaf.net!sparky!uunet!sun-barr!ames!agate!linus!linus.mitre.org!news!mbunix!blk

Show Full Headers

Complete Article Headers

Newsgroups: gnu.epoch.misc
Path: arc1-ca.pugleaf.net!sparky!uunet!sun-barr!ames!agate!linus!linus.mitre.org!news!mbunix!blk
From: blk@mitre.org (Brian L. Kahn)
Subject: Screen titles (elisp code)
Message-ID: <BLK.92Aug5094415@vanity.mitre.org>
Sender: news@linus.mitre.org (News Service)
Nntp-Posting-Host: vanity.mitre.org
Organization: The MITRE Corp. Bedford, MA
Distribution: gnu
Date: Wed, 5 Aug 1992 14:44:15 GMT
Lines: 22