2 files changed, 2 insertions, 1 deletions

diff --git a/lisp/bindings.el b/lisp/bindings.el
index ee3a23ca78f..280ca028842 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -214,7 +214,7 @@ Major modes that edit things other than ordinary files may change this
 
 (make-variable-buffer-local 'mode-line-buffer-identification)
 
-(defvar mode-line-frame-identification '("-%T  ")
+(defvar mode-line-frame-identification '(window-system "  " "-%F  ")
   "Mode-line control to describe the current frame.")
 
 (defvar mode-line-process nil "\
diff --git a/lisp/loadup.el b/lisp/loadup.el
index c64df547582..07ed6e8d463 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -190,6 +190,7 @@
       (load "emacs-lisp/float-sup")))
 (message "%s" (garbage-collect))
 
+;; Load auxiliary settings for X displays if we support them.
 (when (fboundp 'x-create-frame)
   (load "mouse")
   (load "international/fontset")