From f31859242526b34ef3e575fedb7728a6e9f81644 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 30 Aug 2001 14:19:34 +0000 Subject: [PATCH] (mode-line-coding-system-map): New variable. (mode-line-mule-info): Give the "%Z" a local-map keymap. --- lisp/ChangeLog | 3 +++ lisp/bindings.el | 22 +++++++++++++++++++--- 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 + * 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: -- 2.39.5