Error message when try navigate in *Info* manual page

[sunlin7]

What happened?

There is an error message after press g in the Info buffer ( pressing the C+h i then g ):

In ‘Info-goto-node History’ source: ‘#[0 \304\301\303\305\300$\211\205^Q^@\306\307\310\302^D""\207 [nil Info-minibuf-history nil helm-comp-read-get-candidates nil delete helm-cr-default] 6]’
(void-function Info-minibuf-history)

How to reproduce?

Pressing the C+h i then g in the Emacs with helm.

Helm Version

Melpa or NonGnuElpa

Emacs Version

Emacs-28/29

OS

GNU/Linux

Relevant backtrace (if possible)

Debugger entered--Lisp error: (void-function Info-minibuf-history)
  Info-minibuf-history("" nil t)
  all-completions("" Info-minibuf-history nil)
  (cond ((and alistp (hash-table-p collection)) (let* ((--cl-var-- nil)) (maphash #'(lambda (k v) (setq --cl-var-- (cons ... --cl-var--))) collection) (nreverse --cl-var--))) ((vectorp collection) (all-completions input collection test)) ((and (symbolp collection) (boundp collection) (symbolp (symbol-value collection))) nil) ((and (symbolp collection) (boundp collection) test) (let ((predicate #'(lambda (elm) (condition-case _err ... ...)))) (all-completions input (symbol-value collection) predicate))) ((and (symbolp collection) (boundp collection)) (all-completions input (symbol-value collection))) ((and (functionp collection) (not (string= input "")) (or minibuffer-completing-file-name (eq (completion-metadata-get (completion-metadata input collection test) 'category) 'file))) (let* ((--cl-var-- (funcall collection input test t)) (f nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq f (car --cl-var--)) (if (member f '("./" "../")) (progn) (if (string-match helm--url-regexp input) (progn (setq --cl-var-- ...)) (setq --cl-var-- (cons ... --cl-var--)))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) ((functionp collection) (funcall collection input test t)) ((and alistp (null test)) collection) (t (all-completions input collection test)))
  (let ((cands (cond ((and alistp (hash-table-p collection)) (let* ((--cl-var-- nil)) (maphash #'... collection) (nreverse --cl-var--))) ((vectorp collection) (all-completions input collection test)) ((and (symbolp collection) (boundp collection) (symbolp (symbol-value collection))) nil) ((and (symbolp collection) (boundp collection) test) (let ((predicate ...)) (all-completions input (symbol-value collection) predicate))) ((and (symbolp collection) (boundp collection)) (all-completions input (symbol-value collection))) ((and (functionp collection) (not (string= input "")) (or minibuffer-completing-file-name (eq ... ...))) (let* ((--cl-var-- ...) (f nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq f ...) (if ... ... ...) (setq --cl-var-- ...)) (nreverse --cl-var--))) ((functionp collection) (funcall collection input test t)) ((and alistp (null test)) collection) (t (all-completions input collection test))))) (if sort-fn (sort cands sort-fn) cands))
  (save-current-buffer (set-buffer (or (and (buffer-live-p helm-current-buffer) helm-current-buffer) (setq helm-current-buffer (current-buffer)))) (let ((cands (cond ((and alistp (hash-table-p collection)) (let* (...) (maphash ... collection) (nreverse --cl-var--))) ((vectorp collection) (all-completions input collection test)) ((and (symbolp collection) (boundp collection) (symbolp ...)) nil) ((and (symbolp collection) (boundp collection) test) (let (...) (all-completions input ... predicate))) ((and (symbolp collection) (boundp collection)) (all-completions input (symbol-value collection))) ((and (functionp collection) (not ...) (or minibuffer-completing-file-name ...)) (let* (... ... ...) (while ... ... ... ...) (nreverse --cl-var--))) ((functionp collection) (funcall collection input test t)) ((and alistp (null test)) collection) (t (all-completions input collection test))))) (if sort-fn (sort cands sort-fn) cands)))
  (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list 'helm-comp-read-get-candidates (+ 5 (length --cl-rest--))))) (save-current-buffer (set-buffer (or (and (buffer-live-p helm-current-buffer) helm-current-buffer) (setq helm-current-buffer (current-buffer)))) (let ((cands (cond ((and alistp ...) (let* ... ... ...)) ((vectorp collection) (all-completions input collection test)) ((and ... ... ...) nil) ((and ... ... test) (let ... ...)) ((and ... ...) (all-completions input ...)) ((and ... ... ...) (let* ... ... ...)) ((functionp collection) (funcall collection input test t)) ((and alistp ...) collection) (t (all-completions input collection test))))) (if sort-fn (sort cands sort-fn) cands))))
  (let* ((input (if --cl-rest-- (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) helm-pattern))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list 'helm-comp-read-get-candidates (+ 5 (length --cl-rest--))))) (save-current-buffer (set-buffer (or (and (buffer-live-p helm-current-buffer) helm-current-buffer) (setq helm-current-buffer (current-buffer)))) (let ((cands (cond (... ...) (... ...) (... nil) (... ...) (... ...) (... ...) (... ...) (... collection) (t ...)))) (if sort-fn (sort cands sort-fn) cands)))))
  helm-comp-read-get-candidates(Info-minibuf-history nil nil nil)
  (let ((cands (helm-comp-read-get-candidates history test nil alistp))) (if cands (progn (delete "" (helm-cr-default default cands)))))
  (closure ((get-candidates closure ((action-fn ...) (group . helm) (coerce) (allow-nest) (multiline) (candidate-number-limit . 100) (alistp) (nomark . t) (marked-candidates) (hist-fc-transformer) (fc-transformer) (sort) (volatile . t) (quit-when-no-cand . t) (exec-when-only-one) (match-dynamic) (match-part) (diacritics) (candidates-in-buffer . t) (header-name) (name . "Info-goto-node") (keymap keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (help-message . helm-comp-read-help-message) (mode-line . "\\<helm-comp-read-map>C/\\[helm-cr...") (persistent-help . "DoNothing") (persistent-action) (case-fold . smart) (input-history . Info-minibuf-history) (raw-history) (history . Info-minibuf-history) (shistory . t) (requires-pattern . 0) ...) nil (let (...) (helm-cr-default default cands))) (action-fn ("Sole action (Identity)" lambda (candidate) (if nil ... ...))) (group . helm) (coerce) (allow-nest) (multiline) (candidate-number-limit . 100) (alistp) (nomark . t) (marked-candidates) (hist-fc-transformer) (fc-transformer) (sort) (volatile . t) (quit-when-no-cand . t) (exec-when-only-one) (match-dynamic) (match-part) (diacritics) (candidates-in-buffer . t) (header-name) (name . "Info-goto-node") (keymap keymap (127 . helm-mode-delete-char-backward-maybe) (27 keymap (13 . helm-cr-empty-string)) (C-return . helm-cr-empty-string) keymap (C-iso-lefttab . helm-follow-action-backward) (26 . helm-select-action) (tab . helm-execute-persistent-action) (17 . ace-jump-helm-line) (f12 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f11 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f10 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f9 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f8 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f7 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f6 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f5 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f4 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f3 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f2 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (menu-bar keymap (help-menu keymap ...)) (help keymap (109 . helm-help)) (23 . helm-helm-yank-text-at-point-with-subkeys) (f1 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (8) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . helm-follow-action-forward) (67108897 . helm-toggle-suspend-update) (3 keymap (57 closure ... nil ... ...) (56 closure ... nil ... ...) (55 closure ... nil ... ...) (54 closure ... nil ... ...) (53 closure ... nil ... ...) (52 closure ... nil ... ...) (51 closure ... nil ... ...) (50 closure ... nil ... ...) (49 closure ... nil ... ...) (110 . helm-helm-run-cycle-resume-with-subkeys) (108 . helm-display-line-numbers-mode) (62 . helm-toggle-truncate-line) (21 . helm-refresh) (6 . helm-follow-mode) (9 . helm-insert-or-copy) (11 . helm-kill-selection-and-quit) (25 . helm-yank-selection) (37 . helm-exchange-minibuffer-and-header-line) (95 . helm-toggle-full-frame) (45 . helm-swap-windows)) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) ...) (help-message . helm-comp-read-help-message) (mode-line . "\\<helm-comp-read-map>C/\\[helm-cr...") (persistent-help . "DoNothing") (persistent-action) (case-fold . smart) (input-history . Info-minibuf-history) (raw-history) (history . Info-minibuf-history) (shistory . t) ...) nil (let ((cands (helm-comp-read-get-candidates history test nil alistp))) (if cands (progn (delete "" ...)))))()
  apply((closure ((get-candidates closure ((action-fn ...) (group . helm) (coerce) (allow-nest) (multiline) (candidate-number-limit . 100) (alistp) (nomark . t) (marked-candidates) (hist-fc-transformer) (fc-transformer) (sort) (volatile . t) (quit-when-no-cand . t) (exec-when-only-one) (match-dynamic) (match-part) (diacritics) (candidates-in-buffer . t) (header-name) (name . "Info-goto-node") (keymap keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (help-message . helm-comp-read-help-message) (mode-line . "\\<helm-comp-read-map>C/\\[helm-cr-empty...") (persistent-help . "DoNothing") (persistent-action) (case-fold . smart) (input-history . Info-minibuf-history) (raw-history) (history . Info-minibuf-history) (shistory . t) (requires-pattern . 0) (reverse-history . t) (fuzzy . t) (must-match . t) (buffer . "*helm-mode-Info-goto-node*") (preselect) (default . "") ...) nil (let (...) (helm-cr-default default cands))) (action-fn ("Sole action (Identity)" lambda (candidate) (if nil ... ...))) (group . helm) (coerce) (allow-nest) (multiline) (candidate-number-limit . 100) (alistp) (nomark . t) (marked-candidates) (hist-fc-transformer) (fc-transformer) (sort) (volatile . t) (quit-when-no-cand . t) (exec-when-only-one) (match-dynamic) (match-part) (diacritics) (candidates-in-buffer . t) (header-name) (name . "Info-goto-node") ... (help-message . helm-comp-read-help-message) (mode-line . "\\<helm-comp-read-map>C/\\[helm-cr-empty...") (persistent-help . "DoNothing") (persistent-action) (case-fold . smart) (input-history . Info-minibuf-history) (raw-history) (history . Info-minibuf-history) (shistory . t) (requires-pattern . 0) (reverse-history . t) (fuzzy . t) (must-match . t) (buffer . "*helm-mode-Info-goto-node*") (preselect) ...) nil (let ((cands (helm-comp-read-get-candidates history test nil alistp))) (if cands (progn (delete "" ...))))) nil)
  (setq result (apply fn args))
  (while (consp --cl-var--) (setq fn (car --cl-var--)) (setq result (apply fn args)) (if (and args (cdr funs)) (progn (setcar args result))) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((result nil) (--cl-var-- funs) (fn nil)) (while (consp --cl-var--) (setq fn (car --cl-var--)) (setq result (apply fn args)) (if (and args (cdr funs)) (progn (setcar args result))) (setq --cl-var-- (cdr --cl-var--))) result)
  (let ((helm--source-name (assoc-default 'name source)) (helm-current-source source) (funs (if (functionp functions) (list functions) functions))) (let* ((result nil) (--cl-var-- funs) (fn nil)) (while (consp --cl-var--) (setq fn (car --cl-var--)) (setq result (apply fn args)) (if (and args (cdr funs)) (progn (setcar args result))) (setq --cl-var-- (cdr --cl-var--))) result))
  helm-apply-functions-from-source(...)
  (cond ((and source (functionp value) (not (eq compute 'ignorefn))) (helm-apply-functions-from-source source value)) ...)
  helm-interpret-value((closure ... nil ...) (... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))
  (if candidate-proc (helm-interpret-value candidate-proc) (helm-interpret-value candidate-fn source))
  (condition-case err (if candidate-proc (helm-interpret-value candidate-proc) (helm-interpret-value candidate-fn source)) ...)
  (let*  ...)
  helm-get-candidates(((nomark) (name . "Info-goto-node History") (candidates closure ((get-candidates closure ... nil ...) (action-fn ...) (group . helm) (coerce) (allow-nest) (multiline) (candidate-number-limit . 100) (alistp) (nomark . t) (marked-candidates) (hist-fc-transformer) (fc-transformer) (sort) (volatile . t) (quit-when-no-cand . t) (exec-when-only-one) (match-dynamic) (match-part) (diacritics) (candidates-in-buffer . t) (header-name) (name . "Info-goto-node") (keymap keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (help-message . helm-comp-read-help-message) (mode-line . "\\<helm-comp-read-map>C/\\[helm-cr...") (persistent-help . "DoNothing") (persistent-action) (case-fold . smart) (input-history . Info-minibuf-history) (raw-history) (history . Info-minibuf-history) (shistory . t) ...) nil (let (...) (if cands ...))) ...))
  (let ((candidates (helm-get-candidates source))) (cond ((processp candidates) (setq helm-async-processes (cons (cons candidates (append source (list ... ...))) helm-async-processes)) (set-process-filter candidates 'helm-output-filter) (setq candidates nil)) ((not (assq 'volatile source)) (puthash name candidates helm-candidate-cache))) candidates)
  (if it (prog1 it (helm-log "helm-get-cached-candidates" "Use cached candidates")) ...)
  (let ((it candidate-cache)) ...)
  (let* ((name (assoc-default 'name source)) (candidate-cache (gethash name helm-candidate-cache)) (inhibit-quit (assoc-default 'candidates-process source)))...)
  helm-get-cached-candidates(((nomark) (name . "Info-goto-node History") (candidates closure ((get-candidates closure ... nil ...) (action-fn ...) (group . helm) (coerce) (allow-nest) (multiline) (candidate-number-limit . 100) (alistp) (nomark . t) (marked-candidates) (hist-fc-transformer) (fc-transformer) (sort) (volatile . t) (quit-when-no-cand . t) (exec-when-only-one) (match-dynamic) (match-part) (diacritics) (candidates-in-buffer . t) (header-name) (name . "Info-goto-node") (keymap keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (help-message . helm-comp-read-help-message) (mode-line . "\\<helm-comp-read-map>C/\\[helm-cr...") (persistent-help . "DoNothing") (persistent-action) (case-fold . smart) (input-history . Info-minibuf-history) (raw-history) (history . Info-minibuf-history) (shistory . t) ...) nil (let (...) (if cands ...))) ...))
  (helm-take-first-elements (helm-get-cached-candidates source) limit)
  (helm--initialize-one-by-one-candidates (helm-take-first-elements (helm-get-cached-candidates source) limit) source)
  (if (or (equal helm-pattern "") (assq 'match-dynamic source) (helm--candidates-in-buffer-p source)) (helm--initialize-one-by-one-candidates (helm-take-first-elements (helm-get-cached-candidates source) limit) source) (helm-match-from-candidates (helm-get-cached-candidates source) matchfns matchpartfn limit source))
  (helm-process-filtered-candidate-transformer (if (or (equal helm-pattern "") (assq 'match-dynamic source) (helm--candidates-in-buffer-p source)) (helm--initialize-one-by-one-candidates (helm-take-first-elements (helm-get-cached-candidates source) limit) source) (helm-match-from-candidates (helm-get-cached-candidates source) matchfns matchpartfn limit source)) source)
  (let ((matchfns (helm-match-functions source)) (matchpartfn (assoc-default 'match-part source)) (helm--source-name (assoc-default 'name source)) (helm-current-source source) (limit (helm-candidate-number-limit source)) (helm-pattern (helm-process-pattern-transformer helm-pattern source))) ...)
  (save-current-buffer (let ((matchfns (helm-match-functions source)) (matchpartfn (assoc-default 'match-part source)) (helm--source-name (assoc-default 'name source)) (helm-current-source source) (limit (helm-candidate-number-limit source)) (helm-pattern (helm-process-pattern-transformer helm-pattern source))) (helm--fuzzy-match-maybe-set-pattern) (helm-process-filtered-candidate-transformer (if (or (equal helm-pattern "") (assq 'match-dynamic source) (helm--candidates-in-buffer-p source)) (helm--initialize-one-by-one-candidates (helm-take-first-elements (helm-get-cached-candidates source) limit) source) (helm-match-from-candidates (helm-get-cached-candidates source) matchfns matchpartfn limit source)) source)))
  helm-compute-matches(((nomark) (name . "Info-goto-node History") (candidates closure ((get-candidates closure ... nil ...) (action-fn ...) (group . helm) (coerce) (allow-nest) (multiline) (candidate-number-limit . 100) (alistp) (nomark . t) (marked-candidates) (hist-fc-transformer) (fc-transformer) (sort) (volatile . t) (quit-when-no-cand . t) (exec-when-only-one) (match-dynamic) (match-part) (diacritics) (candidates-in-buffer . t) (header-name) (name . "Info-goto-node") (keymap keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (help-message . helm-comp-read-help-message) (mode-line . "\\<helm-comp-read-map>C/\\[helm-cr...") (persistent-help . "DoNothing") (persistent-action) (case-fold . smart) (input-history . Info-minibuf-history) (raw-history) (history . Info-minibuf-history) (shistory . t) ...) nil (let (...) (if cands ...))) (keymap keymap (keymap (13 . helm-confirm-and-exit-minibuffer)) keymap (127 . helm-mode-delete-char-backward-maybe) (27 keymap (13 . helm-cr-empty-string)) (C-return . helm-cr-empty-string) keymap (C-iso-lefttab . helm-follow-action-backward) (26 . helm-select-action) (tab . helm-execute-persistent-action) (17 . ace-jump-helm-line) (f12 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f11 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f10 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f9 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f8 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f7 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f6 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f5 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f4 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f3 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f2 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (menu-bar keymap (help-menu keymap ...)) (help keymap (109 . helm-help)) (23 . helm-helm-yank-text-at-point-with-subkeys) (f1 closure (... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (8) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . helm-follow-action-forward) (67108897 . helm-toggle-suspend-update) (3 keymap (57 closure ... nil ... ...) (56 closure ... nil ... ...) (55 closure ... nil ... ...) (54 closure ... nil ... ...) (53 closure ... nil ... ...) (52 closure ... nil ... ...) (51 closure ... nil ... ...) (50 closure ... nil ... ...) (49 closure ... nil ... ...) (110 . helm-helm-run-cycle-resume-with-subkeys) (108 . helm-display-line-numbers-mode) (62 . helm-toggle-truncate-line) (21 . helm-refresh) (6 . helm-follow-mode) (9 . helm-insert-or-copy) (11 . helm-kill-selection-and-quit) (25 . helm-yank-selection) (37 . helm-exchange-minibuffer-and-header-line) (95 . helm-toggle-full-frame) (45 . helm-swap-windows)) ...) (action ("Sole action (Identity)" lambda (candidate) (if nil ... ...))) (persistent-help . "DoNothing") (help-message . helm-comp-read-help-message) (requires-pattern . 0) (filtered-candidate-transformer (lambda (candidates _source) (if nil candidates ...)) helm-fuzzy-matching-default-sort-fn helm-fuzzy-highlight-matches) (match helm-mm-exact-match helm-mm-match helm-fuzzy-match) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-comp-read-map>C/\\[helm-cr...") (header-line . #("C-j: DoNothing (keeping session)" 0 3 (font-lock-face help-key-binding face help-key-binding))) (multimatch . t) (must-match . t) (group . helm)))
  (cons (helm-compute-matches src) --cl-var--)
  (setq --cl-var-- (cons (helm-compute-matches src) --cl-var--))
  (while (consp --cl-var--) (setq src (car --cl-var--)) (setq --cl-var-- (cons (helm-compute-matches src) --cl-var--)) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (setq --cl-var-- (cons (helm-compute-matches src) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))
  (progn (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (setq --cl-var-- (cons (helm-compute-matches src) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))
  (setq val (progn (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (setq --cl-var-- (cons (helm-compute-matches src) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))))
  (let ((throw-on-input 'input) val) (setq val (progn (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (setq --cl-var-- (cons (helm-compute-matches src) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))) (cond ((eq quit-flag throw-on-input) (setq quit-flag nil)) (quit-flag nil) (t val)))
  (catch 'input (let ((throw-on-input 'input) val) (setq val (progn (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (setq --cl-var-- (cons ... --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))) (cond ((eq quit-flag throw-on-input) (setq quit-flag nil)) (quit-flag nil) (t val))))
  (let ((inhibit-quit nil)) (catch 'input (let ((throw-on-input 'input) val) (setq val (progn (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src ...) (setq --cl-var-- ...) (setq --cl-var-- ...)) (nreverse --cl-var--)))) (cond ((eq quit-flag throw-on-input) (setq quit-flag nil)) (quit-flag nil) (t val)))))
  (condition-case nil (let ((inhibit-quit nil)) (catch 'input (let ((throw-on-input 'input) val) (setq val (progn (let* (... ... ...) (while ... ... ... ...) (nreverse --cl-var--)))) (cond ((eq quit-flag throw-on-input) (setq quit-flag nil)) (quit-flag nil) (t val))))) (quit (setq quit-flag t) (eval '(ignore nil) t)))
  (let ((while-no-input-ignore-events (and (boundp 'while-no-input-ignore-events) (cons 'dbus-event while-no-input-ignore-events)))) (condition-case nil (let ((inhibit-quit nil)) (catch 'input (let ((throw-on-input 'input) val) (setq val (progn (let* ... ... ...))) (cond ((eq quit-flag throw-on-input) (setq quit-flag nil)) (quit-flag nil) (t val))))) (quit (setq quit-flag t) (eval '(ignore nil) t))))
  (if (and (file-remote-p helm-pattern) (not (file-remote-p helm-pattern nil t))) (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (setq --cl-var-- (cons (helm-compute-matches src) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) (helm-log "helm--maybe-use-while-no-input" "Using here `helm-while-no-input'") (let ((while-no-input-ignore-events (and (boundp 'while-no-input-ignore-events) (cons 'dbus-event while-no-input-ignore-events)))) (condition-case nil (let ((inhibit-quit nil)) (catch 'input (let ((throw-on-input ...) val) (setq val (progn ...)) (cond (... ...) (quit-flag nil) (t val))))) (quit (setq quit-flag t) (eval '(ignore nil) t)))))
  (progn (if (and (file-remote-p helm-pattern) (not (file-remote-p helm-pattern nil t))) (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (setq --cl-var-- (cons (helm-compute-matches src) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)) (helm-log "helm--maybe-use-while-no-input" "Using here `helm-while-no-input'") (let ((while-no-input-ignore-events (and (boundp 'while-no-input-ignore-events) (cons 'dbus-event while-no-input-ignore-events)))) (condition-case nil (let ((inhibit-quit nil)) (catch 'input (let (... val) (setq val ...) (cond ... ... ...)))) (quit (setq quit-flag t) (eval '(ignore nil) t))))))
  (let ((matches (progn (if (and (file-remote-p helm-pattern) (not (file-remote-p helm-pattern nil t))) (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src ...) (setq --cl-var-- ...) (setq --cl-var-- ...)) (nreverse --cl-var--)) (helm-log "helm--maybe-use-while-no-input" "Using here `helm-while-no-input'") (let ((while-no-input-ignore-events ...)) (condition-case nil (let ... ...) (quit ... ...))))))) (if (eq matches t) nil matches))
  helm--collect-matches(((... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (or candidates (helm--collect-matches sources))
  (setq matches (or candidates (helm--collect-matches sources)))
  (helm-log "helm-update" "Matches: %S" (setq matches (or candidates (helm--collect-matches sources))))
  (let (sources matches) (setq sources (let* ((--cl-var-- helm-sources) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (if (helm-update-source-p src) (progn (setq --cl-var-- (cons src --cl-var--)))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (if sources nil (erase-buffer)) (helm-log "helm-update" "Matches: %S" (setq matches (or candidates (helm--collect-matches sources)))) (if matches (progn (erase-buffer) (let* ((--cl-var-- sources) (src nil) (--cl-var-- matches) (mtc nil)) (while (and (consp --cl-var--) (progn (setq src ...) (consp --cl-var--))) (setq mtc (car --cl-var--)) (helm-render-source src mtc) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) nil) (helm--update-move-first-line))))
  (unwind-protect (let (sources matches) (setq sources (let* ((--cl-var-- helm-sources) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (if (helm-update-source-p src) (progn (setq --cl-var-- ...))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (if sources nil (erase-buffer)) (helm-log "helm-update" "Matches: %S" (setq matches (or candidates (helm--collect-matches sources)))) (if matches (progn (erase-buffer) (let* ((--cl-var-- sources) (src nil) (--cl-var-- matches) (mtc nil)) (while (and (consp --cl-var--) (progn ... ...)) (setq mtc (car --cl-var--)) (helm-render-source src mtc) (setq --cl-var-- (cdr --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) nil) (helm--update-move-first-line)))) (let ((src (or source (helm-get-current-source)))) (if (assq 'candidates-process src) nil (helm-display-mode-line src 'force) (helm-log-run-hook "helm-update" 'helm-after-update-hook))) (if preselect (progn (helm-log "helm-update" "Update preselect candidate %s" preselect) (if (helm-window) (let ((save-selected-window--state (internal--before-with-selected-window ...))) (save-current-buffer (unwind-protect (progn ... ...) (internal--after-with-selected-window save-selected-window--state)))) (helm-preselect preselect source)))) (setq helm--force-updating-p nil) (helm--reset-update-flag))
  (save-current-buffer (set-buffer (helm-buffer-get)) (set (make-local-variable 'helm-input-local) helm-pattern) (unwind-protect (let (sources matches) (setq sources (let* ((--cl-var-- helm-sources) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (if (helm-update-source-p src) (progn ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (if sources nil (erase-buffer)) (helm-log "helm-update" "Matches: %S" (setq matches (or candidates (helm--collect-matches sources)))) (if matches (progn (erase-buffer) (let* ((--cl-var-- sources) (src nil) (--cl-var-- matches) (mtc nil)) (while (and ... ...) (setq mtc ...) (helm-render-source src mtc) (setq --cl-var-- ...) (setq --cl-var-- ...)) nil) (helm--update-move-first-line)))) (let ((src (or source (helm-get-current-source)))) (if (assq 'candidates-process src) nil (helm-display-mode-line src 'force) (helm-log-run-hook "helm-update" 'helm-after-update-hook))) (if preselect (progn (helm-log "helm-update" "Update preselect candidate %s" preselect) (if (helm-window) (let ((save-selected-window--state ...)) (save-current-buffer (unwind-protect ... ...))) (helm-preselect preselect source)))) (setq helm--force-updating-p nil) (helm--reset-update-flag)) (helm-log "helm-update" "end update"))
  helm-update(nil)
  (if (and (helm-resume-p resume) (helm-get-current-source)) (helm-mark-current-line t) (helm-update preselect))
  (save-current-buffer (set-buffer (helm-buffer-get)) ...)
  helm-read-from-minibuffer("Go to node: " nil nil noresume (keymap (127 . helm-mode-delete-char-backward-maybe) (27 keymap (13 . helm-cr-empty-string)) (C-return . helm-cr-empty-string) keymap (C-iso-lefttab . helm-follow-action-backward) (26 . helm-select-action) (tab . helm-execute-persistent-action) (17 . ace-jump-helm-line) (f12 closure ((n . 11) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f11 closure ((n . 10) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f10 closure ((n . 9) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f9 closure ((n . 8) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f8 closure ((n . 7) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f7 closure ((n . 6) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f6 closure ((n . 5) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f5 closure ((n . 4) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f4 closure ((n . 3) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f3 closure ((n . 2) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (f2 closure ((n . 1) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (menu-bar keymap (help-menu keymap (describe keymap ...))) (help keymap (109 . helm-help)) (23 . helm-helm-yank-text-at-point-with-subkeys) (f1 closure ((n . 0) (counter . 12) (upper-bound . 12) (map . #9) helm-marked-buffer-name t) nil (interactive) (helm-select-nth-action n)) (8) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . helm-follow-action-forward) (67108897 . helm-toggle-suspend-update) (3 keymap (57 closure (... ... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-execute-selection-action-at-nth ...)) (56 closure (... ... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-execute-selection-action-at-nth ...)) (55 closure (... ... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-execute-selection-action-at-nth ...)) (54 closure (... ... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-execute-selection-action-at-nth ...)) (53 closure (... ... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-execute-selection-action-at-nth ...)) (52 closure (... ... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-execute-selection-action-at-nth ...)) (51 closure (... ... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-execute-selection-action-at-nth ...)) (50 closure (... ... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-execute-selection-action-at-nth ...)) (49 closure (... ... ... ... ... helm-marked-buffer-name t) nil (interactive) (helm-execute-selection-action-at-nth ...)) (110 . helm-helm-run-cycle-resume-with-subkeys) (108 . helm-display-line-numbers-mode) (62 . helm-toggle-truncate-line) (21 . helm-refresh) (6 . helm-follow-mode) (9 . helm-insert-or-copy) (11 . helm-kill-selection-and-quit) (25 . helm-yank-selection) (37 . helm-exchange-minibuffer-and-header-line) (95 . helm-toggle-full-frame) (45 . helm-swap-windows)) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) "" Info-minibuf-history)
  (unwind-protect (helm-read-from-minibuffer prompt input preselect resume keymap default history) (helm-cleanup))
  (let (helm--source-name helm-current-source helm-in-persistent-action helm--quit (helm-buffer (or buffer helm-buffer))) (helm-initialize resume input default sources) (and ori--minibuffer-follows-selected-frame (setq minibuffer-follows-selected-frame (if (or helm--nested (minibufferp helm-current-buffer)) nil t))) (if helm-execute-action-at-once-if-one nil (helm-display-buffer helm-buffer resume) (select-window (helm-window)) (if (and resume helm-visible-mark-overlays) (progn (set-window-margins (selected-window) (+ (string-width helm-visible-mark-prefix) helm-left-margin-width))))) (if helm-allow-mouse nil (helm--remap-mouse-mode 1)) (add-hook 'post-command-hook 'helm--maybe-update-keymap) (add-hook 'helm-after-update-hook 'helm--maybe-update-keymap) (add-hook 'post-command-hook 'helm--update-header-line) (helm-log "helm-internal" "show prompt") (unwind-protect (helm-read-from-minibuffer prompt input preselect resume keymap default history) (helm-cleanup)) (prog1 (if helm--quit nil (helm-execute-selection-action)) (helm-log "helm-internal" (concat "[End session] " (make-string 41 45)))))
  (condition-case _v (let (helm--source-name helm-current-source helm-in-persistent-action helm--quit (helm-buffer (or buffer helm-buffer))) (helm-initialize resume input default sources) (and ori--minibuffer-follows-selected-frame (setq minibuffer-follows-selected-frame (if (or helm--nested (minibufferp helm-current-buffer)) nil t))) (if helm-execute-action-at-once-if-one nil (helm-display-buffer helm-buffer resume) (select-window (helm-window)) (if (and resume helm-visible-mark-overlays) (progn (set-window-margins (selected-window) (+ (string-width helm-visible-mark-prefix) helm-left-margin-width))))) (if helm-allow-mouse nil (helm--remap-mouse-mode 1)) (add-hook 'post-command-hook 'helm--maybe-update-keymap) (add-hook 'helm-after-update-hook 'helm--maybe-update-keymap) (add-hook 'post-command-hook 'helm--update-header-line) (helm-log "helm-internal" "show prompt") (unwind-protect (helm-read-from-minibuffer prompt input preselect resume keymap default history) (helm-cleanup)) (prog1 (if helm--quit nil (helm-execute-selection-action)) (helm-log "helm-internal" (concat "[End session] " (make-string 41 45))))) ((debug quit) (helm-restore-position-on-quit) (helm-log-run-hook "helm-internal" 'helm-quit-hook) (helm-log "helm-internal" (concat "[End session (quit)] " (make-string 34 45))) nil))
  (unwind-protect (condition-case _v (let (helm--source-name helm-current-source helm-in-persistent-action helm--quit (helm-buffer (or buffer helm-buffer))) (helm-initialize resume input default sources) (and ori--minibuffer-follows-selected-frame (setq minibuffer-follows-selected-frame (if (or helm--nested (minibufferp helm-current-buffer)) nil t))) (if helm-execute-action-at-once-if-one nil (helm-display-buffer helm-buffer resume) (select-window (helm-window)) (if (and resume helm-visible-mark-overlays) (progn (set-window-margins (selected-window) (+ ... helm-left-margin-width))))) (if helm-allow-mouse nil (helm--remap-mouse-mode 1)) (add-hook 'post-command-hook 'helm--maybe-update-keymap) (add-hook 'helm-after-update-hook 'helm--maybe-update-keymap) (add-hook 'post-command-hook 'helm--update-header-line) (helm-log "helm-internal" "show prompt") (unwind-protect (helm-read-from-minibuffer prompt input preselect resume keymap default history) (helm-cleanup)) (prog1 (if helm--quit nil (helm-execute-selection-action)) (helm-log "helm-internal" (concat "[End session] " (make-string 41 45))))) ((debug quit) (helm-restore-position-on-quit) (helm-log-run-hook "helm-internal" 'helm-quit-hook) (helm-log "helm-internal" (concat "[End session (quit)] " (make-string 34 45))) nil)) (if (fboundp 'advice-remove) (progn (advice-remove 'tramp-read-passwd #'helm--suspend-read-passwd) (advice-remove 'ange-ftp-get-passwd #'helm--suspend-read-passwd) (advice-remove 'epa-passphrase-callback-function #'helm--suspend-read-passwd) (advice-remove 'linum-on #'helm--advice-linum-on))) (helm-log "helm-internal" "helm-alive-p = %S" (setq helm-alive-p nil)) (helm--remap-mouse-mode -1) (setq helm-alive-p nil) (and ori--minibuffer-follows-selected-frame (set-default-toplevel-value 'minibuffer-follows-selected-frame ori--minibuffer-follows-selected-frame)) (setq helm--force-updating-p nil) (setq helm--buffer-in-new-frame-p nil) (setq helm-pattern "") (progn (setq helm--ignore-errors nil) (setq helm-debug nil)))
  (let ((non-essential t) mouse-autoselect-window focus-follows-mouse mode-line-in-non-selected-windows minibuffer-completion-confirm (ori--minibuffer-follows-selected-frame (and (boundp 'minibuffer-follows-selected-frame) (default-toplevel-value 'minibuffer-follows-selected-frame))) (input-method-verbose-flag helm-input-method-verbose-flag) (helm-maybe-use-default-as-input (and (null input) (or helm-maybe-use-default-as-input (let* ((--cl-var-- ...) (s nil) (--cl-flag-- t) --cl-var--) (while (and ... ...) (setq --cl-var-- ...)) --cl-var--))))) (unwind-protect (condition-case _v (let (helm--source-name helm-current-source helm-in-persistent-action helm--quit (helm-buffer (or buffer helm-buffer))) (helm-initialize resume input default sources) (and ori--minibuffer-follows-selected-frame (setq minibuffer-follows-selected-frame (if (or helm--nested ...) nil t))) (if helm-execute-action-at-once-if-one nil (helm-display-buffer helm-buffer resume) (select-window (helm-window)) (if (and resume helm-visible-mark-overlays) (progn (set-window-margins ... ...)))) (if helm-allow-mouse nil (helm--remap-mouse-mode 1)) (add-hook 'post-command-hook 'helm--maybe-update-keymap) (add-hook 'helm-after-update-hook 'helm--maybe-update-keymap) (add-hook 'post-command-hook 'helm--update-header-line) (helm-log "helm-internal" "show prompt") (unwind-protect (helm-read-from-minibuffer prompt input preselect resume keymap default history) (helm-cleanup)) (prog1 (if helm--quit nil (helm-execute-selection-action)) (helm-log "helm-internal" (concat "[End session] " (make-string 41 45))))) ((debug quit) (helm-restore-position-on-quit) (helm-log-run-hook "helm-internal" 'helm-quit-hook) (helm-log "helm-internal" (concat "[End session (quit)] " (make-string 34 45))) nil)) (if (fboundp 'advice-remove) (progn (advice-remove 'tramp-read-passwd #'helm--suspend-read-passwd) (advice-remove 'ange-ftp-get-passwd #'helm--suspend-read-passwd) (advice-remove 'epa-passphrase-callback-function #'helm--suspend-read-passwd) (advice-remove 'linum-on #'helm--advice-linum-on))) (helm-log "helm-internal" "helm-alive-p = %S" (setq helm-alive-p nil)) (helm--remap-mouse-mode -1) (setq helm-alive-p nil) (and ori--minibuffer-follows-selected-frame (set-default-toplevel-value 'minibuffer-follows-selected-frame ori--minibuffer-follows-selected-frame)) (setq helm--force-updating-p nil) (setq helm--buffer-in-new-frame-p nil) (setq helm-pattern "") (progn (setq helm--ignore-errors nil) (setq helm-debug nil))))
  helm-internal((... ...) nil "Go to node: " noresume nil "*helm-mode-Inf..." (keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ...) "" Info-minibuf-history)
  apply(helm-internal ((... ...) nil "Go to node: " noresume nil "*helm-mode-Info-goto..." (keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) "" Info-minibuf-history))
  (if (keywordp (car plist)) (progn (setq helm--local-variables (append helm--local-variables (helm-parse-keys plist))) (apply fn (mapcar #'(lambda (key) (plist-get plist key)) helm-argument-keys))) (apply fn plist))
  (if (and helm-alive-p (eq fn #'helm)) (if (helm--alive-p) (error "Error: Trying to run helm within a running helm se...") (save-current-buffer (set-buffer (helm-buffer-get)) (prog1 (message "Aborting an helm session running in background") (helm-keyboard-quit)))) (if (keywordp (car plist)) (progn (setq helm--local-variables (append helm--local-variables (helm-parse-keys plist))) (apply fn (mapcar #'(lambda (key) (plist-get plist key)) 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))) #'helm--nest) ((keywordp (car plist)) #'helm) (t #'helm-internal)))) (if (and helm-alive-p (eq fn #'helm)) (if (helm--alive-p) (error "Error: Trying to run helm within a running helm se...") (save-current-buffer (set-buffer (helm-buffer-get)) (prog1 (message "Aborting an helm session running in background") (helm-keyboard-quit)))) (if (keywordp (car plist)) (progn (setq helm--local-variables (append helm--local-variables (helm-parse-keys plist))) (apply fn (mapcar #'(lambda ... ...) helm-argument-keys))) (apply fn plist))))
  helm((... ...) nil "Go to node: " noresume nil "*helm-mode-Inf..." (keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ...) "" Info-minibuf-history)
  apply(helm ((... ...) nil "Go to node: " noresume nil "*helm-mode-Info-goto..." (keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) "" Info-minibuf-history))
  (progn (setq helm--local-variables (append helm--local-variables (helm-parse-keys plist))) (apply fn (mapcar #'(lambda (key) (plist-get plist key)) helm-argument-keys)))
  (if (keywordp (car plist)) (progn (setq helm--local-variables (append helm--local-variables (helm-parse-keys plist))) (apply fn (mapcar #'(lambda (key) (plist-get plist key)) helm-argument-keys))) (apply fn plist))
  (if (and helm-alive-p (eq fn #'helm)) (if (helm--alive-p) (error "Error: Trying to run helm within a running helm se...") (save-current-buffer (set-buffer (helm-buffer-get)) (prog1 (message "Aborting an helm session running in background") (helm-keyboard-quit)))) (if (keywordp (car plist)) (progn (setq helm--local-variables (append helm--local-variables (helm-parse-keys plist))) (apply fn (mapcar #'(lambda (key) (plist-get plist key)) 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))) #'helm--nest) ((keywordp (car plist)) #'helm) (t #'helm-internal)))) (if (and helm-alive-p (eq fn #'helm)) (if (helm--alive-p) (error "Error: Trying to run helm within a running helm se...") (save-current-buffer (set-buffer (helm-buffer-get)) (prog1 (message "Aborting an helm session running in background") (helm-keyboard-quit)))) (if (keywordp (car plist)) (progn (setq helm--local-variables (append helm--local-variables (helm-parse-keys plist))) (apply fn (mapcar #'(lambda ... ...) helm-argument-keys))) (apply fn plist))))
  helm(:sources (... ...) :input nil :default "" :preselect nil :prompt "Go to node: " :resume noresume :keymap (keymap ... ... ... keymap ... ... ... ... ... ... ... ... ... ...) ...)
  (setq result (helm :sources src-list :input initial-input :default default :preselect preselect :prompt prompt :resume 'noresume :keymap keymap :allow-nest allow-nest :candidate-number-limit candidate-number-limit :case-fold-search case-fold :history (and (symbolp input-history) input-history) :buffer buffer))
  (unwind-protect (setq result (helm :sources src-list :input initial-input :default default :preselect preselect :prompt prompt :resume 'noresume :keymap keymap :allow-nest allow-nest :candidate-number-limit candidate-number-limit :case-fold-search case-fold :history (and (symbolp input-history) input-history) :buffer buffer)) (remove-hook 'helm-after-update-hook 'helm-comp-read--move-to-first-real-candidate))
  (let* ((minibuffer-completion-predicate test) (minibuffer-completion-table collection) (helm-read-file-name-mode-line-string (replace-regexp-in-string "helm-maybe-exit-minibuffer" "helm-confirm-and-exit-minibuffer" helm-read-file-name-mode-line-string)) (get-candidates #'(lambda nil (let ((cands ...)) (helm-cr-default default cands)))) (history-get-candidates #'(lambda nil (let ((cands ...)) (if cands (progn ...))))) (src-hist (helm-make-source (format "%s History" name) 'helm-source-sync :candidates history-get-candidates :fuzzy-match fuzzy :multiline multiline :match-part match-part :filtered-candidate-transformer (append (list (list 'lambda '... (cons ... ...))) (and hist-fc-transformer (helm-mklist hist-fc-transformer))) :persistent-action persistent-action :persistent-help persistent-help :keymap keymap :must-match must-match :group group :coerce coerce :mode-line mode-line :help-message help-message :action action-fn)) (src (helm-make-source name 'helm-source-sync :candidates get-candidates :match-part match-part :multiline multiline :header-name header-name :filtered-candidate-transformer (let ((transformers (helm-mklist fc-transformer))) (append transformers (if (member ... transformers) nil '...))) :requires-pattern requires-pattern :persistent-action persistent-action :persistent-help persistent-help :fuzzy-match fuzzy :diacritics diacritics :keymap keymap :must-match must-match :group group :coerce coerce :mode-line mode-line :match-dynamic match-dynamic :help-message help-message :action action-fn :volatile volatile)) (src-1 (helm-make-source name 'helm-source-in-buffer :data get-candidates :match-part match-part :multiline multiline :header-name header-name :filtered-candidate-transformer (append (helm-mklist fc-transformer) '(helm-cr-default-transformer)) :requires-pattern requires-pattern :persistent-action persistent-action :fuzzy-match fuzzy :diacritics diacritics :keymap keymap :must-match must-match :group group :coerce coerce :persistent-help persistent-help :mode-line mode-line :help-message help-message :action action-fn)) (src-list (list src-hist (if candidates-in-buffer src-1 src))) (helm-execute-action-at-once-if-one exec-when-only-one) (helm-quit-if-no-candidate quit-when-no-cand) result) (if nomark (progn (setq src-list (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src (car --cl-var--)) (setq --cl-var-- (cons ... --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))))) (if reverse-history (progn (setq src-list (nreverse src-list)))) (add-hook 'helm-after-update-hook 'helm-comp-read--move-to-first-real-candidate) (unwind-protect (setq result (helm :sources src-list :input initial-input :default default :preselect preselect :prompt prompt :resume 'noresume :keymap keymap :allow-nest allow-nest :candidate-number-limit candidate-number-limit :case-fold-search case-fold :history (and (symbolp input-history) input-history) :buffer buffer)) (remove-hook 'helm-after-update-hook 'helm-comp-read--move-to-first-real-candidate)) (if (and result history (symbolp history)) (progn (set history (delete-dups (append (mapcar #'substring-no-properties (helm-mklist result)) (symbol-value history)))))) (or result (helm-mode--keyboard-quit)))
  (let ((action-fn (list (list "Sole action (Identity)" 'lambda '(candidate) (cons 'if (cons marked-candidates '...)))))) (let* ((minibuffer-completion-predicate test) (minibuffer-completion-table collection) (helm-read-file-name-mode-line-string (replace-regexp-in-string "helm-maybe-exit-minibuffer" "helm-confirm-and-exit-minibuffer" helm-read-file-name-mode-line-string)) (get-candidates #'(lambda nil (let (...) (helm-cr-default default cands)))) (history-get-candidates #'(lambda nil (let (...) (if cands ...)))) (src-hist (helm-make-source (format "%s History" name) 'helm-source-sync :candidates history-get-candidates :fuzzy-match fuzzy :multiline multiline :match-part match-part :filtered-candidate-transformer (append (list (list ... ... ...)) (and hist-fc-transformer (helm-mklist hist-fc-transformer))) :persistent-action persistent-action :persistent-help persistent-help :keymap keymap :must-match must-match :group group :coerce coerce :mode-line mode-line :help-message help-message :action action-fn)) (src (helm-make-source name 'helm-source-sync :candidates get-candidates :match-part match-part :multiline multiline :header-name header-name :filtered-candidate-transformer (let ((transformers ...)) (append transformers (if ... nil ...))) :requires-pattern requires-pattern :persistent-action persistent-action :persistent-help persistent-help :fuzzy-match fuzzy :diacritics diacritics :keymap keymap :must-match must-match :group group :coerce coerce :mode-line mode-line :match-dynamic match-dynamic :help-message help-message :action action-fn :volatile volatile)) (src-1 (helm-make-source name 'helm-source-in-buffer :data get-candidates :match-part match-part :multiline multiline :header-name header-name :filtered-candidate-transformer (append (helm-mklist fc-transformer) '(helm-cr-default-transformer)) :requires-pattern requires-pattern :persistent-action persistent-action :fuzzy-match fuzzy :diacritics diacritics :keymap keymap :must-match must-match :group group :coerce coerce :persistent-help persistent-help :mode-line mode-line :help-message help-message :action action-fn)) (src-list (list src-hist (if candidates-in-buffer src-1 src))) (helm-execute-action-at-once-if-one exec-when-only-one) (helm-quit-if-no-candidate quit-when-no-cand) result) (if nomark (progn (setq src-list (let* ((--cl-var-- src-list) (src nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq src ...) (setq --cl-var-- ...) (setq --cl-var-- ...)) (nreverse --cl-var--))))) (if reverse-history (progn (setq src-list (nreverse src-list)))) (add-hook 'helm-after-update-hook 'helm-comp-read--move-to-first-real-candidate) (unwind-protect (setq result (helm :sources src-list :input initial-input :default default :preselect preselect :prompt prompt :resume 'noresume :keymap keymap :allow-nest allow-nest :candidate-number-limit candidate-number-limit :case-fold-search case-fold :history (and (symbolp input-history) input-history) :buffer buffer)) (remove-hook 'helm-after-update-hook 'helm-comp-read--move-to-first-real-candidate)) (if (and result history (symbolp history)) (progn (set history (delete-dups (append (mapcar ... ...) (symbol-value history)))))) (or result (helm-mode--keyboard-quit))))
  (progn (progn (or (if shistory (or (null history) (and history (symbolp history))) t) (cl--assertion-failed '(if shistory (or (null history) (and history ...)) t) "Error: History should be specified as a symbol" (list) (list))) nil) (if (get-buffer helm-action-buffer) (progn (kill-buffer helm-action-buffer))) (if (memq must-match '(confirm confirm-after-completion t nil)) nil (setq must-match t)) ...)
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:test :initial-input :default :preselect :buffer :must-match :fuzzy :reverse-history :requires-pattern :history :raw-history :input-history :case-fold :persistent-action :persistent-help :mode-line :help-message :keymap :name :header-name :candidates-in-buffer :diacritics :match-part :match-dynamic :exec-when-only-one :quit-when-no-cand :volatile :sort :fc-transformer :hist-fc-transformer :marked-candidates :nomark :alistp :candidate-number-limit :multiline :allow-nest :coerce :group :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:test :initial-inp..." (car --cl-keys--)))))) ...)
  (let* ((test (car (cdr (plist-member --cl-rest-- ':test)))) (initial-input (car (cdr (plist-member --cl-rest-- ':initial-input)))) (default (car (cdr (plist-member --cl-rest-- ':default)))) (preselect (car (cdr (plist-member --cl-rest-- ':preselect)))) (buffer (car (cdr (or (plist-member --cl-rest-- ...) '...)))) (must-match (car (cdr (plist-member --cl-rest-- ':must-match)))) (fuzzy (car (cdr (plist-member --cl-rest-- ':fuzzy)))) (reverse-history (car (cdr (plist-member --cl-rest-- ':reverse-history)))) (requires-pattern (car (cdr (or (plist-member --cl-rest-- ...) '...)))) (shistory (plist-member --cl-rest-- ':history)) (history (if shistory (prog1 (car (cdr shistory)) (setq shistory t)) nil)) (raw-history (car (cdr (plist-member --cl-rest-- ':raw-history)))) (input-history (car (cdr (plist-member --cl-rest-- ':input-history)))) (case-fold (car (cdr (or (plist-member --cl-rest-- ...) (list nil helm-comp-read-case-fold-search))))) (persistent-action (car (cdr (plist-member --cl-rest-- ':persistent-action)))) (persistent-help (car (cdr (or (plist-member --cl-rest-- ...) '...)))) (mode-line (car (cdr (or (plist-member --cl-rest-- ...) (list nil helm-comp-read-mode-line))))) (help-message (car (cdr (plist-member --cl-rest-- ':help-message)))) (keymap (car (cdr (or (plist-member --cl-rest-- ...) (list nil helm-comp-read-map))))) (name (car (cdr (or (plist-member --cl-rest-- ...) '...)))) (header-name (car (cdr (plist-member --cl-rest-- ':header-name)))) (candidates-in-buffer (car (cdr (plist-member --cl-rest-- ':candidates-in-buffer)))) (diacritics (car (cdr (plist-member --cl-rest-- ':diacritics)))) (match-part (car (cdr (plist-member --cl-rest-- ':match-part)))) (match-dynamic (car (cdr (plist-member --cl-rest-- ':match-dynamic)))) (exec-when-only-one (car (cdr (plist-member --cl-rest-- ':exec-when-only-one)))) (quit-when-no-cand (car (cdr (plist-member --cl-rest-- ':quit-when-no-cand)))) (volatile (car (cdr (or (plist-member --cl-rest-- ...) '...)))) (sort (car (cdr (plist-member --cl-rest-- ':sort)))) (fc-transformer (car (cdr (plist-member --cl-rest-- ':fc-transformer)))) (hist-fc-transformer (car (cdr (plist-member --cl-rest-- ':hist-fc-transformer)))) (marked-candidates (car (cdr (or (plist-member --cl-rest-- ...) (list nil helm-comp-read-use-marked))))) (nomark (car (cdr (plist-member --cl-rest-- ':nomark)))) (alistp (car (cdr (or (plist-member --cl-rest-- ...) '...)))) (candidate-number-limit (car (cdr (or (plist-member --cl-rest-- ...) (list nil helm-candidate-number-limit))))) (multiline (car (cdr (plist-member --cl-rest-- ':multiline)))) (allow-nest (car (cdr (plist-member --cl-rest-- ':allow-nest)))) (coerce (car (cdr (plist-member --cl-rest-- ':coerce)))) (group (car (cdr (or (plist-member --cl-rest-- ...) '...)))))...)
  helm-comp-read("Go to node: " Info-read-node-name-1 :test nil :history Info-minibuf-history :reverse-history t :input-history Info-minibuf-history :must-match t :alistp nil :diacritics nil :help-message helm-comp-read-help-message :name "Info-goto-node" :requires-pattern 0 :quit-when-no-cand t :nomark t :candidates-in-buffer t :exec-when-only-one nil :fuzzy t :buffer "*helm-mode-Info-goto-node*" :default "" :initial-input nil)
  (let ((history (or (car-safe hist) hist)) (initial-input (let ((it (cond (... ...) (... ...)))) (if it it)))) (helm-comp-read prompt collection :test test :history history :reverse-history helm-mode-reverse-history :input-history history :must-match require-match :alistp nil :diacritics helm-mode-ignore-diacritics :help-message #'helm-comp-read-help-message :name name :requires-pattern (if (and (stringp default) (string= default "") (or (eq require-match 'confirm) (eq require-match 'confirm-after-completion))) 1 0) :quit-when-no-cand (eq require-match t) :nomark (null helm-comp-read-use-marked) :candidates-in-buffer cands-in-buffer :exec-when-only-one exec-when-only-one :fuzzy (eq helm-completion-style 'helm-fuzzy) :buffer buffer :default (or default "") :initial-input initial-input))
  helm-completing-read-default-1("Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil nil "Info-goto-node" "*helm-mode-Info-goto-node*" t)
  funcall(helm-completing-read-default-1 "Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil nil "Info-goto-node" "*helm-mode-Info-goto-node*" t)
  (let* ((standard (and (memq helm-completion-style '(helm helm-fuzzy)) t)) (fn (if standard #'helm-completing-read-default-1 #'helm-completing-read-default-2))) (funcall fn prompt collection test require-match init hist default inherit-input-method name buffer standard))
  helm-completing-read-default-handler("Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil nil "Info-goto-node" "*helm-mode-Info-goto-node*")
  apply(helm-completing-read-default-handler ("Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil nil "Info-goto-node" "*helm-mode-Info-goto-node*"))
  (progn (fset 'minibuffer-complete #'ignore) (apply handler arg-list))
  (unwind-protect (progn (fset 'minibuffer-complete #'ignore) (apply handler arg-list)) (fset 'minibuffer-complete old))
  (let* ((old (symbol-function 'minibuffer-complete))) (unwind-protect (progn (fset 'minibuffer-complete #'ignore) (apply handler arg-list)) (fset 'minibuffer-complete old)))
  helm-mode--apply-helm-handler(helm-completing-read-default-handler ("Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil nil "Info-goto-node" "*helm-mode-Info-goto-node*"))
  (cond ((and def-com helm-mode) (helm-mode--apply-helm-handler def-com others-args)) ((and def-com (eq def-com 'ido-completing-read)) (setcar (memq collection def-args) (all-completions "" collection predicate)) (apply def-com def-args)) (def-com (apply def-com def-args)) (t (helm-mode--apply-helm-handler default-handler others-args)))
  (unwind-protect (cond ((and def-com helm-mode) (helm-mode--apply-helm-handler def-com others-args)) ((and def-com (eq def-com 'ido-completing-read)) (setcar (memq collection def-args) (all-completions "" collection predicate)) (apply def-com def-args)) (def-com (apply def-com def-args)) (t (helm-mode--apply-helm-handler default-handler others-args))) (helm-mode 1)...)
  (let* ((current-command (or (helm-this-command) this-command)) (str-command (if current-command (helm-symbol-name current-command) "completing-read")) (buf-name (format "*helm-mode-%s*" str-command)) (entry (assq current-command helm-completing-read-handlers-alist)) (def-com (helm-mode--get-default-handler-for 'comp entry)) (str-defcom (and def-com (helm-symbol-name def-com))) (def-args (list prompt collection predicate require-match initial-input hist def inherit-input-method)) (others-args (append def-args (list str-command buf-name))) helm-completion-mode-start-message helm-completion-mode-quit-message (minibuffer-setup-hook (let* ((--cl-var-- minibuffer-setup-hook) (h nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq h (car --cl-var--)) (if (or (consp h) (byte-code-function-p h) (helm-subr-native-elisp-p h) (memq h helm-mode-minibuffer-setup-hook-black-list)) (progn) (setq --cl-var-- (cons h --cl-var--))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) unread-command-events (default-handler #'helm-completing-read-default-handler))...)
  (catch '--cl-block-helm--completing-read-default-- (let* ((current-command (or (helm-this-command) this-command)) (str-command (if current-command (helm-symbol-name current-command) "completing-read")) (buf-name (format "*helm-mode-%s*" str-command)) (entry (assq current-command helm-completing-read-handlers-alist)) (def-com (helm-mode--get-default-handler-for 'comp entry)) (str-defcom (and def-com (helm-symbol-name def-com))) (def-args (list prompt collection predicate require-match initial-input hist def inherit-input-method)) (others-args (append def-args (list str-command buf-name))) helm-completion-mode-start-message helm-completion-mode-quit-message (minibuffer-setup-hook (let* ((--cl-var-- minibuffer-setup-hook) (h nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq h (car --cl-var--)) (if (or ... ... ... ...) (progn) (setq --cl-var-- ...)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) unread-command-events (default-handler #'helm-completing-read-default-handler)) ...))
  helm--completing-read-default("Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil nil)
  apply(helm--completing-read-default ("Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil nil))
  #f(advice helm--completing-read-default :override completing-read-default)("Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil nil)
  #<subr completing-read>("Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil nil)
  apply(#<subr completing-read> ("Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil))
  completing-read("Go to node: " Info-read-node-name-1 nil t nil Info-minibuf-history nil)
  Info-read-node-name("Go to node: ")
  byte-code("\301\302!\10D\207" [current-prefix-arg Info-read-node-name "Go to node: "] 2)
  command-execute(Info-goto-node)

Minimal configuration

• I agree using a minimal configuration

[thierryvolpiatto]

"lin.sun" ***@***.***> writes:

What happened? There is an error message after press g in the Info buffer ( pressing the C+h i then g ): In ‘Info-goto-node History’ source: ‘#[0 \304\301\303\305\300$\211\205^Q^@\306\307\310\302^D""\207 [nil Info-minibuf-history nil helm-comp-read-get-candidates nil delete helm-cr-default] 6]’ (void-function Info-minibuf-history)

I guess you are using Emacs-29? In Emacs-29 `Info-read-node-name` is using an history variable `Info-minibuf-history` without declaring it (with defvar) hence the error. You should report this in Emacs-29, not an Helm bug AFAICT. Thanks.

…

-- Thierry

[thierryvolpiatto]

Thierry Volpiatto ***@***.***> writes:

"lin.sun" ***@***.***> writes: > What happened? > > There is an error message after press g in the Info buffer ( pressing the C+h i then g ): > > In ‘Info-goto-node History’ source: ‘#[0 \304\301\303\305\300$\211\205^Q^@\306\307\310\302^D""\207 [nil Info-minibuf-history nil helm-comp-read-get-candidates nil delete > helm-cr-default] 6]’ > (void-function Info-minibuf-history) I guess you are using Emacs-29? In Emacs-29 `Info-read-node-name` is using an history variable `Info-minibuf-history` without declaring it (with defvar) hence the error. You should report this in Emacs-29, not an Helm bug AFAICT.

Done, it is Emacs bug#58786.

…

-- Thierry

[sunlin7]

Yes, I'm using the emacs29.
But emacs -q without helm, press the C-h i then press the g will work, the varialbe Info-minibuf-history will be defined after that.

[thierryvolpiatto]

No it is not defined, the var belong to nowhere, as a result you will never have an history for this completing-read.
You may think so but it is minibuffer-history which will be used instead.
I can't believe we have to discuss such a trivial change to do in Emacs upstream, therefore I will declare the var in helm-info to stop beeing bothered by this.

[sunlin7]

Thank you !