Mercurial > emacs

changeset 65524:d4001c18bf64

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mode-line-eol-desc, mode-line-coding-system-map) (mode-line-mule-info, mode-line-modified): Move bindings from mouse-3 to mouse-1.
author Nick Roberts <nickrob@snap.net.nz>
date Thu, 15 Sep 2005 04:12:27 +0000
parents 9ab66cb89208
children f68d6281086a
files lisp/bindings.el
diffstat 1 files changed, 8 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/bindings.el	Thu Sep 15 04:11:52 2005 +0000
+++ b/lisp/bindings.el	Thu Sep 15 04:12:27 2005 +0000
@@ -123,7 +123,7 @@
 
 (defvar mode-line-coding-system-map
   (let ((map (make-sparse-keymap)))
-    (define-key map [mode-line mouse-3]
+    (define-key map [mode-line mouse-1]
       (lambda (e)
 	(interactive "e")
 	(save-selected-window
@@ -156,7 +156,7 @@
       (setq desc
 	    (propertize
 	     mnemonic
-	     'help-echo (format "%s end-of-line; mouse-3 to cycle"
+	     'help-echo (format "%s end-of-line; mouse-1 to cycle"
 				(if (eq eol 0) "Unix-style LF"
 				  (if (eq eol 1) "Dos-style CRLF"
 				    (if (eq eol 2) "Mac-style CR"
@@ -164,7 +164,7 @@
 	     'keymap
 	     (eval-when-compile
 	       (let ((map (make-sparse-keymap)))
-		 (define-key map [mode-line mouse-3] 'mode-line-change-eol)
+		 (define-key map [mode-line mouse-1] 'mode-line-change-eol)
 		 map))
 	     'mouse-face 'mode-line-highlight))
       (push (cons eol (cons mnemonic desc)) mode-line-eol-desc-cache)
@@ -190,7 +190,7 @@
 	    (when buffer-file-coding-system
 	      (if enable-multibyte-characters
 		  (concat (symbol-name buffer-file-coding-system)
-			  " buffer; mouse-3: describe coding system")
+			  " buffer; mouse-1: describe coding system")
 		(concat "Unibyte " (symbol-name buffer-file-coding-system)
 			" buffer")))))
       'mouse-face 'mode-line-highlight
@@ -230,27 +230,27 @@
   (list (propertize
 	 "%1*"
 	 'help-echo (purecopy (lambda (window object point)
- 				(format "%sead-only: mouse-3 toggles"
+ 				(format "%sead-only: mouse-1 toggles"
 					(save-selected-window
 					  (select-window window)
 					  (if buffer-read-only
 					      "R"
 					    "Not r")))))
 	 'local-map (purecopy (make-mode-line-mouse-map
-			       'mouse-3
+			       'mouse-1
 			       #'mode-line-toggle-read-only))
 	 'mouse-face 'mode-line-highlight)
 	(propertize
 	 "%1+"
 	 'help-echo  (purecopy (lambda (window object point)
-				 (format "%sodified: mouse-3 toggles"
+				 (format "%sodified: mouse-1 toggles"
 					 (save-selected-window
 					   (select-window window)
 					   (if (buffer-modified-p)
 					     "M"
 					   "Not m")))))
 	 'local-map (purecopy (make-mode-line-mouse-map
-			       'mouse-3 #'mode-line-toggle-modified))
+			       'mouse-1 #'mode-line-toggle-modified))
 	 'mouse-face 'mode-line-highlight))
   "Mode-line control for displaying whether current buffer is modified.")