[nongnu] elpa/meow 37990e5323 1/8: Add meow-pop-to-global-mark (#679)

[ELPA Syncer]

branch: elpa/meow
commit 37990e53236fa18a70152fa740f6ffcec35807de
Author: Gabriel Santos <172639817+gs-101@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Add meow-pop-to-global-mark (#679)
---
 meow-command.el | 10 ++++++++++
 meow-var.el     |  3 +++
 2 files changed, 13 insertions(+)

diff --git a/meow-command.el b/meow-command.el
index 448b59dcb0..9120ca06c9 100644
--- a/meow-command.el
+++ b/meow-command.el
@@ -1564,6 +1564,16 @@ Before jump, a mark of current location will be created."
     (setq mark-ring (append mark-ring (list (point-marker)))))
   (pop-to-mark-command))
 
+(defun meow-pop-to-global-mark ()
+  "Alternative command to `pop-global-mark'.
+
+Before jump, a mark of current location will be created."
+  (interactive)
+  (meow--cancel-selection)
+  (unless (member last-command '(meow-pop-to-global-mark meow-pop-to-mark 
meow-unpop-to-mark))
+    (setq global-mark-ring (append global-mark-ring (list (point-marker)))))
+  (meow--execute-kbd-macro meow--kbd-pop-global-mark))
+
 (defun meow-back-to-indentation ()
   "Back to indentation."
   (interactive)
diff --git a/meow-var.el b/meow-var.el
index 2debe76528..922cb23b15 100644
--- a/meow-var.el
+++ b/meow-var.el
@@ -533,6 +533,9 @@ Allows support of modes that define their own equivalent of 
`insert'.")
 
 Has a structure of (sel-type point mark).")
 
+(defvar meow--kbd-pop-global-mark "C-x C-@"
+  "KBD macro for command `pop-global-mark'.")
+
 ;;; Hooks
 
 (defvar meow-switch-state-hook nil