[nongnu] elpa/multiple-cursors 4535033 235/434: Added a new function mc/mark-pop that sets cursors by popping marks off the mark stack.

[ELPA Syncer]

branch: elpa/multiple-cursors
commit 4535033952dce38ee77ba1b856b5744a3f6e1559
Author: Zach Kost-Smith <smithzv@ciabatta.(none)>
Commit: Zach Kost-Smith <smithzv@ciabatta.(none)>

    Added a new function mc/mark-pop that sets cursors by popping marks off the 
mark stack.
---
 mc-mark-pop.el      | 23 +++++++++++++++++++++++
 multiple-cursors.el |  1 +
 2 files changed, 24 insertions(+)

diff --git a/mc-mark-pop.el b/mc-mark-pop.el
new file mode 100644
index 0000000..b93a267
--- /dev/null
+++ b/mc-mark-pop.el
@@ -0,0 +1,23 @@
+;;; mc-mark-pop.el --- Pop cursors off of the mark stack
+
+(require 'multiple-cursors-core)
+
+;;;###autoload
+(defun mc/mark-pop ()
+  "Add one cursor to each line of the active region.
+Starts from mark and moves in straight down or up towards the
+line point is on."
+  (interactive)
+  ;; If the mark happens to be at the current point, just pop that one off.
+  (while (eql (mark) (point))
+    (pop-mark))
+  (mc/create-fake-cursor-at-point)
+  (exchange-point-and-mark)
+  (pop-mark)
+  (mc/maybe-multiple-cursors-mode))
+
+;; A good key binding for this feature is perhaps "C-S-p" ('p' for pop).
+
+(provide 'mc-mark-pop)
+
+;;; mc-mark-pop.el ends here
diff --git a/multiple-cursors.el b/multiple-cursors.el
index 4b5c6f8..84fde33 100644
--- a/multiple-cursors.el
+++ b/multiple-cursors.el
@@ -182,6 +182,7 @@
 (require 'mc-edit-lines)
 (require 'mc-cycle-cursors)
 (require 'mc-mark-more)
+(require 'mc-mark-pop)
 (require 'rectangular-region-mode)
 (require 'mc-separate-operations)