Re: 'Strange' changes in status line

[Eli Zaretskii]

> From: Glenn Morris <address@hidden>
> Cc: address@hidden, Eli Zaretskii <address@hidden>
> Date: Thu, 28 Aug 2008 02:00:51 -0400
> 
> Angelo Graziosi wrote:
> 
> > In the status line, now I see 'Emacs' near the buffer name
> >
> > --:----Emacs foo.f90 59% ....
> >
> > Just a curiosity, Why this change and which usefulness?
> 
> I believe it's an unintended consequence of this:
> 
> 2008-08-25  Eli Zaretskii  <address@hidden>
> 
>     * bindings.el (mode-line-frame-control): New function, caters to
>     `pc' ``window system''.
>     (mode-line-frame-identification): Use it instead of
>     accessing window-system directly.
> 
> 
> In X:
> 
> emacs -Q
> 
> C-h v mode-line-frame-identification
> Its value is ("-%F  ")
> 
> M-: (mode-line-frame-control)
> -> " "
> 
> ie, the variable is being set at the wrong time.

Does this change fix the problem on X?  (I cannot try this on X right
now, but I verified that it works on a tty, MS-Windows, and MS-DOS.)

Index: lisp/bindings.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.211
diff -u -r1.211 bindings.el
--- lisp/bindings.el    25 Aug 2008 21:50:55 -0000      1.211
+++ lisp/bindings.el    28 Aug 2008 19:30:19 -0000
@@ -219,8 +219,8 @@
 (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  "
     "  "))