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

Disable multiple-cursors-mode if there's only one cursor (the real one).

Browse Source
This commit is contained in:
Magnar Sveen 2012-07-20 15:59:01 +02:00
parent 0bfd611151
commit 608ceb4b81
2 changed files with 128 additions and 100 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
features/step-definitions/multiple-cursors-steps.el
View File

@ -2,13 +2,9 @@
(lambda () (lambda ()
(delete-selection-mode 1))) (delete-selection-mode 1)))
(defun num-cursors ()
(1+ (count-if 'mc/fake-cursor-p
(overlays-in (point-min) (point-max)))))
(Then "^I should have \\([0-9]+\\) cursors$" (Then "^I should have \\([0-9]+\\) cursors$"
(lambda (num) (lambda (num)
(let ((actual (num-cursors))) (let ((actual (mc/num-cursors)))
(assert (eq (string-to-number num) actual) nil (assert (eq (string-to-number num) actual) nil
"Expected to have %s cursors, but was %d." num actual)))) "Expected to have %s cursors, but was %d." num actual))))
@ -16,7 +12,7 @@
(lambda () (lambda ()
(assert (not multiple-cursors-mode) nil (assert (not multiple-cursors-mode) nil
"Expected to have one cursor, but multiple-cursors-mode is still active.") "Expected to have one cursor, but multiple-cursors-mode is still active.")
(assert (eq 1 (num-cursors)) nil (assert (eq 1 (mc/num-cursors)) nil
"Expected to have one cursor, but there are still fake cursor overlays."))) "Expected to have one cursor, but there are still fake cursor overlays.")))
(When "^I press \"\\(.+\\)\"$" (When "^I press \"\\(.+\\)\"$"

220
multiple-cursors-core.el
View File

@ -178,10 +178,15 @@ cursor with updated info."
(defun mc/prompt-for-inclusion-in-whitelist (original-command) (defun mc/prompt-for-inclusion-in-whitelist (original-command)
"Asks the user, then adds the command either to the once-list or the all-list." "Asks the user, then adds the command either to the once-list or the all-list."
(if (y-or-n-p (format "Do %S for all cursors?" original-command)) (if (y-or-n-p (format "Do %S for all cursors?" original-command))
(add-to-list 'mc--cmds-to-run-for-all original-command) (add-to-list 'mc--default-cmds-to-run-for-all original-command)
(add-to-list 'mc--cmds-to-run-once original-command) (add-to-list 'mc--default-cmds-to-run-once original-command)
nil)) nil))
(defun mc/num-cursors ()
"The number of cursors (real and fake) in the buffer."
(1+ (count-if 'mc/fake-cursor-p
(overlays-in (point-min) (point-max)))))
(defun mc/execute-this-command-for-all-cursors () (defun mc/execute-this-command-for-all-cursors ()
"Used with post-command-hook to execute supported commands for "Used with post-command-hook to execute supported commands for
all cursors. It also checks a list of explicitly unsupported all cursors. It also checks a list of explicitly unsupported
@ -191,24 +196,26 @@ inform about the lack of support.
Commands that are neither supported nor explicitly unsupported Commands that are neither supported nor explicitly unsupported
is executed normally for point, but skipped for the fake is executed normally for point, but skipped for the fake
cursors." cursors."
(let ((original-command (or (command-remapping this-original-command) (if (eq 1 (mc/num-cursors)) ;; no fake cursors? disable mc-mode
this-original-command))) (multiple-cursors-mode 0)
(let ((original-command (or (command-remapping this-original-command)
this-original-command)))
;; if it's a lambda, we can't know if it's supported or not ;; if it's a lambda, we can't know if it's supported or not
;; - so go ahead and assume it's ok, because we're just optimistic like that ;; - so go ahead and assume it's ok, because we're just optimistic like that
(if (not (symbolp original-command)) (if (not (symbolp original-command))
(mc/execute-command-for-all-fake-cursors original-command) (mc/execute-command-for-all-fake-cursors original-command)
;; otherwise it's a symbol, and we can be more thorough ;; otherwise it's a symbol, and we can be more thorough
(if (get original-command 'mc--unsupported) (if (get original-command 'mc--unsupported)
(message "%S is not supported with multiple cursors%s" (message "%S is not supported with multiple cursors%s"
original-command original-command
(get original-command 'mc--unsupported)) (get original-command 'mc--unsupported))
(when (and original-command (when (and original-command
(not (memq original-command mc--cmds-to-run-once)) (not (memq original-command mc--default-cmds-to-run-once))
(or (memq original-command mc--cmds-to-run-for-all) (or (memq original-command mc--default-cmds-to-run-for-all)
(mc/prompt-for-inclusion-in-whitelist original-command))) (mc/prompt-for-inclusion-in-whitelist original-command)))
(mc/execute-command-for-all-fake-cursors original-command)))))) (mc/execute-command-for-all-fake-cursors original-command)))))))
(defun mc/remove-fake-cursors () (defun mc/remove-fake-cursors ()
"Remove all fake cursors. "Remove all fake cursors.
@ -284,82 +291,107 @@ from being executed if in multiple-cursors-mode."
(overlay-put cursor 'kill-ring-yank-pointer kill-ring-yank-pointer))))))) (overlay-put cursor 'kill-ring-yank-pointer kill-ring-yank-pointer)))))))
;;---------------------------------------------------------------------------------------- ;;----------------------------------------------------------------------------------------
;; Commands to run only once (don't need to message about skipping it) (defvar mc--default-cmds-to-run-once '(save-buffer
(setq mc--cmds-to-run-once '(mark-next-like-this ido-exit-minibuffer
save-buffer undo undo-tree-undo
undo redo undo-tree-redo
undo-tree-undo universal-argument
undo-tree-redo universal-argument-other-key
universal-argument top-level
universal-argument-other-key mc/switch-from-mark-multiple-to-cursors
mc/switch-from-mark-multiple-to-cursors mc/edit-lines
mc/edit-lines mc/edit-ends-of-lines
mc/edit-ends-of-lines mc/edit-beginnings-of-lines
mc/edit-beginnings-of-lines)) mc/mark-next-like-this)
"Default set of commands to run only once in multiple-cursors-mode.")
(defvar mc/cmds-to-run-once nil
"Commands to run only once in multiple-cursors-mode.")
(defvar mc--default-cmds-to-run-for-all '(mc/keyboard-quit
self-insert-command
previous-line
next-line
newline
newline-and-indent
join-line
right-char
right-word
forward-char
forward-word
left-char
left-word
backward-char
backward-word
upcase-word
downcase-word
capitalize-word
forward-list
backward-list
hippie-expand
hippie-expand-lines
yank
yank-pop
kill-word
kill-line
kill-whole-line
backward-kill-word
backward-delete-char-untabify
delete-char delete-forward-char
delete-backward-char
just-one-space
zap-to-char
end-of-line
set-mark-command
move-end-of-line
beginning-of-line
move-beginning-of-line
kill-ring-save
back-to-indentation
;; mode specific commands
org-shiftright
sgml-slash
slime-space
subword-forward
subword-backward
subword-mark
subword-kill
subword-backward-kill
subword-transpose
subword-capitalize
subword-upcase
subword-downcase
js2-beginning-of-line
js2-end-of-line
js2-insert-and-indent
js2r-inline-var
c-electric-delete-forward
c-electric-backspace
c-electric-paren
c-electric-semi&comma
;; common extension commands
wrap-region-trigger
yas/expand
;; magnars extension commands
er/expand-region
er/contract-region
smart-forward
smart-backward
smart-up
smart-down)
"Default set of commands that should be mirrored by all cursors")
(defvar mc/cmds-to-run-for-all nil
"Commands to run for all cursors in multiple-cursors-mode")
(setq mc/cmds-to-run-for-all '(save-region-or-current-line
kill-region-or-backward-word
change-number-at-point
dired-back-to-start-of-files
yank-indented))
;; Commands that should be mirrored by all cursors
(setq mc--cmds-to-run-for-all '(mc/keyboard-quit
self-insert-command
js2-insert-and-indent
wrap-region-trigger
sgml-slash
slime-space
previous-line
next-line
newline
yas/expand
newline-and-indent
join-line
right-char forward-char
right-word forward-word
left-char backward-char
left-word backward-word
upcase-word
downcase-word
capitalize-word
forward-list
backward-list
hippie-expand hippie-expand-lines
yank yank-indented yank-pop
kill-word
kill-region-or-backward-word
kill-line
kill-whole-line
subword-forward
subword-backward
subword-mark
subword-kill
subword-backward-kill
subword-transpose
subword-capitalize
subword-upcase
subword-downcase
backward-kill-word
backward-delete-char-untabify
delete-char delete-forward-char c-electric-delete-forward
delete-backward-char c-electric-backspace
c-electric-paren
c-electric-semi&comma
org-shiftright
just-one-space
zap-to-char
end-of-line
set-mark-command
js2-beginning-of-line
js2-end-of-line
js2r-inline-var
change-number-at-point
move-end-of-line
beginning-of-line
er/expand-region
er/mark-word
smart-forward
smart-backward
smart-up
smart-down
move-beginning-of-line
dired-back-to-start-of-files
kill-ring-save save-region-or-current-line
back-to-indentation))
(provide 'multiple-cursors-core) (provide 'multiple-cursors-core)