update title format for xterm

emacs.el

@@ -249,20 +249,27 @@ drill-instructor.el"
                                       `(,@args "\007"))))))
 (defun my-set-terminal-title ()
   ""
-  (set-terminal-title (abbreviate-file-name (or buffer-file-name
+  (set-terminal-title "["
+                      user-login-name
+                      "@"
+                      system-name
+                      ":"
+                      (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)
-                      "] "))
+                      "]["
+                      "FRAME:"
+                      (frame-parameter nil 'name)
+                      ":"
+                      (number-to-string (length
+                                         (buffer-list-not-start-with-space)))
+                      "]"
+                      ))
 (add-hook 'buffer-file-changed-functions
           (lambda (p c)
             (my-set-terminal-title)))