[Emacs-diffs] Changes to emacs/lisp/bindings.el

[Nick Roberts]

Index: emacs/lisp/bindings.el
diff -c emacs/lisp/bindings.el:1.151 emacs/lisp/bindings.el:1.152
*** emacs/lisp/bindings.el:1.151        Sat Aug  6 22:13:41 2005
--- emacs/lisp/bindings.el      Thu Sep 15 04:12:27 2005
***************
*** 123,129 ****
  
  (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
--- 123,129 ----
  
  (defvar mode-line-coding-system-map
    (let ((map (make-sparse-keymap)))
!     (define-key map [mode-line mouse-1]
        (lambda (e)
        (interactive "e")
        (save-selected-window
***************
*** 156,162 ****
        (setq desc
            (propertize
             mnemonic
!            'help-echo (format "%s end-of-line; mouse-3 to cycle"
                                (if (eq eol 0) "Unix-style LF"
                                  (if (eq eol 1) "Dos-style CRLF"
                                    (if (eq eol 2) "Mac-style CR"
--- 156,162 ----
        (setq desc
            (propertize
             mnemonic
!            '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,170 ****
             'keymap
             (eval-when-compile
               (let ((map (make-sparse-keymap)))
!                (define-key map [mode-line mouse-3] 'mode-line-change-eol)
                 map))
             'mouse-face 'mode-line-highlight))
        (push (cons eol (cons mnemonic desc)) mode-line-eol-desc-cache)
--- 164,170 ----
             'keymap
             (eval-when-compile
               (let ((map (make-sparse-keymap)))
!                (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,196 ****
            (when buffer-file-coding-system
              (if enable-multibyte-characters
                  (concat (symbol-name buffer-file-coding-system)
!                         " buffer; mouse-3: describe coding system")
                (concat "Unibyte " (symbol-name buffer-file-coding-system)
                        " buffer")))))
        'mouse-face 'mode-line-highlight
--- 190,196 ----
            (when buffer-file-coding-system
              (if enable-multibyte-characters
                  (concat (symbol-name buffer-file-coding-system)
!                         " buffer; mouse-1: describe coding system")
                (concat "Unibyte " (symbol-name buffer-file-coding-system)
                        " buffer")))))
        'mouse-face 'mode-line-highlight
***************
*** 230,256 ****
    (list (propertize
         "%1*"
         'help-echo (purecopy (lambda (window object point)
!                               (format "%sead-only: mouse-3 toggles"
                                        (save-selected-window
                                          (select-window window)
                                          (if buffer-read-only
                                              "R"
                                            "Not r")))))
         'local-map (purecopy (make-mode-line-mouse-map
!                              'mouse-3
                               #'mode-line-toggle-read-only))
         'mouse-face 'mode-line-highlight)
        (propertize
         "%1+"
         'help-echo  (purecopy (lambda (window object point)
!                                (format "%sodified: mouse-3 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-face 'mode-line-highlight))
    "Mode-line control for displaying whether current buffer is modified.")
  
--- 230,256 ----
    (list (propertize
         "%1*"
         'help-echo (purecopy (lambda (window object point)
!                               (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-1
                               #'mode-line-toggle-read-only))
         'mouse-face 'mode-line-highlight)
        (propertize
         "%1+"
         'help-echo  (purecopy (lambda (window object point)
!                                (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-1 #'mode-line-toggle-modified))
         'mouse-face 'mode-line-highlight))
    "Mode-line control for displaying whether current buffer is modified.")