[nongnu] elpa/cycle-at-point 3e7f631dea 15/18: Cleanup: reformat with updated elisp-autofmt

[ELPA Syncer]

branch: elpa/cycle-at-point
commit 3e7f631dea996c4482a6515f3a85a5e233442a81
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: reformat with updated elisp-autofmt
---
 cycle-at-point-find-integer.el | 3 +--
 cycle-at-point.el              | 7 ++-----
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/cycle-at-point-find-integer.el b/cycle-at-point-find-integer.el
index 36bdcfa78e..8153776cb4 100644
--- a/cycle-at-point-find-integer.el
+++ b/cycle-at-point-find-integer.el
@@ -140,8 +140,7 @@ Optional keyword ARGS:
                               (when c-is-upper
                                 (setq base-prefix (upcase base-prefix)))
                               (concat
-                               base-prefix
-                               (cycle-at-point-find-integer--format num 1 
base-iter))))
+                               base-prefix 
(cycle-at-point-find-integer--format num 1 base-iter))))
                             result))))))))))
     (list :data result)))
 
diff --git a/cycle-at-point.el b/cycle-at-point.el
index 74c0a0be44..566d632df3 100644
--- a/cycle-at-point.el
+++ b/cycle-at-point.el
@@ -154,9 +154,7 @@ Each list item can contain keyword/value pairs:
              (t
               (user-error
                "%s: (error at index %d) all arguments must be keyword, value 
pairs, found %S"
-               prefix
-               cycle-data-index
-               (type-of arg-current))))))
+               prefix cycle-data-index (type-of arg-current))))))
         ;; Done parsing arguments.
 
         (let* ((case-fold-search arg-case-fold)
@@ -230,8 +228,7 @@ Each list item can contain keyword/value pairs:
                                   (mapcar (lambda (w) (downcase w)) arg-words))
                                  (t
                                   (mapcar
-                                   (lambda (w) (upcase-initials (downcase w)))
-                                   arg-words)))))
+                                   (lambda (w) (upcase-initials (downcase w))) 
arg-words)))))
 
                         (setq arg-words
                               (append (seq-subseq arg-words i) (seq-subseq 
arg-words 0 i)))