From 30681b98fed3e90a653a741a644c94ee4f89a719 Mon Sep 17 00:00:00 2001 From: Gabriel do Nascimento Ribeiro Date: Fri, 21 Apr 2023 02:51:47 -0300 Subject: [PATCH 1/1] Add command to highlight line or region to pulse.el * lisp/cedet/pulse.el (pulse-momentary-highlight-line-or-region): New command. --- lisp/cedet/pulse.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index 37b41fbe8c3..c76668152f7 100644 --- a/lisp/cedet/pulse.el +++ b/lisp/cedet/pulse.el @@ -215,6 +215,14 @@ pulse-momentary-highlight-region (overlay-put o 'pulse-delete t) (pulse-momentary-highlight-overlay o face))) +;;;###autoload +(defun pulse-momentary-highlight-line-or-region () + "Highlight current region, when active, or current line, otherwise." + (interactive) + (if (use-region-p) + (pulse-momentary-highlight-region (region-beginning) (region-end)) + (pulse-momentary-highlight-one-line))) + ;;; Random integration with other tools (defvar pulse-command-advice-flag nil) -- 2.34.1