diff options
| author | Philip Kaludercic <philip.kaludercic@fau.de> | 2023-07-18 07:09:53 +0000 |
|---|---|---|
| committer | Philip Kaludercic <philip.kaludercic@fau.de> | 2023-07-18 07:09:53 +0000 |
| commit | 363aeaea135bde17699f5fddbebca3de8a6e9138 (patch) | |
| tree | 2f962d5a1901b4fe3e19f4498c2e82377975ec65 | |
| parent | 1c7a75a8f966c9e2c9f13248db632222aed7d953 (diff) | |
Refold some lines in 'do-at-point--next-thing'
| -rw-r--r-- | do-at-point.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/do-at-point.el b/do-at-point.el index ee3123c..da76883 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.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))) |