From 3f4a0d5370ae6c34afe180df96add3b8522f4af1 Mon Sep 17 00:00:00 2001 From: mattkae Date: Wed, 11 May 2022 09:23:58 -0400 Subject: initial commit --- elpa/multiple-cursors-20220328.1724/mc-mark-pop.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 elpa/multiple-cursors-20220328.1724/mc-mark-pop.el (limited to 'elpa/multiple-cursors-20220328.1724/mc-mark-pop.el') diff --git a/elpa/multiple-cursors-20220328.1724/mc-mark-pop.el b/elpa/multiple-cursors-20220328.1724/mc-mark-pop.el new file mode 100644 index 0000000..8a18381 --- /dev/null +++ b/elpa/multiple-cursors-20220328.1724/mc-mark-pop.el @@ -0,0 +1,22 @@ +;;; mc-mark-pop.el --- Pop cursors off of the mark stack + +(require 'multiple-cursors-core) + +;;;###autoload +(defun mc/mark-pop () + "Add a cursor at the current point, pop off mark ring and jump +to the popped mark." + (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 -- cgit v1.2.1