(if (string-match "\\." system-name)
(substring system-name 0 (match-beginning 0))
system-name))
-(setq frame-title-format
- '("Emacs " user-login-name "@" mdw-hostname " – %b"))
+(setq frame-title-format '("Emacs " user-login-name "@" mdw-hostname " – %b")
+ icon-title-format frame-title-format)
;; Global keymap changes.