set frame-title-format

diff --git a/display.el b/display.el
index 5c6ae21ef190459fa40a2c2c5ddd628566bd3777..5f9f2fedb7d16f58d952a5f12acc87e59b9c8b6c 100644 (file)
--- a/display.el
+++ b/display.el
@@ -4,6 +4,15 @@
 (tool-bar-mode -1)
 (scroll-bar-mode -1)
 
+(setq frame-title-format
+      '((:eval (if (buffer-file-name)
+                   (abbreviate-file-name (buffer-file-name))
+                 "%b"))
+        (:eval (if (buffer-modified-p)
+                   " (*)"))
+        " - Emacs")
+      )
+
 (setq scroll-conservatively 1)
 (setq scroll-margin 1)