Merged from miles@gnu.org--gnu-2005 (patch 159)

[gnu-emacs] / lisp / bindings.el

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 8ad82b95e72c546773ef9b355f2e5753651c1b3c..a581027993c052fe60f2248404fced568f420075 100644 (file)
--- 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 '("-%F  ")
+(defvar mode-line-frame-identification '(window-system "  " "-%F  ")
   "Mode-line control to describe the current frame.")
 
 (defvar mode-line-process nil "\