(mode-line-coding-system-map): New variable.

(mode-line-mule-info): Give the "%Z" a local-map keymap.

2 files changed, 22 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 863f7269a47..87b73dcaf74 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-08-30  Gerd Moellmann  <gerd@gnu.org>
 
+        * bindings.el (mode-line-coding-system-map): New variable.
+        (mode-line-mule-info): Give the "%Z" a local-map keymap.
+
         * simple.el (eval-expression-print-level): Change the type
         of the defcustom to allow nil.
 
diff --git a/lisp/bindings.el b/lisp/bindings.el
index aff7fcea74d..30e93659814 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -120,6 +120,21 @@ corresponding to the mode line clicked."
           (describe-current-input-method))))
     (purecopy map)))
 
+
+(defvar mode-line-coding-system-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map [mode-line mouse-3]
+      (lambda (e)
+        (interactive "e")
+        (save-selected-window
+          (select-window (posn-window (event-start e)))
+          (when (and enable-multibyte-characters
+                     buffer-file-coding-system)
+            (describe-coding-system buffer-file-coding-system)))))
+    (purecopy map))
+  "Local keymap for the coding-system part of the mode line.")
+
+
 (defvar mode-line-mule-info
   `(""
     (current-input-method
@@ -129,7 +144,7 @@ corresponding to the mode line clicked."
                      'help-echo (concat
                                  "Input method: "
                                  current-input-method
-                                 ".  mouse-2 disables, mouse-3 describes")
+                                 ".  mouse-2: disable, mouse-3: describe")
                      'local-map mode-line-input-method-map))))
     ,(propertize
       "%Z"
@@ -142,10 +157,11 @@ corresponding to the mode line clicked."
                     (when buffer-file-coding-system
                       (if enable-multibyte-characters
                           (concat (symbol-name buffer-file-coding-system)
-                                  " buffer; see M-x describe-coding-system")
+                                  " buffer; mouse-3: describe coding system")
                         (concat "Unibyte "
                                 (symbol-name buffer-file-coding-system)
-                                " buffer"))))))))
+                                " buffer"))))))
+      'local-map mode-line-coding-system-map))
   "Mode-line control for displaying information of multilingual environment.
 Normally it displays current input method (if any activated) and
 mnemonics of the following coding systems: