diff options
| author | Philip Kaludercic <philip.kaludercic@fau.de> | 2023-08-25 19:13:41 +0000 |
|---|---|---|
| committer | Philip Kaludercic <philip.kaludercic@fau.de> | 2023-08-25 19:13:41 +0000 |
| commit | dc34b76d8cd06540f503f05c0e2a0a9e90b55075 (patch) | |
| tree | d31d44d308ca95425e350c78c115ed9e761f6ee8 | |
| parent | 6cfc8ade2c242966731a5a49b2ed3e2f00f0a5d2 (diff) | |
Allow customising the face used for selection
| -rw-r--r-- | do-at-point.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/do-at-point.el b/do-at-point.el index 82d2e06..a2b93a2 100644 --- a/do-at-point.el +++ b/do-at-point.el @@ -5,7 +5,7 @@ ;; Author: Philip Kaludercic <philipk@posteo.net> ;; Maintainer: Philip Kaludercic <philipk@posteo.net> ;; URL: https://wwwcip.cs.fau.de/~oj14ozun/src+etc/do-at-point.el -;; Version: $Id: do-at-point.el,v 1.39 2023/08/25 19:10:59 oj14ozun Exp oj14ozun $ +;; Version: $Id: do-at-point.el,v 1.40 2023/08/25 19:11:27 oj14ozun Exp oj14ozun $ ;; Package-Version: 1 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: convenience @@ -150,6 +150,10 @@ Quick bindings allow for the user to operate on a selection without having to have confirmed the first." :type 'boolean) +(defcustom do-at-point-selection-face 'highlight + "Face to use to highlight the selected thing." + :type 'face) + (defvar do-at-point--quick-map (make-sparse-keymap)) (defun do-at-point--actions (thing) @@ -300,7 +304,7 @@ instead." :interactive nil (if do-at-point--mode (let ((ov (let ((ov (make-overlay 0 0))) - (overlay-put ov 'face 'highlight) + (overlay-put ov 'face do-at-point-selection-face) (delete-overlay ov) ov))) (overlay-put ov 'do-at-point-key last-command-event) |