branch: elpa/multiple-cursors
commit dce196ce9fd7215ae5ac530174d1c01c360c69a0
Merge: 796fb64 bb546b1
Author: Magnar Sveen <[email protected]>
Commit: Magnar Sveen <[email protected]>
Merge pull request #28 from gvol/master
Show 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)
