(propertized-buffer-identification):

Replace `(:weight bold)' by `Buffer-menu-buffer-face'.
Add C-M-arrow keys for consistency.

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 1f86f3b6fcb67e4bff99d63ae4b6d2b859152dae..e1a2739d759d4c72d47f848b8bded9cc793ad770 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -460,7 +460,7 @@ Menu of mode operations in the mode line.")
 FMT is a format specifier such as \"%12b\".  This function adds
 text properties for face, help-echo, and local-map to it."
   (list (propertize fmt
-                   'face '(:weight bold)
+                   'face 'Buffer-menu-buffer-face
                    'help-echo
                    (purecopy "mouse-1: previous buffer, mouse-3: next buffer")
                    'local-map mode-line-buffer-identification-keymap)))
@@ -945,6 +945,13 @@ language you are using."
 ;; This is "move to the clipboard", or as close as we come.
 (global-set-key [S-delete] 'kill-region)
 
+(global-set-key [C-M-left]  'backward-sexp)
+(global-set-key [C-M-right] 'forward-sexp)
+(global-set-key [C-M-up]    'backward-up-list)
+(global-set-key [C-M-down]  'down-list)
+(global-set-key [C-M-home]  'beginning-of-defun)
+(global-set-key [C-M-end]   'end-of-defun)
+
 (define-key esc-map "\C-f" 'forward-sexp)
 (define-key esc-map "\C-b" 'backward-sexp)
 (define-key esc-map "\C-u" 'backward-up-list)