better activation of symbol-overlay commands

1 files changed, 13 insertions, 2 deletions

diff --git a/init.el b/init.el
index c5492c8..0ef8d31 100644
--- a/init.el
+++ b/init.el
@@ -1903,9 +1903,20 @@
   (defun jao-symbol-reveal (&rest _)
     (when outline-minor-mode (outline-show-entry)))
   (advice-add 'symbol-overlay-basic-jump :after 'jao-symbol-reveal)
+
+  (defun jao-symbol-put-and-next ()
+    (interactive)
+    (symbol-overlay-put)
+    (symbol-overlay-jump-next))
+
+  (defun jao-symbol-put-and-prev ()
+    (interactive)
+    (symbol-overlay-put)
+    (symbol-overlay-jump-prev))
+
   :bind (:map prog-mode-map (("M-i" . symbol-overlay-put)
-                             ("M-n" . symbol-overlay-switch-forward)
-                             ("M-p" . symbol-overlay-switch-backward)))
+                             ("M-n" . jao-symbol-put-and-next)
+                             ("M-p" . jao-symbol-put-and-prev)))
   :hook (prog-mode . symbol-overlay-mode)
   :diminish " ^")