branch: externals/do-at-point
commit 363aeaea135bde17699f5fddbebca3de8a6e9138
Author: Philip Kaludercic <philip.kaluder...@fau.de>
Commit: Philip Kaludercic <philip.kaluder...@fau.de>
Refold some lines in 'do-at-point--next-thing'
---
do-at-point.el | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/do-at-point.el b/do-at-point.el
index ee3123c343..da7688336d 100644
--- a/do-at-point.el
+++ b/do-at-point.el
@@ -5,7 +5,7 @@
;; Author: Philip Kaludercic <phil...@posteo.net>
;; Maintainer: Philip Kaludercic <phil...@posteo.net>
;; URL: https://wwwcip.cs.fau.de/~oj14ozun/src+etc/do-at-point.el
-;; Version: $Id: do-at-point.el,v 1.8 2023/07/17 14:09:59 oj14ozun Exp
oj14ozun $
+;; Version: $Id: do-at-point.el,v 1.9 2023/07/18 07:07:17 oj14ozun Exp
oj14ozun $
;; Package-Version: 1
;; Package-Requires: ((emacs "26.1"))
;; Keywords: convenience
@@ -236,9 +236,7 @@ value of the function is always the new \"thing\"."
(things (seq-filter #'thing-at-point (mapcar #'car actions)))
(thing (overlay-get do-at-point--overlay 'do-at-point-thing)))
(setq thing (or (cadr (memq thing things)) (car things)))
- (prog1 (overlay-put do-at-point--overlay
- 'do-at-point-thing
- thing)
+ (prog1 (overlay-put do-at-point--overlay 'do-at-point-thing thing)
;; clear and reinitialise the shortcut map
(setcdr do-at-point--shortcut-map nil)
(dolist (key (mapcar #'car (do-at-point--actions thing)))
