From 00b4614bfaf5d80a573c6de1070a95cac482005a Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Fri, 20 Jul 2012 12:59:00 +0900
Subject: [PATCH] update terminal title and remove frame-title-format

---
 emacs.el | 30 ++++++++++--------------------
 1 file changed, 10 insertions(+), 20 deletions(-)

diff --git a/emacs.el b/emacs.el
index df25b3a..05802b3 100644
--- a/emacs.el
+++ b/emacs.el
@@ -182,7 +182,7 @@ drill-instructor.el"
 (global-set-key (kbd "C-<eisu-toggle>") 'ignore)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; mode-line
+;; title and mode-line
 
 (setq eol-mnemonic-dos "crlf")
 (setq eol-mnemonic-mac "cr")
@@ -229,21 +229,6 @@ drill-instructor.el"
 ;;                                 my-buffer-file-last-modified-time))
 ;;                 (cdr ls))))
 
-(setq frame-title-format
-      (list '(:eval (format-time-string (or display-time-format
-                                            "")))
-            " | %b "
-            '(:eval (number-to-string (length
-                                       (buffer-list-not-start-with-space))))
-            " buffers ["
-            invocation-name
-            " "
-            emacs-version
-            " "
-            (symbol-name system-type)
-            "] "
-            '(:eval (symbol-name last-command))))
-
 '(setq-default header-line-format (list " "
                                         'display-time-string))
 
@@ -261,15 +246,20 @@ drill-instructor.el"
                                       `(,@args "\007"))))))
 (defun my-set-terminal-title ()
   ""
-  (set-terminal-title "["
+  (set-terminal-title (abbreviate-file-name (or buffer-file-name
+                                                default-directory))
+                      " | "
+                      (number-to-string (length
+                                         (buffer-list-not-start-with-space)))
+                      " buffers in "
+                      (frame-parameter nil 'name)
+                      " ["
                       invocation-name
                       " "
                       emacs-version
                       " "
                       (symbol-name system-type)
-                      "] "
-                      (abbreviate-file-name (or buffer-file-name
-                                                default-directory))))
+                      "] "))
 (add-hook 'buffer-file-changed-functions
           (lambda (p c)
             (my-set-terminal-title)))