branch: elpa/multiple-cursors
commit bb546b11d88f08c60bb4e7c304ad2a8919615ecd
Author: Ivan Andrus <[email protected]>
Commit: Ivan Andrus <[email protected]>
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)
