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

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

[elpa] externals/bug-hunter aacb7dc 91/95: [Fix #15] Don't offer interac


From: Stefan Monnier
Subject: [elpa] externals/bug-hunter aacb7dc 91/95: [Fix #15] Don't offer interactive bisection in the terminal
Date: Fri, 27 Nov 2020 22:07:03 -0500 (EST)

branch: externals/bug-hunter
commit aacb7dcbf566b1bf575db8c120f40bd9247d83bf
Author: Artur Malabarba <bruce.connor.am@gmail.com>
Commit: Artur Malabarba <bruce.connor.am@gmail.com>

    [Fix #15] Don't offer interactive bisection in the terminal
---
 bug-hunter.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/bug-hunter.el b/bug-hunter.el
index 6875470..d6de15d 100644
--- a/bug-hunter.el
+++ b/bug-hunter.el
@@ -4,7 +4,7 @@
 
 ;; Author: Artur Malabarba <emacs@endlessparentheses.com>
 ;; URL: https://github.com/Malabarba/elisp-bug-hunter
-;; Version: 1.1
+;; Version: 1.2
 ;; Keywords: lisp
 ;; Package-Requires: ((seq "1.3") (cl-lib "0.5"))
 
@@ -468,8 +468,15 @@ form.
 The user may decide to not provide input, in which case
 'interactive is returned.  Note, this is different from the user
 typing `RET' at an empty prompt, in which case nil is returned."
-  (pcase (read-char-choice bug-hunter--hunt-type-prompt '(?i ?e ?a))
-    (`?i 'interactive)
+  (pcase (read-char-choice (if (display-graphic-p)
+                               bug-hunter--hunt-type-prompt
+                             (replace-regexp-in-string "To bisect 
interactively,.*\n" ""
+                                                       
bug-hunter--hunt-type-prompt))
+                           '(?i ?e ?a))
+    (`?i
+     (unless (display-graphic-p)
+       (user-error "Sorry, but `interactive' bisection needs a graphical 
frame"))
+     'interactive)
     (`?e nil)
     (_
      (require 'simple)



reply via email to

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