Permalink
Browse files

Make a more usable title for remote systems

  • Loading branch information...
1 parent e79f6dc commit 7e297364be797d4d1c4bd0d5e8d1e680e4153520 @bradwright committed May 27, 2012
Showing with 7 additions and 2 deletions.
  1. +7 −2 gui.el
View
9 gui.el
@@ -23,8 +23,13 @@
(add-to-list 'custom-theme-load-path name))))))
-;; TODO: what does this do?
-(setq frame-title-format '(buffer-file-name "%f" ("%b")))
+;; From:
+;; http://emacs-fu.blogspot.co.uk/2011/01/setting-frame-title.html
+(setq frame-title-format
+ '("emacs%@" (:eval (system-name)) ": "
+ (:eval (if (buffer-file-name)
+ (abbreviate-file-name (buffer-file-name))
+ "%b"))))
(when (display-graphic-p)
;; show help in the echo area instead of as a tooltip

0 comments on commit 7e29736

Please sign in to comment.