[Top][All Lists]

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

[elpa] externals/transient 99e4836 1/5: transient--invalid: Add heisenbu

From: Jonas Bernoulli
Subject: [elpa] externals/transient 99e4836 1/5: transient--invalid: Add heisenbug catcher
Date: Mon, 26 Jul 2021 16:11:44 -0400 (EDT)

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

    transient--invalid: Add heisenbug catcher
 lisp/transient.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 5f66a13..1218ce7 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2209,7 +2209,18 @@ to `transient--do-warn'."
            (propertize "?"   'face 'transient-key)
            (propertize (symbol-name (transient--suffix-symbol
-                       'face 'font-lock-warning-face)))
+                       '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)))
+      (transient--emergency-exit))
+    (view-lossage)
+    (other-window 1)
+    (display-warning 'transient "Inconsistent transient state detected.
+This should never happen.
+Please open an issue and post the shown command log.
+This is a heisenbug, so any additional details might help.
+Thanks!" :error)))
 (defun transient-toggle-common ()
   "Toggle whether common commands are always shown."

reply via email to

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