From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 22 Feb 1997 19:23:31 +0000 (+0000)
Subject: (mode-line-mule-info): New variable.
X-Git-Tag: emacs-20.1~2887
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f8bce5df30129d20a63d7a6269ac8b02a8133f8d;p=emacs.git

(mode-line-mule-info): New variable.
(mode-line-format): Include it.
---

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 "   ")