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

Update to Transient v0.3.7-218-g3dbb22a

Browse source
This commit is contained in:
Jonas Bernoulli 2023-03-26 23:53:03 +02:00
parent a8c23677d3
commit 0337131bfa
No known key found for this signature in database
GPG key ID: 230C2EFBB326D927
2 changed files with 25 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
doc/misc/transient.texi
View file

@ -2566,6 +2566,20 @@ currently exist.
Yes, see @code{transient-display-buffer-action} in @ref{Configuration}.
@anchor{How can I copy text from the popup buffer?}
@appendixsec How can I copy text from the popup buffer?
To be able to mark text in any transient popup buffer using the mouse,
you have to add the following binding. Note that the region won't be
visualized, while doing so. After you have quit the transient popup,
you will be able to yank it another buffer.
@lisp
(keymap-set transient-predicate-map
"<mouse-set-region>"
#'transient--do-stay)
@end lisp
@anchor{Why did some of the key bindings change?}
@appendixsec Why did some of the key bindings change?

17
lisp/transient.el
View file

@ -2516,17 +2516,22 @@ prefix argument and pivot to `transient-update'."
(defun transient--invalid (msg)
(ding)
(message "%s: `%s' (Use `%s' to abort, `%s' for help) [%s]"
(message "%s: `%s' (Use `%s' to abort, `%s' for help)%s"
msg
(propertize (key-description (this-single-command-keys))
'face 'font-lock-warning-face)
(propertize "C-g" 'face 'transient-key)
(propertize "?" 'face 'transient-key)
;; `this-command' is `transient--undefined' or similar at this
;; point. Show the command the user actually tried to invoke.
(propertize (symbol-name (transient--suffix-symbol
this-original-command))
'face 'font-lock-warning-face))
;; `this-command' is `transient-undefined' or `transient-inapt'.
;; Show the command (`this-original-command') the user actually
;; tried to invoke. For an anonymous inapt command that is a
;; lambda expression, which cannot be mapped to a symbol, so
;; forgo displaying the command.
(if-let ((cmd (ignore-errors
(symbol-name (transient--suffix-symbol
this-original-command)))))
(format " [%s]" (propertize cmd 'face 'font-lock-warning-face))
""))
(unless (and transient--transient-map
(memq transient--transient-map overriding-terminal-local-map))
(let ((transient--prefix (or transient--prefix 'sic)))