Changeset 3894 for trunk/lisp/bindings.el

Timestamp:

10/02/05 09:47:43 (3 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/bindings.el (modified) (8 diffs)

trunk/lisp/bindings.el

@@ -124 +124 @@
-(defvar mode-line-coding-system-map
-  (let ((map (make-sparse-keymap)))
-3
+1
-      (lambda (e)
-        (interactive "e")
@@ -157 +157 @@
-            (propertize
-             mnemonic
-3
+1
-                                (if (eq eol 0) "Unix-style LF"
-                                  (if (eq eol 1) "Dos-style CRLF"
@@ -165 +165 @@
-             (eval-when-compile
-               (let ((map (make-sparse-keymap)))
-3
+1
-                 map))
-             'mouse-face 'mode-line-highlight))
@@ -191 +191 @@
-              (if enable-multibyte-characters
-                  (concat (symbol-name buffer-file-coding-system)
-3
+1
-                (concat "Unibyte " (symbol-name buffer-file-coding-system)
-                        " buffer")))))
@@ -231 +231 @@
-         "%1*"
-         'help-echo (purecopy (lambda (window object point)
-3
+1
-                                        (save-selected-window
-                                          (select-window window)
@@ -238 +238 @@
-                                            "Not r")))))
-         'local-map (purecopy (make-mode-line-mouse-map
-3
+1
-                               #'mode-line-toggle-read-only))
-         'mouse-face 'mode-line-highlight)
@@ -244 +244 @@
-         "%1+"
-         'help-echo  (purecopy (lambda (window object point)
-3
+1
-                                         (save-selected-window
-                                           (select-window window)
@@ -251 +251 @@
-                                           "Not m")))))
-         'local-map (purecopy (make-mode-line-mouse-map
-3
+1
-         'mouse-face 'mode-line-highlight))
-  "Mode-line control for displaying whether current buffer is modified.")