From: Juri Linkov <juri@jurta.org>
Date: Sat, 1 May 2004 03:50:24 +0000 (+0000)
Subject: (propertized-buffer-identification):
X-Git-Tag: ttn-vms-21-2-B4~6484
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=486add9d38b9862445be50158b324f2cc45672c5;p=emacs.git

(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 1f86f3b6fcb..e1a2739d759 100644
--- 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)