🚀 go-pugleaf

In article <1992Feb11.210842.13993@boingo.med.jhu.edu>, derek@boingo.med.jhu.edu (Derek Ney) writes:
> Well, I figured that there isn't enough traffic on this group,
> so I would fill it up :^). I found some more problems with my
> title.el that I posted recently. ...
> ...
> 
> ;; -------------- end of title.el version 1.2 -----------------

I don't remember where it came from, but I've been using the following to keep
the title in synch with the current buffer:

	(defun set-window-name (win)
	  "Set window and icon titles to file in buffer."
	  (let* ((buff (window-buffer win))
		 (name (or (and buff (buffer-name buff)) "# No-Name #"))
		 (scr (epoch::screen-of-window win)))
	    (if buff
		(let ((wname (if include-system-name
				 (concat name " @ " (system-name))
			       name)))
		  (epoch::title wname scr)
		  (epoch::icon-name wname scr)))))

	(setq set-window-buffer-hook 'set-window-name)

There is supposedly some dangerous feature being used, but it works.

-------------------------------------------------------------------------------
Chris Weikart <weikart@prl.dec.com> .............. DEC Paris Research Lab (PRL)