(mode-line-frame-identification): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad294332bb3a0d4f3bed873771cf03f89c71417c..03e0e8e1e6d8312e2e2a7ef4727dd1116084be02 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-29  Eli Zaretskii  <eliz@gnu.org>
+
+       * bindings.el (mode-line-frame-identification): Fix last change.
+
 2008-08-29  Kenichi Handa  <handa@m17n.org>
 
        These changes are to adjust the automatic composition for the new

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 818467e567f63ee4dbc9dc3f2e8e99522c705085..cab319e1a3c1561277c9756ea7f8d132b137040c 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -219,14 +219,17 @@ mnemonics of the following coding systems:
 (defun mode-line-frame-control ()
   "Compute mode-line control for frame identification.
 Value is used for `mode-line-frame-identification', which see."
-  (if (or (null (window-system))
-         (eq (window-system) 'pc))
+  (if (or (null initial-window-system)
+         (eq initial-window-system 'pc))
       "-%F  "
     "  "))
 
-(defvar mode-line-frame-identification
-  (list (mode-line-frame-control))
+(defvar mode-line-frame-identification "  "
   "Mode-line control to describe the current frame.")
+;; We need to defer the call to mode-line-frame-control to the time
+;; the mode line is actually displayed.
+(setq mode-line-frame-identification '(:eval (mode-line-frame-control)))
+(put 'mode-line-frame-identification 'risky-local-variable t)
 
 (defvar mode-line-process nil "\
 Mode-line control for displaying info on process status.