Add meow-pop-to-global-mark (#679)

meow-edit · Dec 1, 2024 · 37990e5 · 37990e5
1 parent 74fc0e5
commit 37990e5
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git 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
@@ -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