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

diff --git a/etc/NEWS b/etc/NEWS
index c24a8fbdfc6c9e70e21b76ef9ef6f3263150b551..3bc54d0ff2da3168776eb5bac85e05f327c1907c 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -93,6 +93,9 @@ Use "coding: raw-text" instead.
 (shown in a tooltip or in the echo area) for any part of the mode line
 that does not have its own specialized help text.
 
+*** You can now click mouse-3 in the coding system indicator to
+invokes `set-buffer-file-coding-system'.
+
 \f
 * Editing Changes in Emacs 24.2
 

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ecd949d4c15420f09565c6966f6077ed49f985c..0efca43be1e91fbf9354c8dd0a82af4df443c7ab 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -12,6 +12,9 @@
        (mode-line-mule-info, mode-line-modified): Use them.
        (mode-line-eol-desc, propertized-buffer-identification):
        Consistency fixes for help text.
+       (mode-line-coding-system-map): Allow using mouse-3 to invoke
+       set-buffer-file-coding-system (Bug#289).
+       (mode-line-mule-info-help-echo): Update help text.
 
 2012-06-02  Stefan Monnier  <monnier@iro.umontreal.ca>
 

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 8e6c94466cf46593b1cf0961b8a8c9f24f359ebb..2a37bfd19a77dca9675ab00fd45794512bd63efd 100644 (file)
--- 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")))