branch: externals/do-at-point
commit 32a256c124c7eb68e2ec654aca7a2dae36c81a06
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
Add a highlight action
---
do-at-point.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/do-at-point.el b/do-at-point.el
index b34935f47d..909bdc139a 100644
--- a/do-at-point.el
+++ b/do-at-point.el
@@ -99,7 +99,14 @@ of this variable.")
(shell-command-on-region beg end cmd nil t))))
(?! "Shell command" ,(if (fboundp 'shell-command+)
#'shell-command+
- (lambda (cmd) (shell-command cmd)))))
+ (lambda (cmd) (shell-command cmd))))
+ (?h "Highlight" ,(eval-when-compile
+ (require 'hi-lock)
+ (lambda (str)
+ (let ((hi-lock-auto-select-face t))
+ (highlight-regexp
+ (regexp-quote str)
+ (hi-lock-read-face-name)))))))
(email
(?m "Compose message" ,(lambda (to) (compose-mail to))))
(existing-filename
