fix title format

emacs.el

@@ -315,10 +315,11 @@ found, otherwise returns nil."
                "screen")
     (setq terminal-title-format
           (if (getenv "SSH_CONNECTION")
-              '("em:"
-                user-login-name
+              `("em:"
+                ,user-login-name
                 "@"
-                system-name
+                ,(car (split-string system-name
+                                    "\\."))
                 ":"
                 (file-name-nondirectory (directory-file-name
                                          default-directory)))