Mercurial > emacs
changeset 97857:67484b4a5175
(mode-line-frame-control, mode-line-frame-identification): Fix last change.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Fri, 29 Aug 2008 17:56:33 +0000 |
| parents | 521da036775a |
| children | 111763d689bf |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 4 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bindings.el Fri Aug 29 10:57:29 2008 +0000 +++ b/lisp/bindings.el Fri Aug 29 17:56:33 2008 +0000 @@ -219,16 +219,15 @@ (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 initial-window-system) - (eq initial-window-system 'pc)) + (if (or (null window-system) + (eq window-system 'pc)) "-%F " " ")) -(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))) +(defvar mode-line-frame-identification '(:eval (mode-line-frame-control)) + "Mode-line control to describe the current frame.") (put 'mode-line-frame-identification 'risky-local-variable t) (defvar mode-line-process nil "\