Add symbol-overlay-put-or-clear
This commit is contained in:
parent
3ed9686671
commit
e1f7d9ddcd
|
@ -41,11 +41,18 @@
|
||||||
("C-M-'" . smartscan-symbol-replace)))
|
("C-M-'" . smartscan-symbol-replace)))
|
||||||
|
|
||||||
(use-package symbol-overlay
|
(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
|
:bind
|
||||||
("C-c o" . symbol-overlay-put)
|
("C-c o" . symbol-overlay-put-or-clear)
|
||||||
("M-N" . symbol-overlay-switch-forward)
|
("M-N" . symbol-overlay-switch-forward)
|
||||||
("M-P" . symbol-overlay-switch-backward)
|
("M-P" . symbol-overlay-switch-backward))
|
||||||
("<f8>" . symbol-overlay-remove-all))
|
|
||||||
|
|
||||||
(use-package gumshoe
|
(use-package gumshoe
|
||||||
:defer 5
|
:defer 5
|
||||||
|
|
Loading…
Reference in New Issue