Screen titles (elisp code)

Article View: gnu.epoch.misc

Article #120

#120

From: Marc Andreessen
Date: Wed, 05 Aug 1992 05:02

24 lines
1233 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"

window-select-hook (contributed by Brian) will be in 4.1 :-).

Marc

Technical Details

Message-ID: <9208051902.AA07438@wintermute.ncsa.uiuc.edu>

Path: arc1-ca.pugleaf.net!sparky!uunet!convex!linac!pacific.mps.ohio-state.edu!cis.ohio-state.edu!ncsa.uiuc.edu!marca

References: <BLK.92Aug5094415@vanity.mitre.org>

Show Full Headers

Complete Article Headers

Newsgroups: gnu.epoch.misc
Path: arc1-ca.pugleaf.net!sparky!uunet!convex!linac!pacific.mps.ohio-state.edu!cis.ohio-state.edu!ncsa.uiuc.edu!marca
From: marca@ncsa.uiuc.edu (Marc Andreessen)
Subject: Screen titles (elisp code)
Message-ID: <9208051902.AA07438@wintermute.ncsa.uiuc.edu>
Sender: news@cis.ohio-state.edu (NETnews        )
Organization: Gnus Not Usenet
References: <BLK.92Aug5094415@vanity.mitre.org>
Distribution: gnu
Date: Wed, 5 Aug 1992 05:02:22 GMT
Lines: 25

Reply to Parent Message