all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* bug#47205: 27.1.91; [bug] unexpected input event interrupted expand-file
@ 2021-03-17  3:36 LinSun via Bug reports for GNU Emacs, the Swiss army knife of text editors
  2021-03-17 11:51 ` Michael Albinus
  2021-03-17 15:45 ` bug#47205: " Lin Sun via Bug reports for GNU Emacs, the Swiss army knife of text editors
  0 siblings, 2 replies; 15+ messages in thread
From: LinSun via Bug reports for GNU Emacs, the Swiss army knife of text editors @ 2021-03-17  3:36 UTC (permalink / raw)
  To: 47205

[-- Attachment #1: Type: text/html, Size: 7610 bytes --]

[-- Attachment #2: backtrace-unexpected-input-event-for-expand-file-name --]
[-- Type: application/octet-stream, Size: 57005 bytes --]

Debugger entered--Lisp error: (no-catch input t)
  read-event(nil nil 0.001)
  (let ((inhibit-redisplay t) unread-command-events) (read-event nil nil check-interval))
  (let ((event (let ((inhibit-redisplay t) unread-command-events) (read-event nil nil check-interval)))) (if event (progn (if (condition-case nil (progn (dbus-check-event event)) (error nil)) (setq result (gethash key dbus-return-values-table)) (setq unread-command-events (nconc unread-command-events (cons event nil)))))) (if (< check-interval 1) (progn (setq check-interval (* check-interval 1.05)))))
  (while (eq (car result) :pending) (let ((event (let ((inhibit-redisplay t) unread-command-events) (read-event nil nil check-interval)))) (if event (progn (if (condition-case nil (progn (dbus-check-event event)) (error nil)) (setq result (gethash key dbus-return-values-table)) (setq unread-command-events (nconc unread-command-events (cons event nil)))))) (if (< check-interval 1) (progn (setq check-interval (* check-interval 1.05))))))
  (progn (while (eq (car result) :pending) (let ((event (let ((inhibit-redisplay t) unread-command-events) (read-event nil nil check-interval)))) (if event (progn (if (condition-case nil (progn ...) (error nil)) (setq result (gethash key dbus-return-values-table)) (setq unread-command-events (nconc unread-command-events ...))))) (if (< check-interval 1) (progn (setq check-interval (* check-interval 1.05)))))))
  (unwind-protect (progn (while (eq (car result) :pending) (let ((event (let (... unread-command-events) (read-event nil nil check-interval)))) (if event (progn (if (condition-case nil ... ...) (setq result ...) (setq unread-command-events ...)))) (if (< check-interval 1) (progn (setq check-interval (* check-interval 1.05))))))) (cancel-timer -with-timeout-timer-))
  (let* ((-with-timeout-timer- (run-with-timer (if timeout (/ timeout 1000.0) 25) nil #'(lambda nil (throw 'timeout 'timeout)))) (with-timeout-timers (cons -with-timeout-timer- with-timeout-timers))) (unwind-protect (progn (while (eq (car result) :pending) (let ((event (let ... ...))) (if event (progn (if ... ... ...))) (if (< check-interval 1) (progn (setq check-interval ...)))))) (cancel-timer -with-timeout-timer-)))
  (catch 'timeout (let* ((-with-timeout-timer- (run-with-timer (if timeout (/ timeout 1000.0) 25) nil #'(lambda nil (throw ... ...)))) (with-timeout-timers (cons -with-timeout-timer- with-timeout-timers))) (unwind-protect (progn (while (eq (car result) :pending) (let ((event ...)) (if event (progn ...)) (if (< check-interval 1) (progn ...))))) (cancel-timer -with-timeout-timer-))))
  (let ((-with-timeout-value- (catch 'timeout (let* ((-with-timeout-timer- (run-with-timer ... nil ...)) (with-timeout-timers (cons -with-timeout-timer- with-timeout-timers))) (unwind-protect (progn (while ... ...)) (cancel-timer -with-timeout-timer-)))))) (if (eq -with-timeout-value- 'timeout) (progn (signal 'dbus-error (list "call timed out"))) -with-timeout-value-))
  (progn (let ((-with-timeout-value- (catch 'timeout (let* ((-with-timeout-timer- ...) (with-timeout-timers ...)) (unwind-protect (progn ...) (cancel-timer -with-timeout-timer-)))))) (if (eq -with-timeout-value- 'timeout) (progn (signal 'dbus-error (list "call timed out"))) -with-timeout-value-)) (if (eq (car result) :error) (progn (signal (car (cdr result)) (cdr (cdr result))))) (cdr result))
  (unwind-protect (progn (let ((-with-timeout-value- (catch 'timeout (let* (... ...) (unwind-protect ... ...))))) (if (eq -with-timeout-value- 'timeout) (progn (signal 'dbus-error (list "call timed out"))) -with-timeout-value-)) (if (eq (car result) :error) (progn (signal (car (cdr result)) (cdr (cdr result))))) (cdr result)) (remhash key dbus-return-values-table))
  (let ((timeout (plist-get args :timeout)) (check-interval 0.001) (key (apply 'dbus-message-internal dbus-message-type-method-call bus service path interface method 'dbus-call-method-handler args)) (result (cons :pending nil))) (puthash key result dbus-return-values-table) (unwind-protect (progn (let ((-with-timeout-value- (catch 'timeout (let* ... ...)))) (if (eq -with-timeout-value- 'timeout) (progn (signal 'dbus-error (list "call timed out"))) -with-timeout-value-)) (if (eq (car result) :error) (progn (signal (car (cdr result)) (cdr (cdr result))))) (cdr result)) (remhash key dbus-return-values-table)))
  dbus-call-method(:system "org.freedesktop.DBus" "/org/freedesktop/DBus" "org.freedesktop.DBus" "AddMatch" "type='signal',interface='org.freedesktop.DBus.Loca...")
  (condition-case err (dbus-call-method bus dbus-service-dbus dbus-path-dbus dbus-interface-dbus "AddMatch" rule) (dbus-error (if (not (string-match "eavesdrop" rule)) (signal (car err) (cdr err)) (if dbus-debug (progn (message "Removing eavesdrop from rule %s" rule))) (setq rule (replace-regexp-in-string ",eavesdrop='true'" "" rule)) (dbus-call-method bus dbus-service-dbus dbus-path-dbus dbus-interface-dbus "AddMatch" rule))))
  (let ((counter 0) (rule "type='signal'") uname key key1 value) (if (and (stringp service) (not (= 0 (length service))) (not (string-equal service dbus-service-dbus)) (not (string-match "^:" service))) (setq uname (dbus-get-name-owner bus service)) (setq uname service)) (setq rule (concat rule (if uname (progn (format ",sender='%s'" uname))) (if interface (progn (format ",interface='%s'" interface))) (if signal (progn (format ",member='%s'" signal))) (if path (progn (format ",path='%s'" path))))) (if (or (stringp (car args)) (null (car args))) (let ((--dolist-tail-- args)) (while --dolist-tail-- (let ((arg (car --dolist-tail--))) (if (stringp arg) (setq rule (concat rule ...)) (if arg (signal ... ...))) (setq counter (1+ counter)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (while args (setq key (car args) rule (concat rule (cond ((and ... ...) (setq counter ... args ... value ...) (if ... nil ...) (format ",arg%s%s='%s'" counter ... value)) ((and ... ...) (setq args ... value ...) (if ... nil ...) (format ",%s='%s'" ... value)) ((eq key :eavesdrop) ",eavesdrop='true'") (t (signal ... ...)))) args (cdr args)))) (condition-case err (dbus-call-method bus dbus-service-dbus dbus-path-dbus dbus-interface-dbus "AddMatch" rule) (dbus-error (if (not (string-match "eavesdrop" rule)) (signal (car err) (cdr err)) (if dbus-debug (progn (message "Removing eavesdrop from rule %s" rule))) (setq rule (replace-regexp-in-string ",eavesdrop='true'" "" rule)) (dbus-call-method bus dbus-service-dbus dbus-path-dbus dbus-interface-dbus "AddMatch" rule)))) (if dbus-debug (progn (message "Matching rule \"%s\" created" rule))) (setq key (list :signal bus interface signal) key1 (list uname service path handler rule) value (gethash key dbus-registered-objects-table)) (if (member key1 value) nil (puthash key (cons key1 value) dbus-registered-objects-table)) (list key (list service path handler)))
  dbus-register-signal(:system nil "/org/freedesktop/DBus/Local" "org.freedesktop.DBus.Local" "Disconnected" dbus-handle-bus-disconnect)
  (prog1 (dbus--init-bus bus private) (dbus-register-signal bus nil dbus-path-local dbus-interface-local "Disconnected" #'dbus-handle-bus-disconnect))
  dbus-init-bus(:system)
  (progn (dbus-init-bus :system))
  (condition-case err (progn (dbus-init-bus :system)) (dbus-error (if dbus-debug (progn (signal (car err) (cdr err))))))
  (progn (condition-case err (progn (dbus-init-bus :system)) (dbus-error (if dbus-debug (progn (signal (car err) (cdr err)))))) (condition-case err (progn (dbus-init-bus :session)) (dbus-error (if dbus-debug (progn (signal (car err) (cdr err)))))))
  (if (featurep 'dbusbind) (progn (condition-case err (progn (dbus-init-bus :system)) (dbus-error (if dbus-debug (progn (signal (car err) (cdr err)))))) (condition-case err (progn (dbus-init-bus :session)) (dbus-error (if dbus-debug (progn (signal (car err) (cdr err))))))))
  eval-buffer(#<buffer  *load*-614302> nil "xxx/.root/share/emacs/27.1.91/lisp/net/..." nil t)  ; Reading at buffer position 69829
  load-with-code-conversion("xxx/.root/share/emacs/27.1.91/lisp/net/..." "xxx/.root/share/emacs/27.1.91/lisp/net/..." nil t)
  require(dbus)
  eval-buffer(#<buffer  *load*-913948> nil "xxx/.root/share/emacs/27.1.91/lisp/net/..." nil t)  ; Reading at buffer position 4036
  load-with-code-conversion("xxx/.root/share/emacs/27.1.91/lisp/net/..." "xxx/.root/share/emacs/27.1.91/lisp/net/..." nil t)
  require(tramp-gvfs)
  (let ((max-specpdl-size (* 2 max-specpdl-size))) (require 'tramp-gvfs))
  (progn (let ((max-specpdl-size (* 2 max-specpdl-size))) (require 'tramp-gvfs)))
  eval((progn (let ((max-specpdl-size (* 2 max-specpdl-size))) (require 'tramp-gvfs))) t)
  #f(compiled-function (&rest body) "Like `progn', but evaluates the body at compile time and at\nload time.  In interpreted code, this is entirely equivalent to\n`progn', except that the value of the expression may be (but is\nnot necessarily) computed at load time if eager macro expansion\nis enabled." #<bytecode 0x1ff5555f273b>)((let ((max-specpdl-size (* 2 max-specpdl-size))) (require 'tramp-gvfs)))
  (eval-and-compile (let ((max-specpdl-size (* 2 max-specpdl-size))) (require 'tramp-gvfs)))
  eval-buffer(#<buffer  *load*> nil "xxx/.root/share/emacs/27.1.91/lisp/net/..." nil t)  ; Reading at buffer position 4928
  load-with-code-conversion("xxx/.root/share/emacs/27.1.91/lisp/net/..." "xxx/.root/share/emacs/27.1.91/lisp/net/..." nil t)
  tramp-archive-file-name-handler(expand-file-name "test/lisp/net/tramp-archive-resources/foo.iso/foo" "HOME/dev-env/src/emacs27.git/")
  expand-file-name("test/lisp/net/tramp-archive-resources/foo.iso/foo" "HOME/dev-env/src/emacs27.git/")
  (cons display (expand-file-name display root))
  (cons (cons display (expand-file-name display root)) --cl-var--)
  (setq --cl-var-- (cons (cons display (expand-file-name display root)) --cl-var--))
  (while (consp --cl-var--) (setq display (car --cl-var--)) (setq --cl-var-- (cons (cons display (expand-file-name display root)) --cl-var--)) (setq --cl-var-- (cdr --cl-var--)))
  (let* ((root (projectile-project-root)) (--cl-var-- (projectile-current-project-files)) (display nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq display (car --cl-var--)) (setq --cl-var-- (cons (cons display (expand-file-name display root)) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))
  (save-current-buffer (set-buffer (or (and (buffer-live-p helm-current-buffer) helm-current-buffer) (setq helm-current-buffer (current-buffer)))) (let* ((root (projectile-project-root)) (--cl-var-- (projectile-current-project-files)) (display nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq display (car --cl-var--)) (setq --cl-var-- (cons (cons display (expand-file-name display root)) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))
  (progn (save-current-buffer (set-buffer (or (and (buffer-live-p helm-current-buffer) helm-current-buffer) (setq helm-current-buffer (current-buffer)))) (let* ((root (projectile-project-root)) (--cl-var-- (projectile-current-project-files)) (display nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq display (car --cl-var--)) (setq --cl-var-- (cons (cons display (expand-file-name display root)) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))))
  (if (projectile-project-p) (progn (save-current-buffer (set-buffer (or (and (buffer-live-p helm-current-buffer) helm-current-buffer) (setq helm-current-buffer (current-buffer)))) (let* ((root (projectile-project-root)) (--cl-var-- (projectile-current-project-files)) (display nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq display (car --cl-var--)) (setq --cl-var-- (cons (cons display ...) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--)))))
  (closure (helm-projectile-current-project-root helm-ag-base-command t) nil (if (projectile-project-p) (progn (save-current-buffer (set-buffer (or (and (buffer-live-p helm-current-buffer) helm-current-buffer) (setq helm-current-buffer (current-buffer)))) (let* ((root (projectile-project-root)) (--cl-var-- (projectile-current-project-files)) (display nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq display (car --cl-var--)) (setq --cl-var-- (cons ... --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))))))()
  apply((closure (helm-projectile-current-project-root helm-ag-base-command t) nil (if (projectile-project-p) (progn (save-current-buffer (set-buffer (or (and ... helm-current-buffer) (setq helm-current-buffer ...))) (let* ((root ...) (--cl-var-- ...) (display nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq display ...) (setq --cl-var-- ...) (setq --cl-var-- ...)) (nreverse --cl-var--)))))) 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(((name . "Projectile files") (candidates closure (helm-projectile-current-project-root helm-ag-base-command t) nil (if ... ...)) (keymap keymap (33554441) (backtab) (S-tab) (left . helm-previous-source) (right . helm-next-source) (127 closure ... nil ... ...) (S-f5 . helm-ff-toggle-files-only) (S-f4 . helm-ff-toggle-dirs-only) (S-f3 . helm-ff-sort-by-size) (S-f2 . helm-ff-sort-by-newest) (S-f1 . helm-ff-sort-alpha) (18) (31 . helm-ff-undo) (12) (67108911 . helm-ff-run-fd) (C-backspace . helm-ff-run-toggle-auto-update) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (27 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (19 . helm-ff-run-grep) (24 keymap ... ... ... ... ...) (29 . helm-ff-run-toggle-basename) (13 . spacemacs/helm-find-files-windows) ...) (action ("Find File" . helm-find-file-or-marked) ("Find file in Dired" . helm-point-file-in-dired) ("View file" . view-file) ("Query replace fnames on ma..." . helm-ff-query-replace-fnames-on-marked) ("Marked files in dired `C-x..." . helm-marked-files-in-dired) ("Query replace contents on ..." . helm-ff-query-replace) ("Query replace regexp conte..." . helm-ff-query-replace-regexp) ("Attach file(s) to mail buf..." . helm-ff-mail-attach-files) ("Serial rename files" . helm-ff-serial-rename) ("Serial rename by symlinkin..." . helm-ff-serial-rename-by-symlink) ("Serial rename by copying f..." . helm-ff-serial-rename-by-copying) ("Open file with default too..." . helm-open-file-with-default-tool) ("Find file in hex dump" . hexl-find-file) ("Insert as org link `C-c @'" . helm-files-insert-as-org-link) ("Fd shell command (C-/)" . helm-ff-fd) ("Open file externally `C-c ..." . helm-open-file-externally) ("Grep File(s) `C-s, C-u Rec..." . helm-find-files-grep) ("Grep current directory wit..." . helm-find-files-ag) ("Git grep `M-g g, C-u from ..." . helm-ff-git-grep) ("Zgrep File(s) `M-g z, C-u ..." . helm-ff-zgrep) ("Pdf Grep File(s)" . helm-ff-pdfgrep) ("Gid `M-g i'" . helm-ff-gid) ("Switch to Eshell `M-e'" . helm-projectile-switch-to-shell) ("Etags `M-., C-u reload tag..." . helm-projectile-ff-etags-select-action) ("Eshell command on file(s) ..." . helm-projectile-find-files-eshell-command-on-file-action) ...) (persistent-action . helm-projectile-file-persistent-action) (persistent-help . "Preview file") (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer (closure ... ... ...) helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (match helm-mm-exact-match helm-mm-match helm-fuzzy-match) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Preview file (keeping...") (multimatch . t) (before-init-hook closure (helm-projectile-current-project-root helm-ag-base-command t) nil (add-hook ... ...) (add-hook ... ...)) (group . helm)) (closure (helm-projectile-current-project-root helm-ag-base-command t) nil (if (projectile-project-p) (progn ...))))
  (cond ((and source (functionp value) (not (eq compute 'ignorefn))) (helm-apply-functions-from-source source value)) ((and (functionp value) (not (eq compute 'ignorefn))) (funcall value)) ((and (symbolp value) (boundp value)) (symbol-value value)) ((and (symbolp value) (not (functionp value))) (error "helm-interpret-value: Symbol must be a function or...")) (t value))
  helm-interpret-value((closure (helm-projectile-current-project-root helm-ag-base-command t) nil (if (projectile-project-p) (progn ...))) ((name . "Projectile files") (candidates closure (helm-projectile-current-project-root helm-ag-base-command t) nil (if ... ...)) (keymap keymap (33554441) (backtab) (S-tab) (left . helm-previous-source) (right . helm-next-source) (127 closure ... nil ... ...) (S-f5 . helm-ff-toggle-files-only) (S-f4 . helm-ff-toggle-dirs-only) (S-f3 . helm-ff-sort-by-size) (S-f2 . helm-ff-sort-by-newest) (S-f1 . helm-ff-sort-alpha) (18) (31 . helm-ff-undo) (12) (67108911 . helm-ff-run-fd) (C-backspace . helm-ff-run-toggle-auto-update) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (27 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (19 . helm-ff-run-grep) (24 keymap ... ... ... ... ...) (29 . helm-ff-run-toggle-basename) (13 . spacemacs/helm-find-files-windows) ...) (action ("Find File" . helm-find-file-or-marked) ("Find file in Dired" . helm-point-file-in-dired) ("View file" . view-file) ("Query replace fnames on ma..." . helm-ff-query-replace-fnames-on-marked) ("Marked files in dired `C-x..." . helm-marked-files-in-dired) ("Query replace contents on ..." . helm-ff-query-replace) ("Query replace regexp conte..." . helm-ff-query-replace-regexp) ("Attach file(s) to mail buf..." . helm-ff-mail-attach-files) ("Serial rename files" . helm-ff-serial-rename) ("Serial rename by symlinkin..." . helm-ff-serial-rename-by-symlink) ("Serial rename by copying f..." . helm-ff-serial-rename-by-copying) ("Open file with default too..." . helm-open-file-with-default-tool) ("Find file in hex dump" . hexl-find-file) ("Insert as org link `C-c @'" . helm-files-insert-as-org-link) ("Fd shell command (C-/)" . helm-ff-fd) ("Open file externally `C-c ..." . helm-open-file-externally) ("Grep File(s) `C-s, C-u Rec..." . helm-find-files-grep) ("Grep current directory wit..." . helm-find-files-ag) ("Git grep `M-g g, C-u from ..." . helm-ff-git-grep) ("Zgrep File(s) `M-g z, C-u ..." . helm-ff-zgrep) ("Pdf Grep File(s)" . helm-ff-pdfgrep) ("Gid `M-g i'" . helm-ff-gid) ("Switch to Eshell `M-e'" . helm-projectile-switch-to-shell) ("Etags `M-., C-u reload tag..." . helm-projectile-ff-etags-select-action) ("Eshell command on file(s) ..." . helm-projectile-find-files-eshell-command-on-file-action) ...) (persistent-action . helm-projectile-file-persistent-action) (persistent-help . "Preview file") (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer (closure ... ... ...) helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (match helm-mm-exact-match helm-mm-match helm-fuzzy-match) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Preview file (keeping...") (multimatch . t) (before-init-hook closure (helm-projectile-current-project-root helm-ag-base-command t) nil (add-hook ... ...) (add-hook ... ...)) (group . helm)))
  (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)) ((debug error) (helm-log "Error: %S" (setq cfn-error err)) nil))
  (let* ((candidate-fn (assoc-default 'candidates source)) (candidate-proc (assoc-default 'candidates-process source)) (inhibit-quit candidate-proc) cfn-error (notify-error #'(lambda (&optional e) (error "In `%s' source: `%s' %s %s" (assoc-default 'name source) (or candidate-fn candidate-proc) (if e "\n" "must be a list, a symbol bound to a list, or a fun...") (if e (prin1-to-string e) "")))) (candidates (condition-case err (if candidate-proc (helm-interpret-value candidate-proc) (helm-interpret-value candidate-fn source)) ((debug error) (helm-log "Error: %S" (setq cfn-error err)) nil)))) (cond ((and (processp candidates) (not candidate-proc)) (warn "Candidates function `%s' should be called in a `ca..." candidate-fn)) ((and candidate-proc (not (processp candidates))) (error "Candidates function `%s' should run a process" candidate-proc))) (cond ((processp candidates) candidates) (cfn-error (if helm--ignore-errors nil (funcall notify-error cfn-error))) ((or (null candidates) (equal candidates '(""))) nil) ((listp candidates) (helm-transform-candidates candidates source)) (t (funcall notify-error))))
  helm-get-candidates(((name . "Projectile files") (candidates closure (helm-projectile-current-project-root helm-ag-base-command t) nil (if ... ...)) (keymap keymap (33554441) (backtab) (S-tab) (left . helm-previous-source) (right . helm-next-source) (127 closure ... nil ... ...) (S-f5 . helm-ff-toggle-files-only) (S-f4 . helm-ff-toggle-dirs-only) (S-f3 . helm-ff-sort-by-size) (S-f2 . helm-ff-sort-by-newest) (S-f1 . helm-ff-sort-alpha) (18) (31 . helm-ff-undo) (12) (67108911 . helm-ff-run-fd) (C-backspace . helm-ff-run-toggle-auto-update) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (27 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (19 . helm-ff-run-grep) (24 keymap ... ... ... ... ...) (29 . helm-ff-run-toggle-basename) (13 . spacemacs/helm-find-files-windows) ...) (action ("Find File" . helm-find-file-or-marked) ("Find file in Dired" . helm-point-file-in-dired) ("View file" . view-file) ("Query replace fnames on ma..." . helm-ff-query-replace-fnames-on-marked) ("Marked files in dired `C-x..." . helm-marked-files-in-dired) ("Query replace contents on ..." . helm-ff-query-replace) ("Query replace regexp conte..." . helm-ff-query-replace-regexp) ("Attach file(s) to mail buf..." . helm-ff-mail-attach-files) ("Serial rename files" . helm-ff-serial-rename) ("Serial rename by symlinkin..." . helm-ff-serial-rename-by-symlink) ("Serial rename by copying f..." . helm-ff-serial-rename-by-copying) ("Open file with default too..." . helm-open-file-with-default-tool) ("Find file in hex dump" . hexl-find-file) ("Insert as org link `C-c @'" . helm-files-insert-as-org-link) ("Fd shell command (C-/)" . helm-ff-fd) ("Open file externally `C-c ..." . helm-open-file-externally) ("Grep File(s) `C-s, C-u Rec..." . helm-find-files-grep) ("Grep current directory wit..." . helm-find-files-ag) ("Git grep `M-g g, C-u from ..." . helm-ff-git-grep) ("Zgrep File(s) `M-g z, C-u ..." . helm-ff-zgrep) ("Pdf Grep File(s)" . helm-ff-pdfgrep) ("Gid `M-g i'" . helm-ff-gid) ("Switch to Eshell `M-e'" . helm-projectile-switch-to-shell) ("Etags `M-., C-u reload tag..." . helm-projectile-ff-etags-select-action) ("Eshell command on file(s) ..." . helm-projectile-find-files-eshell-command-on-file-action) ...) (persistent-action . helm-projectile-file-persistent-action) (persistent-help . "Preview file") (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer (closure ... ... ...) helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (match helm-mm-exact-match helm-mm-match helm-fuzzy-match) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Preview file (keeping...") (multimatch . t) (before-init-hook closure (helm-projectile-current-project-root helm-ag-base-command t) nil (add-hook ... ...) (add-hook ... ...)) (group . helm)))
  (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 "Use cached candidates")) (helm-log "No cached candidates, calculate candidates") (let ((candidates (helm-get-candidates source))) (cond ((processp candidates) (setq helm-async-processes (cons (cons candidates (append source ...)) helm-async-processes)) (set-process-filter candidates 'helm-output-filter) (setq candidates nil)) ((not (assq 'volatile source)) (puthash name candidates helm-candidate-cache))) candidates))
  (let ((it candidate-cache)) (if it (prog1 it (helm-log "Use cached candidates")) (helm-log "No cached candidates, calculate candidates") (let ((candidates (helm-get-candidates source))) (cond ((processp candidates) (setq helm-async-processes (cons (cons candidates ...) helm-async-processes)) (set-process-filter candidates 'helm-output-filter) (setq candidates nil)) ((not (assq 'volatile source)) (puthash name candidates helm-candidate-cache))) candidates)))
  (let* ((name (assoc-default 'name source)) (candidate-cache (gethash name helm-candidate-cache)) (inhibit-quit (assoc-default 'candidates-process source))) (let ((it candidate-cache)) (if it (prog1 it (helm-log "Use cached candidates")) (helm-log "No cached candidates, calculate candidates") (let ((candidates (helm-get-candidates source))) (cond ((processp candidates) (setq helm-async-processes (cons ... helm-async-processes)) (set-process-filter candidates 'helm-output-filter) (setq candidates nil)) ((not (assq ... source)) (puthash name candidates helm-candidate-cache))) candidates))))
  helm-get-cached-candidates(((name . "Projectile files") (candidates closure (helm-projectile-current-project-root helm-ag-base-command t) nil (if ... ...)) (keymap keymap (33554441) (backtab) (S-tab) (left . helm-previous-source) (right . helm-next-source) (127 closure ... nil ... ...) (S-f5 . helm-ff-toggle-files-only) (S-f4 . helm-ff-toggle-dirs-only) (S-f3 . helm-ff-sort-by-size) (S-f2 . helm-ff-sort-by-newest) (S-f1 . helm-ff-sort-alpha) (18) (31 . helm-ff-undo) (12) (67108911 . helm-ff-run-fd) (C-backspace . helm-ff-run-toggle-auto-update) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (27 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (19 . helm-ff-run-grep) (24 keymap ... ... ... ... ...) (29 . helm-ff-run-toggle-basename) (13 . spacemacs/helm-find-files-windows) ...) (action ("Find File" . helm-find-file-or-marked) ("Find file in Dired" . helm-point-file-in-dired) ("View file" . view-file) ("Query replace fnames on ma..." . helm-ff-query-replace-fnames-on-marked) ("Marked files in dired `C-x..." . helm-marked-files-in-dired) ("Query replace contents on ..." . helm-ff-query-replace) ("Query replace regexp conte..." . helm-ff-query-replace-regexp) ("Attach file(s) to mail buf..." . helm-ff-mail-attach-files) ("Serial rename files" . helm-ff-serial-rename) ("Serial rename by symlinkin..." . helm-ff-serial-rename-by-symlink) ("Serial rename by copying f..." . helm-ff-serial-rename-by-copying) ("Open file with default too..." . helm-open-file-with-default-tool) ("Find file in hex dump" . hexl-find-file) ("Insert as org link `C-c @'" . helm-files-insert-as-org-link) ("Fd shell command (C-/)" . helm-ff-fd) ("Open file externally `C-c ..." . helm-open-file-externally) ("Grep File(s) `C-s, C-u Rec..." . helm-find-files-grep) ("Grep current directory wit..." . helm-find-files-ag) ("Git grep `M-g g, C-u from ..." . helm-ff-git-grep) ("Zgrep File(s) `M-g z, C-u ..." . helm-ff-zgrep) ("Pdf Grep File(s)" . helm-ff-pdfgrep) ("Gid `M-g i'" . helm-ff-gid) ("Switch to Eshell `M-e'" . helm-projectile-switch-to-shell) ("Etags `M-., C-u reload tag..." . helm-projectile-ff-etags-select-action) ("Eshell command on file(s) ..." . helm-projectile-find-files-eshell-command-on-file-action) ...) (persistent-action . helm-projectile-file-persistent-action) (persistent-help . "Preview file") (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer (closure ... ... ...) helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (match helm-mm-exact-match helm-mm-match helm-fuzzy-match) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Preview file (keeping...") (multimatch . t) (before-init-hook closure (helm-projectile-current-project-root helm-ag-base-command t) nil (add-hook ... ...) (add-hook ... ...)) (group . helm)))
  (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))) (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))
  (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(((name . "Projectile files") (candidates closure (helm-projectile-current-project-root helm-ag-base-command t) nil (if ... ...)) (keymap keymap (33554441) (backtab) (S-tab) (left . helm-previous-source) (right . helm-next-source) (127 closure ... nil ... ...) (S-f5 . helm-ff-toggle-files-only) (S-f4 . helm-ff-toggle-dirs-only) (S-f3 . helm-ff-sort-by-size) (S-f2 . helm-ff-sort-by-newest) (S-f1 . helm-ff-sort-alpha) (18) (31 . helm-ff-undo) (12) (67108911 . helm-ff-run-fd) (C-backspace . helm-ff-run-toggle-auto-update) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (27 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (19 . helm-ff-run-grep) (24 keymap ... ... ... ... ...) (29 . helm-ff-run-toggle-basename) (13 . spacemacs/helm-find-files-windows) ...) (action ("Find File" . helm-find-file-or-marked) ("Find file in Dired" . helm-point-file-in-dired) ("View file" . view-file) ("Query replace fnames on ma..." . helm-ff-query-replace-fnames-on-marked) ("Marked files in dired `C-x..." . helm-marked-files-in-dired) ("Query replace contents on ..." . helm-ff-query-replace) ("Query replace regexp conte..." . helm-ff-query-replace-regexp) ("Attach file(s) to mail buf..." . helm-ff-mail-attach-files) ("Serial rename files" . helm-ff-serial-rename) ("Serial rename by symlinkin..." . helm-ff-serial-rename-by-symlink) ("Serial rename by copying f..." . helm-ff-serial-rename-by-copying) ("Open file with default too..." . helm-open-file-with-default-tool) ("Find file in hex dump" . hexl-find-file) ("Insert as org link `C-c @'" . helm-files-insert-as-org-link) ("Fd shell command (C-/)" . helm-ff-fd) ("Open file externally `C-c ..." . helm-open-file-externally) ("Grep File(s) `C-s, C-u Rec..." . helm-find-files-grep) ("Grep current directory wit..." . helm-find-files-ag) ("Git grep `M-g g, C-u from ..." . helm-ff-git-grep) ("Zgrep File(s) `M-g z, C-u ..." . helm-ff-zgrep) ("Pdf Grep File(s)" . helm-ff-pdfgrep) ("Gid `M-g i'" . helm-ff-gid) ("Switch to Eshell `M-e'" . helm-projectile-switch-to-shell) ("Etags `M-., C-u reload tag..." . helm-projectile-ff-etags-select-action) ("Eshell command on file(s) ..." . helm-projectile-find-files-eshell-command-on-file-action) ...) (persistent-action . helm-projectile-file-persistent-action) (persistent-help . "Preview file") (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer (closure ... ... ...) helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (match helm-mm-exact-match helm-mm-match helm-fuzzy-match) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Preview file (keeping...") (multimatch . t) (before-init-hook closure (helm-projectile-current-project-root helm-ag-base-command t) nil (add-hook ... ...) (add-hook ... ...)) (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--))
  (let ((throw-on-input catch-sym)) (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 ((catch-sym (make-symbol "input"))) (let ((throw-on-input catch-sym)) (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 ((matches (let ((catch-sym (make-symbol "input"))) (let ((throw-on-input catch-sym)) (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 (eq matches t) nil matches))
  sl-helm--collect-matches((closure (helm-major-mode-abbrev-table helm-major-mode-syntax-table helm-autoresize-mode helm-marked-buffer-name t) (src-list) "Return a list of matches f..." (let (...) (if ... nil matches))) (((name . "Projectile files in curren...") (init ...) (candidates . helm-candidates-in-buffer) (keymap keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (action ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (filter-one-by-one closure ... ... ...) (action-transformer . helm-find-files-action-transformer) (volatile . t) (match identity) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Find File (keeping se...") (multimatch . t) (group . helm) (data closure ... nil ...) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search-default-fn helm-fuzzy-search)) ((name . "Projectile files") (candidates closure ... nil ...) (keymap keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (action ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (persistent-action . helm-projectile-file-persistent-action) (persistent-help . "Preview file") (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer ... helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (match helm-mm-exact-match helm-mm-match helm-fuzzy-match) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Preview file (keeping...") (multimatch . t) (before-init-hook closure ... nil ... ...) (group . helm))))
  apply(sl-helm--collect-matches (closure (helm-major-mode-abbrev-table helm-major-mode-syntax-table helm-autoresize-mode helm-marked-buffer-name t) (src-list) "Return a list of matches f..." (let (...) (if ... nil matches))) (((name . "Projectile files in curren...") (init ...) (candidates . helm-candidates-in-buffer) (keymap keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (action ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (filter-one-by-one closure ... ... ...) (action-transformer . helm-find-files-action-transformer) (volatile . t) (match identity) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Find File (keeping se...") (multimatch . t) (group . helm) (data closure ... nil ...) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search-default-fn helm-fuzzy-search)) ((name . "Projectile files") (candidates closure ... nil ...) (keymap keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (action ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (persistent-action . helm-projectile-file-persistent-action) (persistent-help . "Preview file") (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer ... helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (match helm-mm-exact-match helm-mm-match helm-fuzzy-match) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Preview file (keeping...") (multimatch . t) (before-init-hook closure ... nil ... ...) (group . helm))))
  helm--collect-matches((((name . "Projectile files in curren...") (init ...) (candidates . helm-candidates-in-buffer) (keymap keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (action ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (filter-one-by-one closure ... ... ...) (action-transformer . helm-find-files-action-transformer) (volatile . t) (match identity) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Find File (keeping se...") (multimatch . t) (group . helm) (data closure ... nil ...) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search helm-candidates-in-buffer-search-default-fn helm-fuzzy-search)) ((name . "Projectile files") (candidates closure ... nil ...) (keymap keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (action ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (persistent-action . helm-projectile-file-persistent-action) (persistent-help . "Preview file") (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer ... helm-flx-fuzzy-matching-sort helm-fuzzy-highlight-matches) (match helm-mm-exact-match helm-mm-match helm-fuzzy-match) (fuzzy-match . t) (redisplay . identity) (mode-line . "\\<helm-read-file-map>\\[hel...") (header-line . "C-j: Preview file (keeping...") (multimatch . t) (before-init-hook closure ... nil ... ...) (group . helm))))
  (or candidates (helm--collect-matches sources))
  (setq matches (or candidates (helm--collect-matches sources)))
  (helm-log "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 "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 "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-after-update-hook))) (if preselect (progn (helm-log "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 "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-after-update-hook))) (if preselect (progn (helm-log "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 "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)) (if (and (helm-resume-p resume) (helm-get-current-source)) (helm-mark-current-line t) (helm-update preselect)) (let* ((src (helm-get-current-source)) (src-keymap (assoc-default 'keymap src)) (hist (or (and history (symbolp history) history) (assoc-default 'history src))) (timer nil) blink-matching-paren (resize-mini-windows (and (null helm-echo-input-in-header-line) resize-mini-windows)) (first-src (car helm-sources)) (source-process-p (or (assq 'candidates-process src) (assq 'candidates-process first-src)))) (helm-log "helm-get-candidate-number => %S" (helm-get-candidate-number)) (helm-log "helm-execute-action-at-once-if-one = %S" helm-execute-action-at-once-if-one) (helm-log "helm-quit-if-no-candidate = %S" helm-quit-if-no-candidate) (if (and src (helm-resume-p resume)) (progn (helm-display-mode-line src))) (if helm-maybe-use-default-as-input (progn (setq helm-input helm-pattern) (if source-process-p (progn (defalias 'helm--hook6 #'...) (setq helm--temp-hooks (cons ... helm--temp-hooks)) (add-hook 'helm-after-update-hook 'helm--hook6)) (helm--reset-default-pattern)) (and (helm-empty-buffer-p) (null helm-quit-if-no-candidate) (helm-force-update preselect)))) (cond ((and (if (functionp helm-execute-action-at-once-if-one) (funcall helm-execute-action-at-once-if-one) helm-execute-action-at-once-if-one) (= (helm-get-candidate-number (eq helm-execute-action-at-once-if-one ...)) 1)) (ignore)) ((and helm-quit-if-no-candidate (= (helm-get-candidate-number) 0)) (setq helm-quit t) (and (functionp helm-quit-if-no-candidate) (funcall helm-quit-if-no-candidate))) (t (let ((tap (or default ...))) (if helm-execute-action-at-once-if-one (progn (helm-display-buffer helm-buffer resume) (select-window ...))) (unwind-protect (let (... setup-hook) (setq setup-hook ...) (unwind-protect ... ...)) (if timer (progn ... ...))))))))
  helm-read-from-minibuffer("[emacs27.git] Find file: " nil nil nil nil nil nil)
  (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) (if helm-execute-action-at-once-if-one nil (helm-display-buffer helm-buffer resume) (select-window (helm-window))) (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 "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 (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) (if helm-execute-action-at-once-if-one nil (helm-display-buffer helm-buffer resume) (select-window (helm-window))) (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 "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 (concat "[End session] " (make-string 41 45))))) ((debug quit) (helm-restore-position-on-quit) (helm-log-run-hook 'helm-quit-hook) (helm-log (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) (if helm-execute-action-at-once-if-one nil (helm-display-buffer helm-buffer resume) (select-window (helm-window))) (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 "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 (concat "[End session] " (make-string 41 45))))) ((debug quit) (helm-restore-position-on-quit) (helm-log-run-hook 'helm-quit-hook) (helm-log (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-alive-p = %S" (setq helm-alive-p nil)) (helm--remap-mouse-mode -1) (setq helm-alive-p nil) (setq helm--force-updating-p nil) (setq helm--buffer-in-new-frame-p nil) (setq helm-pattern "") (setq helm--ignore-errors nil) (helm-log-save-maybe))
  (let ((non-essential t) mouse-autoselect-window focus-follows-mouse mode-line-in-non-selected-windows minibuffer-completion-confirm (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) (if helm-execute-action-at-once-if-one nil (helm-display-buffer helm-buffer resume) (select-window (helm-window))) (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 "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 (concat "[End session] " (make-string 41 45))))) ((debug quit) (helm-restore-position-on-quit) (helm-log-run-hook 'helm-quit-hook) (helm-log (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-alive-p = %S" (setq helm-alive-p nil)) (helm--remap-mouse-mode -1) (setq helm-alive-p nil) (setq helm--force-updating-p nil) (setq helm--buffer-in-new-frame-p nil) (setq helm-pattern "") (setq helm--ignore-errors nil) (helm-log-save-maybe)))
  helm-internal((helm-source-projectile-dired-files-list helm-source-projectile-files-list) nil "[emacs27.git] Find file: " nil nil "*helm projectile: emacs27.git*" nil nil nil)
  apply(helm-internal ((helm-source-projectile-dired-files-list helm-source-projectile-files-list) nil "[emacs27.git] Find file: " nil nil "*helm projectile: emacs27.git*" nil nil nil))
  (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((helm-source-projectile-dired-files-list helm-source-projectile-files-list) nil "[emacs27.git] Find file: " nil nil "*helm projectile: emacs27.git*" nil nil nil)
  apply(helm ((helm-source-projectile-dired-files-list helm-source-projectile-files-list) nil "[emacs27.git] Find file: " nil nil "*helm projectile: emacs27.git*" nil nil nil))
  (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 (helm-source-projectile-dired-files-list helm-source-projectile-files-list) :buffer "*helm projectile: emacs27.git*" :truncate-lines nil :prompt "[emacs27.git] Find file: ")
  (let ((helm-ff-transformer-show-only-basename nil) (helm-boring-file-regexp-list nil)) (helm :sources helm-source-projectile-files-and-dired-list :buffer (concat "*helm projectile: " (projectile-project-name) "*") :truncate-lines helm-projectile-truncate-lines :prompt (projectile-prepend-project-name "Find file: ")))
  helm-projectile-find-file(nil)
  funcall-interactively(helm-projectile-find-file nil)
  call-interactively(helm-projectile-find-file nil nil)
  command-execute(helm-projectile-find-file)

^ permalink raw reply	[flat|nested] 15+ messages in thread

end of thread, other threads:[~2021-03-18 11:45 UTC | newest]

Thread overview: 15+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2021-03-17  3:36 bug#47205: 27.1.91; [bug] unexpected input event interrupted expand-file LinSun via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-03-17 11:51 ` Michael Albinus
2021-03-17 15:45 ` bug#47205: " Lin Sun via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-03-17 17:41   ` Michael Albinus
2021-03-18  0:27     ` LinSun via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-03-18  3:42       ` LinSun via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-03-18  4:31         ` LinSun via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-03-18  8:21       ` Eli Zaretskii
2021-03-18 10:02         ` LinSun via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-03-18 10:13           ` Michael Albinus
2021-03-18 10:21             ` LinSun via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-03-18 10:07         ` Michael Albinus
2021-03-18 10:18           ` LinSun via Bug reports for GNU Emacs, the Swiss army knife of text editors
2021-03-18 10:21           ` Eli Zaretskii
2021-03-18 11:45             ` Michael Albinus

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.