diff options
| author | Philip Kaludercic <philip.kaludercic@fau.de> | 2023-07-20 09:04:08 +0000 |
|---|---|---|
| committer | Philip Kaludercic <philip.kaludercic@fau.de> | 2023-07-20 09:04:08 +0000 |
| commit | 4a585ea1a57e9e7154396aa9da4c194ce8e113c8 (patch) | |
| tree | f20a967368099fad0944d387dea081c15e01ef79 | |
| parent | 9d2ead6890b5b8b7052fcadbf7685cc37300772b (diff) | |
Ensure 'do-at-point--overlay' as an initial value
| -rw-r--r-- | do-at-point.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/do-at-point.el b/do-at-point.el index 807e776..738be89 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.20 2023/07/19 20:08:58 oj14ozun Exp oj14ozun $ +;; Version: $Id: do-at-point.el,v 1.21 2023/07/19 20:14:19 oj14ozun Exp oj14ozun $ ;; Package-Version: 1 ;; Package-Requires: ((emacs "26.1")) ;; Keywords: convenience @@ -181,7 +181,12 @@ more to less specific entries." (alist-get 'region do-at-point-actions))) '())) -(defvar-local do-at-point--overlay nil +(defvar-local do-at-point--overlay + (let ((ov (make-overlay 0 0))) + (delete-overlay ov) + (overlay-put ov 'face 'highlight) + (overlay-put ov 'face 'highlight) + ov) "Buffer-local overlay object to display the selection overlay. The overlay is also used to store properties like the current thing being selected and the key used to invoke `do-at-point'.") |