Skip to content

Commit

Permalink
Avoid unexpected quit when typing slowly or deleting backward
Browse files Browse the repository at this point in the history
Seems inhibit-quit is not enough here, use while-no-input.
  • Loading branch information
Thierry Volpiatto committed Aug 5, 2020
1 parent 8ba43d2 commit c021a3b
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions helm-recoll.el
Original file line number Diff line number Diff line change
Expand Up @@ -283,9 +283,10 @@ For more details see:
; char backward.
(helm-log "Command line used was:\n\n>>>%s" (mapconcat 'identity cmd " "))
(with-temp-buffer
(apply #'call-process "recoll" nil t nil (cdr cmd))
(split-string (buffer-string) "\n" t))))

(unless (eq (while-no-input
(apply #'call-process "recoll" nil '(t nil) nil (cdr cmd)))
t)
(split-string (buffer-string) "\n" t)))))
;; As of Version: 1.22.4-1:
;; text/x-emacs-lisp [file:///home/thierry/elisp/Emacs-wgrep/wgrep-helm.el] [wgrep-helm.el] 3556 bytes
(defun helm-recoll-filter-one-by-one (file)
Expand Down

0 comments on commit c021a3b

Please sign in to comment.