transient--goto-button: Cosmetics

magit · Nov 6, 2024 · 4fe05d5 · 4fe05d5
1 parent 7926f2b
commit 4fe05d5
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/lisp/transient.el b/lisp/transient.el
@@ -4459,11 +4459,12 @@ See `forward-button' for information about N."
     (when (re-search-forward (concat "^" (regexp-quote command)) nil t)
       (goto-char (match-beginning 0))))
    (command
-    (while (and (ignore-errors (forward-button 1))
-                (not (eq (button-get (button-at (point)) 'command) command))))
-    (unless (eq (button-get (button-at (point)) 'command) command)
-      (goto-char (point-min))
-      (ignore-errors (forward-button 1))))))
+    (cl-flet ((found () (eq (button-get (button-at (point)) 'command) command)))
+      (while (and (ignore-errors (forward-button 1))
+                  (not (found))))
+      (unless (found)
+        (goto-char (point-min))
+        (ignore-errors (forward-button 1)))))))
 
 (defun transient--heading-at-point ()
   (and (eq (get-text-property (point) 'face) 'transient-heading)