From e1f7d9ddcd335b99f4a672579189ba8c1f43c915 Mon Sep 17 00:00:00 2001 From: David Morgan Date: Mon, 17 Oct 2022 16:38:36 +0100 Subject: [PATCH] Add symbol-overlay-put-or-clear --- .emacs.d/lisp/init-navigation.el | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/.emacs.d/lisp/init-navigation.el b/.emacs.d/lisp/init-navigation.el index 714a95e..5a8ec98 100644 --- a/.emacs.d/lisp/init-navigation.el +++ b/.emacs.d/lisp/init-navigation.el @@ -41,11 +41,18 @@ ("C-M-'" . smartscan-symbol-replace))) (use-package symbol-overlay + :config + (defun symbol-overlay-put-or-clear (arg) + "Toggle all overlays of symbol at point. +Or remove all highlighted symbols in the current buffer (with`ARG')." + (interactive "P") + (if arg + (symbol-overlay-remove-all) + (symbol-overlay-put))) :bind - ("C-c o" . symbol-overlay-put) + ("C-c o" . symbol-overlay-put-or-clear) ("M-N" . symbol-overlay-switch-forward) - ("M-P" . symbol-overlay-switch-backward) - ("" . symbol-overlay-remove-all)) + ("M-P" . symbol-overlay-switch-backward)) (use-package gumshoe :defer 5