From: Artur Malabarba Date: Fri, 1 Apr 2016 14:20:54 +0000 (-0300) Subject: bug-hunter: Don't offer interactive bisection in the terminal X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/930030657f3ff08192bf47cf110a39f45860152a bug-hunter: Don't offer interactive bisection in the terminal --- diff --git a/packages/bug-hunter/bug-hunter.el b/packages/bug-hunter/bug-hunter.el index 687547059..d6de15de1 100644 --- a/packages/bug-hunter/bug-hunter.el +++ b/packages/bug-hunter/bug-hunter.el @@ -4,7 +4,7 @@ ;; Author: Artur Malabarba ;; 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)