dot/gitconfig.in: Add a rune for fast-forwarding branches.

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index 4ece425..2e15651 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -617,7 +617,12 @@
 
 ;; 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")
+      icon-title-format frame-title-format)
 
 ;; Global keymap changes.