diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-06-03 18:54:22 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-06-03 18:54:22 +0800 |
| commit | cbe46e5fae3879facf5db395afd73ca2600f8a41 (patch) | |
| tree | ec30197f6036a4c191cbdfbdc2475c55f44d3217 /lisp/bindings.el | |
| parent | 383f7350f34707d317e169c203d3c6efb27ee46c (diff) | |
| download | emacs-cbe46e5fae3879facf5db395afd73ca2600f8a41.tar.gz | |
Allow clicking mouse-3 on mode line to change coding system.
* lisp/bindings.el (mode-line-coding-system-map): Allow using mouse-3
to invoke set-buffer-file-coding-system.
(mode-line-mule-info-help-echo): Update help text.
Fixes: debbugs:289
Diffstat (limited to 'lisp/bindings.el')
| -rw-r--r-- | lisp/bindings.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/bindings.el b/lisp/bindings.el index 8e6c94466cf..2a37bfd19a7 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -88,6 +88,12 @@ corresponding to the mode line clicked." (when (and enable-multibyte-characters buffer-file-coding-system) (describe-coding-system buffer-file-coding-system))))) + (define-key map [mode-line mouse-3] + (lambda (e) + (interactive "e") + (save-selected-window + (select-window (posn-window (event-start e))) + (call-interactively 'set-buffer-file-coding-system)))) (purecopy map)) "Local keymap for the coding-system part of the mode line.") @@ -153,7 +159,8 @@ is displayed first.") (with-current-buffer (window-buffer window) (if buffer-file-coding-system (format "Buffer coding system (%s): %s -mouse-1: Describe coding system" +mouse-1: Describe coding system +mouse-3: Set coding system" (if enable-multibyte-characters "multi-byte" "unibyte") (symbol-name buffer-file-coding-system)) "Buffer coding system: none specified"))) |