[nongnu] elpa/multiple-cursors dce196c 167/434: Merge pull request #28 from gvol/master

[ELPA Syncer]

branch: elpa/multiple-cursors
commit dce196ce9fd7215ae5ac530174d1c01c360c69a0
Merge: 796fb64 bb546b1
Author: Magnar Sveen <magnars@gmail.com>
Commit: Magnar Sveen <magnars@gmail.com>

    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)