;; Other frame fiddling.
-(setq frame-title-format '("Emacs " user-login-name "@" system-name " – %b"))
+(defvar mdw-hostname
+ (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"))
;; Global keymap changes.