ld/multiple-cursors.el
1
0
Fork 0
mirror of https://github.com/magnars/multiple-cursors.el.git synced 2025-10-14 05:13:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #28 from gvol/master

Browse Source 
Show number of cursors in mode-line
This commit is contained in:
Magnar Sveen 2012-10-20 14:49:04 -07:00
commit dce196ce9f
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
multiple-cursors-core.el
View File

@ -420,9 +420,15 @@ They are temporarily disabled when multiple-cursors are active.")
(mapc 'mc/enable-minor-mode mc/temporarily-disabled-minor-modes) (mapc 'mc/enable-minor-mode mc/temporarily-disabled-minor-modes)
(setq mc/temporarily-disabled-minor-modes nil)) (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 (define-minor-mode multiple-cursors-mode
"Mode while multiple cursors are active." "Mode while multiple cursors are active."
nil " mc" mc/keymap nil mc/mode-line mc/keymap
(if multiple-cursors-mode (if multiple-cursors-mode
(progn (progn
(mc/temporarily-disable-unsupported-minor-modes) (mc/temporarily-disable-unsupported-minor-modes)