Mercurial > emacs
diff lisp/bindings.el @ 97706:08d09fb1534e
(mode-line-frame-control): New function, caters to `pc' ``window system''.
(mode-line-frame-identification): Use it instead of accessing window-system
directly.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 25 Aug 2008 21:50:55 +0000 |
| parents | c3512b2085a0 |
| children | da6fd3fcdb25 |
line wrap: on
line diff
--- 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 "\