diff options
| -rw-r--r-- | lisp/transient.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index c902961..0031450 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -1642,7 +1642,7 @@ symbol property.") [[layout (or (get prefix 'transient--layout) ;; Migrate unparsed legacy group definition. (condition-case-unless-debug err - (and-let* ((value (symbol-value prefix))) + (and-let ((value (symbol-value prefix))) (transient--set-layout prefix (if (and (listp value) @@ -1903,7 +1903,7 @@ See info node `(transient)Modifying Existing Transients'." (plist-get props :command))))) (defun transient--command-key (cmd) - (and-let* ((obj (transient--suffix-prototype cmd))) + (and-let ((obj (transient--suffix-prototype cmd))) (cond ((slot-boundp obj 'key) (oref obj key)) ((slot-exists-p obj 'shortarg) @@ -2430,7 +2430,7 @@ of the corresponding object." ((eq alt cmd)) ((oref obj inactive)) ((oref obj inapt)) - ((and-let* ((alt (transient-suffix-object alt))) + ((and-let ((alt (transient-suffix-object alt))) (or (oref alt inactive) (oref alt inapt))) (define-key map kbd cmd)) @@ -2532,7 +2532,7 @@ of the corresponding object." (if transient--redisplay-key (let ((key (vconcat transient--redisplay-key))) (or (lookup-key transient--transient-map key) - (and-let* ((regular (lookup-key local-function-key-map key))) + (and-let ((regular (lookup-key local-function-key-map key))) (lookup-key transient--transient-map (vconcat regular))))) transient--transient-map)) topmap)) @@ -4375,7 +4375,7 @@ slot, but callers of `transient-args' wish to treat the values of certain suffixes as multiple values. That translation is handled here. The object's `multi-value' slot specifies whether and how to interpret the `value' as multiple values." - (and-let* ((value (transient-infix-value obj))) + (and-let ((value (transient-infix-value obj))) (pcase-exhaustive (and (slot-exists-p obj 'multi-value) (oref obj multi-value)) ('nil (list value)) @@ -4413,7 +4413,7 @@ does nothing." nil) (cl-defmethod transient-infix-value ((obj transient-option)) "Return ARGUMENT and VALUE as a unit or nil if the latter is nil." - (and-let* ((value (oref obj value))) + (and-let ((value (oref obj value))) (let ((arg (oref obj argument))) (pcase-exhaustive (oref obj multi-value) ('nil (concat arg value)) @@ -4835,7 +4835,7 @@ have a history of their own.") (lambda (column) (transient--maybe-pad-keys column group) (transient-with-shadowed-buffer - `(,@(and-let* ((desc (transient-format-description column))) + `(,@(and-let ((desc (transient-format-description column))) (list desc)) ,@(let ((transient--pending-group column)) (mapcar #'transient-format |