diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2008-08-29 09:02:00 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2008-08-29 09:02:00 +0000 |
| commit | 2428c57bd12b0e975c57b20d40d693c4e1b307db (patch) | |
| tree | ce63b37f5e7e2d4142fe859f3cfecbb98d0e737f /lisp/bindings.el | |
| parent | 4bf84f7d73ebe52de16916167b47063a89818e4a (diff) | |
| download | emacs-2428c57bd12b0e975c57b20d40d693c4e1b307db.tar.gz emacs-2428c57bd12b0e975c57b20d40d693c4e1b307db.tar.bz2 emacs-2428c57bd12b0e975c57b20d40d693c4e1b307db.zip | |
(mode-line-frame-identification): Fix last change.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 818467e567f..cab319e1a3c 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -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. |