Error when C-g on pattern

[Sebastien Vauban]

Hi Thierry,

When doing C-g at the helm prompt -- on a minimal Emacs![1] --, I've got the
error:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (quit)
redisplay_internal\ \(C\ function\)()
read-from-minibuffer("pattern: " nil (keymap (24 keymap (19 . helm-buffer-save-persistent)) (67108925 . helm-buffer-diff-persistent) (19 . helm-buffers-run-multi-occur) (27 keymap (97 . helm-mark-all) (109 . helm-toggle-all-marks) (37 . helm-buffer-run-query-replace) (67108901 . helm-buffer-run-query-replace-regexp) (68 . helm-buffer-run-kill-buffers) (85 . helm-buffer-revert-persistent) (61 . helm-buffer-run-ediff-merge) (103 keymap (115 . helm-buffer-run-zgrep))) (3 keymap (61 . helm-buffer-run-ediff) (15 . helm-buffer-switch-other-frame) (111 . helm-buffer-switch-other-window) (63 . helm-c-buffer-help)) keymap (menu-bar keymap (help-menu keymap (describe keymap (describe-mode . helm-help)))) (help keymap (109 . helm-help)) (8 keymap (109 . helm-help)) (f1 keymap (109 . helm-help)) (C-tab . undefined) (3 keymap (24 keymap (2 . helm-send-bug-report-from-helm) (13 . helm-display-all-visible-marks) (4 . helm-debug-output)) (21 . helm-force-update) (6 . helm-follow-mode) (11 . helm-kill-selection-and-quit) (25 . helm-yank-selection) (4 . helm-delete-current-selection) (45 . helm-swap-windows)) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (20 . helm-toggle-resplit-window) (19 . undefined) (18 . undefined) (23 . helm-yank-text-at-point) (24 keymap (6 . helm-quit-and-find-file)) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) (M-prior . helm-scroll-other-window-down) (M-next . helm-scroll-other-window) (12 . helm-recenter-top-bottom-other-window) (15 . helm-next-source) (10 . helm-select-3rd-action) (5 . helm-select-2nd-action-or-end-of-line) (26 . helm-execute-persistent-action) (9 . helm-select-action) (13 . helm-exit-minibuffer) (left . helm-previous-source) (right . helm-next-source) (7 . helm-keyboard-quit) (22 . helm-next-page) (27 keymap (110 . next-history-element) (112 . previous-history-element) (1 . helm-show-all-in-this-source-only) (109 . helm-toggle-all-marks) (93 . helm-next-visible-mark) (91 . helm-prev-visible-mark) (32 . helm-toggle-visible-mark) (33554454 . helm-scroll-other-window-down) (25 . helm-scroll-other-window-down) (22 . helm-scroll-other-window) (12 . helm-reposition-window-other-window) (62 . helm-end-of-buffer) (60 . helm-beginning-of-buffer) (118 . helm-previous-page)) (next . helm-next-page) (prior . helm-previous-page) (16 . helm-previous-line) (14 . helm-next-line) (up . helm-previous-line) (down . helm-next-line) keymap (18 . helm-minibuffer-history) (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence "" :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . abort-recursive-edit) ...) nil nil "Emacs" t)
(let ((tap (or any-default (save-current-buffer (set-buffer helm-current-buffer) (thing-at-point (quote symbol)))))) (read-from-minibuffer (or any-prompt "pattern: ") any-input helm-map nil hist tap t))
(cond ((and helm-execute-action-at-once-if-one (= (helm-approximate-candidate-number) 1)) (ignore)) ((and helm-quit-if-no-candidate (= (helm-approximate-candidate-number) 0)) (setq helm-quit t) (and (functionp helm-quit-if-no-candidate) (funcall helm-quit-if-no-candidate))) (t (let ((tap (or any-default (save-current-buffer (set-buffer helm-current-buffer) (thing-at-point ...))))) (read-from-minibuffer (or any-prompt "pattern: ") any-input helm-map nil hist tap t))))
(let* ((src (helm-get-current-source)) (src-keymap (assoc-default (quote keymap) src)) (hist (or any-history (assoc-default (quote history) src)))) (setq helm-map (or src-keymap any-keymap helm-map)) (helm-log-eval-internal (quote ((helm-approximate-candidate-number) helm-execute-action-at-once-if-one helm-quit-if-no-candidate))) (cond ((and helm-execute-action-at-once-if-one (= (helm-approximate-candidate-number) 1)) (ignore)) ((and helm-quit-if-no-candidate (= (helm-approximate-candidate-number) 0)) (setq helm-quit t) (and (functionp helm-quit-if-no-candidate) (funcall helm-quit-if-no-candidate))) (t (let ((tap (or any-default (save-current-buffer ... ...)))) (read-from-minibuffer (or any-prompt "pattern: ") any-input helm-map nil hist tap t)))))
(save-current-buffer (set-buffer (helm-buffer-get)) (let* ((src (helm-get-current-source)) (src-keymap (assoc-default (quote keymap) src)) (hist (or any-history (assoc-default (quote history) src)))) (setq helm-map (or src-keymap any-keymap helm-map)) (helm-log-eval-internal (quote ((helm-approximate-candidate-number) helm-execute-action-at-once-if-one helm-quit-if-no-candidate))) (cond ((and helm-execute-action-at-once-if-one (= (helm-approximate-candidate-number) 1)) (ignore)) ((and helm-quit-if-no-candidate (= (helm-approximate-candidate-number) 0)) (setq helm-quit t) (and (functionp helm-quit-if-no-candidate) (funcall helm-quit-if-no-candidate))) (t (let ((tap (or any-default ...))) (read-from-minibuffer (or any-prompt "pattern: ") any-input helm-map nil hist tap t))))))
helm-read-pattern-maybe(nil nil nil nil nil nil nil)
(unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if (and any-history (symbolp any-history)) (progn any-history))) (helm-cleanup))
(progn (helm-initialize any-resume any-input any-sources) (helm-display-buffer helm-buffer helm-display-buffer-default-action) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if (and any-history (symbolp any-history)) (progn any-history))) (helm-cleanup)))
(unwind-protect (progn (helm-initialize any-resume any-input any-sources) (helm-display-buffer helm-buffer helm-display-buffer-default-action) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if (and any-history (symbolp any-history)) (progn any-history))) (helm-cleanup))) (progn (let* ((--cl-var-- --orig-vars) (value nil) (var nil)) (while (consp --cl-var--) (setq value (car --cl-var--) var (car (prog1 value (setq value ...)))) (set var value) (setq --cl-var-- (cdr --cl-var--))) nil)) (setq post-command-hook (car --post-command-hook-pair)) (setq-default post-command-hook (cdr --post-command-hook-pair)) (helm-log "restore variables"))
(let ((--orig-vars (mapcar (function (lambda (v) (cons v (symbol-value v)))) helm-restored-variables)) (--post-command-hook-pair (cons post-command-hook (default-value (quote post-command-hook))))) (setq post-command-hook (quote (t))) (setq-default post-command-hook nil) (unwind-protect (progn (helm-initialize any-resume any-input any-sources) (helm-display-buffer helm-buffer helm-display-buffer-default-action) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if (and any-history (symbolp any-history)) (progn any-history))) (helm-cleanup))) (progn (let* ((--cl-var-- --orig-vars) (value nil) (var nil)) (while (consp --cl-var--) (setq value (car --cl-var--) var (car (prog1 value ...))) (set var value) (setq --cl-var-- (cdr --cl-var--))) nil)) (setq post-command-hook (car --post-command-hook-pair)) (setq-default post-command-hook (cdr --post-command-hook-pair)) (helm-log "restore variables")))
(let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (let ((--orig-vars (mapcar (function (lambda (v) (cons v ...))) helm-restored-variables)) (--post-command-hook-pair (cons post-command-hook (default-value (quote post-command-hook))))) (setq post-command-hook (quote (t))) (setq-default post-command-hook nil) (unwind-protect (progn (helm-initialize any-resume any-input any-sources) (helm-display-buffer helm-buffer helm-display-buffer-default-action) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if (and any-history ...) (progn any-history))) (helm-cleanup))) (progn (let* ((--cl-var-- --orig-vars) (value nil) (var nil)) (while (consp --cl-var--) (setq value (car --cl-var--) var (car ...)) (set var value) (setq --cl-var-- (cdr --cl-var--))) nil)) (setq post-command-hook (car --post-command-hook-pair)) (setq-default post-command-hook (cdr --post-command-hook-pair)) (helm-log "restore variables"))) (prog1 (if helm-quit nil (helm-execute-selection-action-1)) (helm-log (concat "[End session] " (make-string 41 45)))))
(condition-case v (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (let ((--orig-vars (mapcar (function (lambda ... ...)) helm-restored-variables)) (--post-command-hook-pair (cons post-command-hook (default-value (quote post-command-hook))))) (setq post-command-hook (quote (t))) (setq-default post-command-hook nil) (unwind-protect (progn (helm-initialize any-resume any-input any-sources) (helm-display-buffer helm-buffer helm-display-buffer-default-action) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default (if ... ...)) (helm-cleanup))) (progn (let* ((--cl-var-- --orig-vars) (value nil) (var nil)) (while (consp --cl-var--) (setq value ... var ...) (set var value) (setq --cl-var-- ...)) nil)) (setq post-command-hook (car --post-command-hook-pair)) (setq-default post-command-hook (cdr --post-command-hook-pair)) (helm-log "restore variables"))) (prog1 (if helm-quit nil (helm-execute-selection-action-1)) (helm-log (concat "[End session] " (make-string 41 45))))) (quit (helm-restore-position-on-quit) (helm-log (concat "[End session (quit)] " (make-string 34 45))) nil))
(unwind-protect (condition-case v (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (let ((--orig-vars (mapcar (function ...) helm-restored-variables)) (--post-command-hook-pair (cons post-command-hook (default-value ...)))) (setq post-command-hook (quote (t))) (setq-default post-command-hook nil) (unwind-protect (progn (helm-initialize any-resume any-input any-sources) (helm-display-buffer helm-buffer helm-display-buffer-default-action) (helm-log "show prompt") (unwind-protect (helm-read-pattern-maybe any-prompt any-input any-preselect any-resume any-keymap any-default ...) (helm-cleanup))) (progn (let* (... ... ...) (while ... ... ... ...) nil)) (setq post-command-hook (car --post-command-hook-pair)) (setq-default post-command-hook (cdr --post-command-hook-pair)) (helm-log "restore variables"))) (prog1 (if helm-quit nil (helm-execute-selection-action-1)) (helm-log (concat "[End session] " (make-string 41 45))))) (quit (helm-restore-position-on-quit) (helm-log (concat "[End session (quit)] " (make-string 34 45))) nil)) (helm-log-eval-internal (quote ((setq helm-alive-p nil)))) (setq overriding-local-map old-overridding-local-map) (helm-log-save-maybe))
(let ((old-overridding-local-map overriding-local-map)) (unwind-protect (condition-case v (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (let ((--orig-vars (mapcar ... helm-restored-variables)) (--post-command-hook-pair (cons post-command-hook ...))) (setq post-command-hook (quote (t))) (setq-default post-command-hook nil) (unwind-protect (progn (helm-initialize any-resume any-input any-sources) (helm-display-buffer helm-buffer helm-display-buffer-default-action) (helm-log "show prompt") (unwind-protect ... ...)) (progn (let* ... ... nil)) (setq post-command-hook (car --post-command-hook-pair)) (setq-default post-command-hook (cdr --post-command-hook-pair)) (helm-log "restore variables"))) (prog1 (if helm-quit nil (helm-execute-selection-action-1)) (helm-log (concat "[End session] " (make-string 41 45))))) (quit (helm-restore-position-on-quit) (helm-log (concat "[End session (quit)] " (make-string 34 45))) nil)) (helm-log-eval-internal (quote ((setq helm-alive-p nil)))) (setq overriding-local-map old-overridding-local-map) (helm-log-save-maybe)))
(catch (quote exit) (helm-log (concat "[Start session] " (make-string 41 43))) (helm-log-eval-internal (quote (any-prompt any-preselect any-buffer any-keymap any-default))) (let ((old-overridding-local-map overriding-local-map)) (unwind-protect (condition-case v (let (helm-source-name helm-in-persistent-action helm-quit (helm-buffer (or any-buffer helm-buffer))) (let ((--orig-vars ...) (--post-command-hook-pair ...)) (setq post-command-hook (quote ...)) (setq-default post-command-hook nil) (unwind-protect (progn ... ... ... ...) (progn ...) (setq post-command-hook ...) (setq-default post-command-hook ...) (helm-log "restore variables"))) (prog1 (if helm-quit nil (helm-execute-selection-action-1)) (helm-log (concat "[End session] " ...)))) (quit (helm-restore-position-on-quit) (helm-log (concat "[End session (quit)] " (make-string 34 45))) nil)) (helm-log-eval-internal (quote ((setq helm-alive-p nil)))) (setq overriding-local-map old-overridding-local-map) (helm-log-save-maybe))))
helm-internal((helm-c-source-ffap-line helm-c-source-ffap-guesser helm-c-source-buffers-list helm-c-source-recentf helm-c-source-bookmarks helm-c-source-file-cache helm-c-source-files-in-current-dir helm-c-source-locate) nil nil nil nil "*helm for files*" nil nil nil)
apply(helm-internal ((helm-c-source-ffap-line helm-c-source-ffap-guesser helm-c-source-buffers-list helm-c-source-recentf helm-c-source-bookmarks helm-c-source-file-cache helm-c-source-files-in-current-dir helm-c-source-locate) nil nil nil nil "*helm for files*" nil nil nil))
(if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar (function (lambda ... ...)) helm-argument-keys))))) (apply fn plist))
(if (and helm-alive-p (eq fn (function helm))) (error "Error: Trying to run helm within a running helm session") (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar (function ...) helm-argument-keys))))) (apply fn plist)))
(let ((fn (cond ((or (and helm-alive-p (plist-get plist :allow-nest)) (and helm-alive-p (memq ... plist))) (function helm-nest)) ((keywordp (car plist)) (function helm)) (t (function helm-internal))))) (if (and helm-alive-p (eq fn (function helm))) (error "Error: Trying to run helm within a running helm session") (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar ... helm-argument-keys))))) (apply fn plist))))
helm((helm-c-source-ffap-line helm-c-source-ffap-guesser helm-c-source-buffers-list helm-c-source-recentf helm-c-source-bookmarks helm-c-source-file-cache helm-c-source-files-in-current-dir helm-c-source-locate) nil nil nil nil "*helm for files*" nil nil nil)
apply(helm ((helm-c-source-ffap-line helm-c-source-ffap-guesser helm-c-source-buffers-list helm-c-source-recentf helm-c-source-bookmarks helm-c-source-file-cache helm-c-source-files-in-current-dir helm-c-source-locate) nil nil nil nil "*helm for files*" nil nil nil))
(lambda nil (apply fn (mapcar (function (lambda (key) (plist-get plist key))) helm-argument-keys)))()
funcall((lambda nil (apply fn (mapcar (function (lambda (key) (plist-get plist key))) helm-argument-keys))))
(unwind-protect (funcall bodyfunc) (setq helm-let-variables nil))
helm-let-internal(nil (lambda nil (apply fn (mapcar (function (lambda (key) (plist-get plist key))) helm-argument-keys))))
(if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar (function (lambda ... ...)) helm-argument-keys))))) (apply fn plist))
(if (and helm-alive-p (eq fn (function helm))) (error "Error: Trying to run helm within a running helm session") (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar (function ...) helm-argument-keys))))) (apply fn plist)))
(let ((fn (cond ((or (and helm-alive-p (plist-get plist :allow-nest)) (and helm-alive-p (memq ... plist))) (function helm-nest)) ((keywordp (car plist)) (function helm)) (t (function helm-internal))))) (if (and helm-alive-p (eq fn (function helm))) (error "Error: Trying to run helm within a running helm session") (if (keywordp (car plist)) (helm-let-internal (helm-parse-keys plist) (function (lambda nil (apply fn (mapcar ... helm-argument-keys))))) (apply fn plist))))
helm(:sources (helm-c-source-ffap-line helm-c-source-ffap-guesser helm-c-source-buffers-list helm-c-source-recentf helm-c-source-bookmarks helm-c-source-file-cache helm-c-source-files-in-current-dir helm-c-source-locate) :buffer "*helm for files*")
helm-other-buffer((helm-c-source-ffap-line helm-c-source-ffap-guesser helm-c-source-buffers-list helm-c-source-recentf helm-c-source-bookmarks helm-c-source-file-cache helm-c-source-files-in-current-dir helm-c-source-locate) "*helm for files*")
(let ((helm-ff-transformer-show-only-basename nil)) (helm-other-buffer helm-for-files-preferred-list "*helm for files*"))
helm-for-files()
call-interactively(helm-for-files record nil)
command-execute(helm-for-files record)
execute-extended-command(nil "helm-for-files")
call-interactively(execute-extended-command nil nil)
--8<---------------cut here---------------end--------------->8---

