diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-02-22 19:23:31 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-02-22 19:23:31 +0000 |
| commit | c538d57b69636a9cb4a91dc1bad2a6688ba9467b (patch) | |
| tree | 2a9348513d6dbe33077aeb9fa09b9ad996303e80 /lisp/bindings.el | |
| parent | 8e389e18e6bacc27b8fd681c9335a5c2f8a56497 (diff) | |
| download | emacs-c538d57b69636a9cb4a91dc1bad2a6688ba9467b.tar.gz | |
(mode-line-mule-info): New variable.
(mode-line-format): Include it.
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 3978afa58e7..66a8c511d55 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -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 @@ Normally nil in most modes, since there is no process to display.") (setq-default mode-line-format (list (purecopy "") + 'mode-line-mule-info 'mode-line-modified 'mode-line-buffer-identification (purecopy " ") |