emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/transient 892bc840c0 072/366: transient--original-buffe


From: Jonas Bernoulli
Subject: [elpa] externals/transient 892bc840c0 072/366: transient--original-buffer: Set globally
Date: Tue, 25 Jan 2022 18:54:27 -0500 (EST)

branch: externals/transient
commit 892bc840c0258e7f18ffe5a8dd2de20f47fb11b9
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient--original-buffer: Set globally
---
 lisp/transient.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 8e02ae6803..718930d8a0 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -1374,6 +1374,7 @@ EDIT may be non-nil."
   (setq transient--predicate-map (transient--make-predicate-map))
   (setq transient--transient-map (transient--make-transient-map))
   (setq transient--redisplay-map (transient--make-redisplay-map))
+  (setq transient--original-buffer (current-buffer))
   (transient--redisplay)
   (transient--init-transient)
   (transient--suspend-which-key-mode))
@@ -1567,6 +1568,7 @@ EDIT may be non-nil."
   (setq transient--prefix nil)
   (setq transient--layout nil)
   (setq transient--suffixes nil)
+  (setq transient--original-buffer nil)
   (setq transient--window nil))
 
 (defun transient--delete-window ()
@@ -2373,8 +2375,7 @@ have a history of their own.")
 (defun transient--show ()
   (transient--timer-cancel)
   (setq transient--showp t)
-  (let ((transient--original-buffer (current-buffer))
-        (buf (get-buffer-create " *transient*")))
+  (let ((buf (get-buffer-create " *transient*")))
     (unless (window-live-p transient--window)
       (setq transient--window
             (display-buffer buf transient-display-buffer-action)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]