[Emacs-diffs] Changes to emacs/lisp/bindings.el,v

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    08/08/25 21:50:55

Index: bindings.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.210
retrieving revision 1.211
diff -u -b -r1.210 -r1.211
--- bindings.el 31 Jul 2008 05:33:42 -0000      1.210
+++ bindings.el 25 Aug 2008 21:50:55 -0000      1.211
@@ -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 "\