# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1219701055 0
# Node ID 08d09fb1534e31cde31995ec1769462bdf6ccccc
# Parent  c3c830b17f9f53418384723239546b42b57291c2
(mode-line-frame-control): New function, caters to `pc' ``window system''.
(mode-line-frame-identification): Use it instead of accessing window-system
directly.

diff -r c3c830b17f9f -r 08d09fb1534e lisp/bindings.el
--- a/lisp/bindings.el	Mon Aug 25 20:33:06 2008 +0000
+++ b/lisp/bindings.el	Mon Aug 25 21:50:55 2008 +0000
@@ -215,7 +215,17 @@
 
 (make-variable-buffer-local 'mode-line-mule-info)
 
-(defvar mode-line-frame-identification '(window-system "  " "-%F  ")
+;; MSDOS frames have window-system, but want the Fn identification.
+(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))
+      "-%F  "
+    "  "))
+
+(defvar mode-line-frame-identification
+  (list (mode-line-frame-control))
   "Mode-line control to describe the current frame.")
 
 (defvar mode-line-process nil "\