procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update to Transient v0.4.1

Browse source
This commit is contained in:
Jonas Bernoulli 2023-06-02 23:26:45 +02:00
parent dc7acb1aaf
commit 03663b8798
No known key found for this signature in database
GPG key ID: 230C2EFBB326D927
2 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
doc/misc/transient.texi
View file

@ -31,7 +31,7 @@ General Public License for more details.
@finalout @finalout
@titlepage @titlepage
@title Transient User and Developer Manual @title Transient User and Developer Manual
@subtitle for version 0.4.0 @subtitle for version 0.4.1
@author Jonas Bernoulli @author Jonas Bernoulli
@page @page
@vskip 0pt plus 1filll @vskip 0pt plus 1filll
@ -74,7 +74,7 @@ that hurdle is Psionic K's interactive tutorial, available at
@end quotation @end quotation
@noindent @noindent
This manual is for Transient version 0.4.0. This manual is for Transient version 0.4.1.
@insertcopying @insertcopying
@end ifnottex @end ifnottex
@ -2150,7 +2150,7 @@ default value of a prefix using the same format as returned by
@item @item
@code{always-read} For options, whether to read a value on every invocation. @code{always-read} For options, whether to read a value on every invocation.
If this is nil, then options that have a value are simply unset and If this is @code{nil}, then options that have a value are simply unset and
have to be invoked a second time to set a new value. have to be invoked a second time to set a new value.
@item @item

15
lisp/transient.el
View file

@ -6,7 +6,7 @@
;; URL: https://github.com/magit/transient ;; URL: https://github.com/magit/transient
;; Keywords: extensions ;; Keywords: extensions
;; Package-Version: 0.4.0 ;; Package-Version: 0.4.1
;; Package-Requires: ((emacs "26.1")) ;; Package-Requires: ((emacs "26.1"))
;; SPDX-License-Identifier: GPL-3.0-or-later ;; SPDX-License-Identifier: GPL-3.0-or-later
@ -1643,6 +1643,7 @@ of the corresponding object."
"<transient-history-prev>" #'transient--do-stay "<transient-history-prev>" #'transient--do-stay
"<transient-history-next>" #'transient--do-stay "<transient-history-next>" #'transient--do-stay
"<universal-argument>" #'transient--do-stay "<universal-argument>" #'transient--do-stay
"<universal-argument-more>" #'transient--do-stay
"<negative-argument>" #'transient--do-minus "<negative-argument>" #'transient--do-minus
"<digit-argument>" #'transient--do-stay "<digit-argument>" #'transient--do-stay
"<top-level>" #'transient--do-quit-all "<top-level>" #'transient--do-quit-all
@ -3043,8 +3044,10 @@ prompt."
(progn (progn
(cl-call-next-method obj value) (cl-call-next-method obj value)
(dolist (arg incomp) (dolist (arg incomp)
(when-let ((obj (cl-find-if (lambda (obj) (when-let ((obj (cl-find-if
(and (slot-boundp obj 'argument) (lambda (obj)
(and (slot-exists-p obj 'argument)
(slot-boundp obj 'argument)
(equal (oref obj argument) arg))) (equal (oref obj argument) arg)))
transient--suffixes))) transient--suffixes)))
(let ((transient--unset-incompatible nil)) (let ((transient--unset-incompatible nil))
@ -3253,6 +3256,8 @@ have a history of their own.")
(with-current-buffer buf (with-current-buffer buf
(when transient-enable-popup-navigation (when transient-enable-popup-navigation
(setq focus (or (button-get (point) 'command) (setq focus (or (button-get (point) 'command)
(and (not (bobp))
(button-get (1- (point)) 'command))
(transient--heading-at-point)))) (transient--heading-at-point))))
(erase-buffer) (erase-buffer)
(setq window-size-fixed t) (setq window-size-fixed t)
@ -3384,7 +3389,9 @@ have a history of their own.")
(insert ?\n) (insert ?\n)
(insert (propertize " " 'display (insert (propertize " " 'display
`(space :align-to (,(nth (1+ c) cc))))))) `(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)))) (when-let ((cell (nth r (nth c columns))))
(insert cell)) (insert cell))
(when (= c (1- cs)) (when (= c (1- cs))