From 880b98d60e13787438b1f7197aab4aec3a3299fb Mon Sep 17 00:00:00 2001 From: Phil Jackson Date: Wed, 1 Sep 2010 19:35:12 +0100 Subject: [PATCH] All actions fontified. --- magit-key-mode.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/magit-key-mode.el b/magit-key-mode.el index acc84f22..7f1cb79e 100644 --- a/magit-key-mode.el +++ b/magit-key-mode.el @@ -309,11 +309,15 @@ put it in magit-key-mode-key-maps for fast lookup." (defun magit-key-mode-draw-actions (actions) (when actions - (let* ((action-strs (mapcar (lambda (a) - (format " %s: %s" (car a) (nth 1 a))) - actions)) + (let* ((action-strs (mapcar + (lambda (a) + (format + " %s: %s" + (propertize (car a) 'face 'font-lock-builtin-face) + (nth 1 a))) + actions)) (longest-act (apply 'max (mapcar 'length action-strs))) - (max-size 70)) + (max-size 60)) (magit-key-mode-draw-header "Actions\n") (dolist (str action-strs) (let ((padding (make-string (- (+ longest-act 5) (length str)) ? )))