Mercurial > emacs
changeset 17058:8d2ff69b0c0a
(mode-line-mule-info): New variable.
(mode-line-format): Include it.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 22 Feb 1997 19:23:31 +0000 |
| parents | e54588a6cea9 |
| children | 5246c075a643 |
| files | lisp/bindings.el |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/bindings.el Fri Feb 21 09:46:03 1997 +0000 +++ b/lisp/bindings.el Sat Feb 22 19:23:31 1997 +0000 @@ -47,6 +47,14 @@ ;;; Code: +(defconst mode-line-mule-info + (purecopy '(enable-multibyte-characters + ((current-input-method ("[" current-input-method-title "]")) + "%z:"))) + "Mode-line control for displaying information of multilingual environment.") + +(make-variable-buffer-local 'mode-line-mule-info) + (defvar mode-line-buffer-identification (purecopy '("%F: %12b")) "Mode-line control for identifying the buffer being displayed. Its default value is (\"%F: %12b\"). Under X, `%F' is replaced with `Emacs'. @@ -68,6 +76,7 @@ (setq-default mode-line-format (list (purecopy "") + 'mode-line-mule-info 'mode-line-modified 'mode-line-buffer-identification (purecopy " ")