diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2023-06-02 23:26:45 +0200 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2023-06-02 23:26:45 +0200 |
| commit | 03663b8798a06bf18ff1e235ac0fb87870f8fe77 (patch) | |
| tree | 321ae342c4ae231b3e4ac7479f3b74c589f01287 /lisp/transient.el | |
| parent | dc7acb1aafe9b0b84481ac51a5bd5125d263537e (diff) | |
| download | emacs-03663b8798a06bf18ff1e235ac0fb87870f8fe77.tar.gz emacs-03663b8798a06bf18ff1e235ac0fb87870f8fe77.tar.bz2 emacs-03663b8798a06bf18ff1e235ac0fb87870f8fe77.zip | |
Update to Transient v0.4.1
Diffstat (limited to 'lisp/transient.el')
| -rw-r--r-- | lisp/transient.el | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/lisp/transient.el b/lisp/transient.el index 1d763c4ddeb..048554eee13 100644 --- a/lisp/transient.el +++ b/lisp/transient.el @@ -6,7 +6,7 @@ ;; URL: https://github.com/magit/transient ;; Keywords: extensions -;; Package-Version: 0.4.0 +;; Package-Version: 0.4.1 ;; Package-Requires: ((emacs "26.1")) ;; SPDX-License-Identifier: GPL-3.0-or-later @@ -1643,6 +1643,7 @@ of the corresponding object." "<transient-history-prev>" #'transient--do-stay "<transient-history-next>" #'transient--do-stay "<universal-argument>" #'transient--do-stay + "<universal-argument-more>" #'transient--do-stay "<negative-argument>" #'transient--do-minus "<digit-argument>" #'transient--do-stay "<top-level>" #'transient--do-quit-all @@ -3043,10 +3044,12 @@ prompt." (progn (cl-call-next-method obj value) (dolist (arg incomp) - (when-let ((obj (cl-find-if (lambda (obj) - (and (slot-boundp obj 'argument) - (equal (oref obj argument) arg))) - transient--suffixes))) + (when-let ((obj (cl-find-if + (lambda (obj) + (and (slot-exists-p obj 'argument) + (slot-boundp obj 'argument) + (equal (oref obj argument) arg))) + transient--suffixes))) (let ((transient--unset-incompatible nil)) (transient-infix-set obj nil))))) (cl-call-next-method obj value)))) @@ -3253,6 +3256,8 @@ have a history of their own.") (with-current-buffer buf (when transient-enable-popup-navigation (setq focus (or (button-get (point) 'command) + (and (not (bobp)) + (button-get (1- (point)) 'command)) (transient--heading-at-point)))) (erase-buffer) (setq window-size-fixed t) @@ -3384,7 +3389,9 @@ have a history of their own.") (insert ?\n) (insert (propertize " " 'display `(space :align-to (,(nth (1+ c) cc))))))) - (insert (make-string (max 1 (- (nth c cc) (current-column))) ?\s)) + (when (> c 0) + (insert (make-string (max 1 (- (nth c cc) (current-column))) + ?\s))) (when-let ((cell (nth r (nth c columns)))) (insert cell)) (when (= c (1- cs)) |