From bb546b11d88f08c60bb4e7c304ad2a8919615ecd Mon Sep 17 00:00:00 2001 From: Ivan Andrus Date: Sat, 20 Oct 2012 22:01:34 +0200 Subject: [PATCH] Display number of cursors in mode-line --- multiple-cursors-core.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/multiple-cursors-core.el b/multiple-cursors-core.el index 3874231..35e01b7 100644 --- a/multiple-cursors-core.el +++ b/multiple-cursors-core.el @@ -420,9 +420,15 @@ They are temporarily disabled when multiple-cursors are active.") (mapc 'mc/enable-minor-mode mc/temporarily-disabled-minor-modes) (setq mc/temporarily-disabled-minor-modes nil)) +(defcustom mc/mode-line + `(" mc:" (:eval (format ,(propertize "%d" 'face 'font-lock-warning-face) + (mc/num-cursors)))) + "What to display in the mode line while multiple-cursors-mode is active." + :group 'multiple-cursors) + (define-minor-mode multiple-cursors-mode "Mode while multiple cursors are active." - nil " mc" mc/keymap + nil mc/mode-line mc/keymap (if multiple-cursors-mode (progn (mc/temporarily-disable-unsupported-minor-modes)