Commit 2428c57b authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

parent 4bf84f7d
2008-08-29 Eli Zaretskii <eliz@gnu.org>
* bindings.el (mode-line-frame-identification): Fix last change.
2008-08-29 Kenichi Handa <handa@m17n.org>
These changes are to adjust the automatic composition for the new
......
......@@ -219,14 +219,17 @@ 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 (window-system))
(eq (window-system) 'pc))
(if (or (null initial-window-system)
(eq initial-window-system 'pc))
"-%F "
" "))
(defvar mode-line-frame-identification
(list (mode-line-frame-control))
(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)))
(put 'mode-line-frame-identification 'risky-local-variable t)
(defvar mode-line-process nil "\
Mode-line control for displaying info on process status.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment