From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 29 Aug 2008 17:56:33 +0000 (+0000)
Subject: (mode-line-frame-control, mode-line-frame-identification): Fix last change.
X-Git-Tag: emacs-pretest-23.0.90~3146
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=300d87a183551b9e1e634fa4dfe5d9b670e30958;p=emacs.git

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

diff --git a/lisp/bindings.el b/lisp/bindings.el
index cab319e1a3c..560df38e01d 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -219,16 +219,15 @@ 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 initial-window-system)
-	  (eq initial-window-system 'pc))
+  (if (or (null window-system)
+	  (eq window-system 'pc))
       "-%F  "
     "  "))
 
-(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)))
+(defvar mode-line-frame-identification '(:eval (mode-line-frame-control))
+  "Mode-line control to describe the current frame.")
 (put 'mode-line-frame-identification 'risky-local-variable t)
 
 (defvar mode-line-process nil "\