[elpa] externals/do-at-point cd0c8d9d26 18/44: Reindent buffer

[ELPA Syncer]

branch: externals/do-at-point
commit cd0c8d9d26e90be7e1008b18b2fadd1c1d188338
Author: Philip Kaludercic <philip.kaludercic@fau.de>
Commit: Philip Kaludercic <philip.kaludercic@fau.de>

    Reindent buffer
---
 do-at-point.el | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/do-at-point.el b/do-at-point.el
index 5d221e8c2a..5e42fc6f7f 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.16 2023/07/19 20:05:11 oj14ozun Exp 
oj14ozun $
+;; Version: $Id: do-at-point.el,v 1.17 2023/07/19 20:06:40 oj14ozun Exp 
oj14ozun $
 ;; Package-Version: 1
 ;; Package-Requires: ((emacs "26.1"))
 ;; Keywords: convenience
@@ -163,21 +163,21 @@ The function consults `do-at-point-user-actions',
 `do-at-point-actions' in this order and inherits actions from
 more to less specific entries."
   (seq-reduce
-    (lambda (accum ent)
-      (let ((prev (assq (car ent) accum)))
-       (cons (list (car ent)
-                   (or (cadr ent) (cadr prev))
-                   (or (caddr ent) (caddr prev))
-                   (or (cadddr ent) (cadddr prev)))
-             (delq prev accum))))
-    (reverse (append
-             (alist-get thing do-at-point-user-actions)
-             (alist-get 'region do-at-point-user-actions)
-             (alist-get thing do-at-point-local-actions)
-             (alist-get 'region do-at-point-local-actions)
-             (alist-get thing do-at-point-actions)
-             (alist-get 'region do-at-point-actions)))
-    '()))
+   (lambda (accum ent)
+     (let ((prev (assq (car ent) accum)))
+       (cons (list (car ent)
+                  (or (cadr ent) (cadr prev))
+                  (or (caddr ent) (caddr prev))
+                  (or (cadddr ent) (cadddr prev)))
+            (delq prev accum))))
+   (reverse (append
+            (alist-get thing do-at-point-user-actions)
+            (alist-get 'region do-at-point-user-actions)
+            (alist-get thing do-at-point-local-actions)
+            (alist-get 'region do-at-point-local-actions)
+            (alist-get thing do-at-point-actions)
+            (alist-get 'region do-at-point-actions)))
+   '()))
 
 (defvar-local do-at-point--overlay nil
   "Buffer-local overlay object to display the selection overlay.
@@ -246,8 +246,8 @@ See the function `do-at-point-confirm' for more details."
 (defun do-at-point--applicable-things ()
   "Return a list of things that are applicable at point."
   (let ((actions (append do-at-point-user-actions
-                       do-at-point-local-actions
-                       do-at-point-actions)))
+                        do-at-point-local-actions
+                        do-at-point-actions)))
     (seq-filter #'thing-at-point (mapcar #'car actions))))
 
 (defun do-at-point--next-thing (&optional no-update)