update packages

lisp/transient/transient-pkg.el

@@ -1,12 +1,12 @@
 ;; -*- no-byte-compile: t; lexical-binding: nil -*-
-(define-package "transient" "20250616.1830"
+(define-package "transient" "20250701.1223"
   "Transient commands."
   '((emacs  "26.1")
     (compat "30.1")
     (seq    "2.24"))
   :url "https://github.com/magit/transient"
-  :commit "415f74bf97f6dd8e76131cd5cb3a9a8f77c273e5"
-  :revdesc "415f74bf97f6"
+  :commit "49bbb29fd34b807948d4f2b91f61587c12a595f0"
+  :revdesc "49bbb29fd34b"
   :keywords '("extensions")
   :authors '(("Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev"))
   :maintainers '(("Jonas Bernoulli" . "emacs.transient@jonas.bernoulli.dev")))

lisp/transient/transient.el

@@ -6,8 +6,8 @@
 ;; Homepage: https://github.com/magit/transient
 ;; Keywords: extensions
 
-;; Package-Version: 20250616.1830
-;; Package-Revision: 415f74bf97f6
+;; Package-Version: 20250701.1223
+;; Package-Revision: 49bbb29fd34b
 ;; Package-Requires: ((emacs "26.1") (compat "30.1") (seq "2.24"))
 
 ;; SPDX-License-Identifier: GPL-3.0-or-later
@@ -35,7 +35,7 @@
 
 ;;; Code:
 
-(defconst transient-version "0.9.2")
+(defconst transient-version "0.9.3")
 
 (require 'cl-lib)
 (require 'compat)
@@ -2759,10 +2759,8 @@ value.  Otherwise return CHILDREN as is.")
 
 (defun transient--resume-override (&optional _ignore)
   (transient--debug 'resume-override)
-  (cond ((and transient--showp (not (window-live-p transient--window)))
-         (transient--show))
-        ((window-live-p transient--window)
-         (transient--fit-window-to-buffer transient--window)))
+  (when (window-live-p transient--window)
+    (transient--fit-window-to-buffer transient--window))
   (transient--push-keymap 'transient--transient-map)
   (transient--push-keymap 'transient--redisplay-map)
   (add-hook 'pre-command-hook  #'transient--pre-command)
@@ -5124,7 +5122,9 @@ See `forward-button' for information about N."
     (when (re-search-forward (concat "^" (regexp-quote command)) nil t)
       (goto-char (match-beginning 0))))
    (command
-    (cl-flet ((found () (eq (button-get (button-at (point)) 'command) command)))
+    (cl-flet ((found ()
+                (and-let* ((button (button-at (point))))
+                  (eq (button-get button 'command) command))))
       (while (and (ignore-errors (forward-button 1))
                   (not (found))))
       (unless (found)

lisp/transient/transient.info

@@ -32,7 +32,7 @@ used to implement similar menus in other packages.
 resource to get over that hurdle is Psionic K's interactive tutorial,
 available at <https://github.com/positron-solutions/transient-showcase>.
 
-This manual is for Transient version 0.9.2.
+This manual is for Transient version 0.9.3.
 
      Copyright (C) 2018-2025 Free Software Foundation, Inc.