See http://i.imgur.com/6Gl8D.png.

Best regards,
Seb

(add-to-list 'load-path (expand-file-name "~/Downloads/emacs/site-lisp/helm"))
(require 'helm-config)

[1] Minimal Emacs:

--
Sebastien Vauban

[Thierry Volpiatto]

Hi Sebastien,

"Sebastien Vauban" <wxhgmq...@spammotel.com> writes:

> When doing C-g at the helm prompt -- on a minimal Emacs![1] --, I've got the
> error:

I can't reproduce on WindowsXP running in Virtualbox, I will try harder
to reproduce in the next days.

Seems you are running M-x helm-for-files and then hitting C-g when output
of locate (es) is finish right?

> Debugger entered--Lisp error: (quit)
> redisplay_internal\ \(C\ function\)()

[...]

> helm-for-files()
> call-interactively(helm-for-files record nil)
> command-execute(helm-for-files record)
> execute-extended-command(nil "helm-for-files")
> call-interactively(execute-extended-command nil nil)
>

> See http://i.imgur.com/6Gl8D.png.
>
> Best regards,
> Seb
>
> (add-to-list 'load-path (expand-file-name "~/Downloads/emacs/site-lisp/helm"))
> (require 'helm-config)
>
> [1] Minimal Emacs:

--

Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997

[Sebastien Vauban]

Thierry,

Thierry Volpiatto wrote:
> "Sebastien Vauban" <wxhgmq...@spammotel.com> writes:
>
>> When doing C-g at the helm prompt -- on a minimal Emacs![1] --, I've got the
>> error:
>
> I can't reproduce on WindowsXP running in Virtualbox, I will try harder
> to reproduce in the next days.
>
> Seems you are running M-x helm-for-files and then hitting C-g when output
> of locate (es) is finish right?

I really don't remember what I was exactly doing at that moment.

>> Debugger entered--Lisp error: (quit)
>> redisplay_internal\ \(C\ function\)()
>
> [...]
>
>> helm-for-files()
>> call-interactively(helm-for-files record nil)
>> command-execute(helm-for-files record)
>> execute-extended-command(nil "helm-for-files")
>> call-interactively(execute-extended-command nil nil)
>>
>> See http://i.imgur.com/6Gl8D.png.

I wonder if the `C' referenced above would not be the `C' from the path
`C:...'?

Best regards,
Seb

--
Sebastien Vauban