helm-find-files: cl-ecase failed

Created on 23 Jun 2020 · 12Comments · Source: emacs-helm/helm

Expected behavior

I am able to use helm-find-files to visit a local file.

Actual behavior (from `emacs-helm.sh` if possible, see note at the bottom)

Instead of the buffer for the selected file, I get the error reported below.

Steps to reproduce (recipe)

From emacs-helm.sh:

C-x C-f
move to a local file not in the Helm source directory (e.g., I picked a file in one of my Clojure projects)
hit RET

Backtraces if any (`M-x toggle-debug-on-error`)

Debugger entered--Lisp error: (error "cl-ecase failed: nil, (t all local remote)")
  signal(error ("cl-ecase failed: nil, (t all local remote)"))
  error("cl-ecase failed: %s, %s" nil (t all local remote))
  helm-ff--cleanup-cache()
  helm-find-files-cleanup()
  apply(helm-find-files-cleanup nil)
  helm-apply-functions-from-source(((name . "Find Files") (resume lambda nil (helm-ff-setup-update-hook) (setq helm-ff-default-directory "/home/manuel/7bridges/skuro/cockpit/sr..." helm-ff-last-expanded nil)) (header-name lambda (name) (concat name (substitute-command-keys helm-find-files-doc-header))) (init lambda nil (setq helm-ff-auto-update-flag helm-ff-auto-update-initial-value) (setq helm-ff--auto-update-state helm-ff-auto-update-flag) (helm-set-local-variable 'bookmark-make-record-function #'helm-ff-make-bookmark-record) (require 'helm-external)) (candidates . helm-find-files-get-candidates) (update lambda nil (remhash helm-ff-default-directory helm-ff--list-directory-cache)) (cleanup . helm-find-files-cleanup) (keymap keymap (left . helm-find-files-up-one-level) (right . helm-execute-persistent-action) (127 . #f(compiled-function () (interactive nil) #<bytecode 0x1567c178d3c50439>)) (S-f3 . helm-ff-sort-by-size) (S-f2 . helm-ff-sort-by-newest) (S-f1 . helm-ff-sort-alpha) (18 . helm-find-files-down-last-level) (31 . helm-ff-undo) (12 . helm-find-files-up-one-level) (C-backspace . helm-ff-run-toggle-auto-update) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (3 keymap (20 . helm-ff-find-file-other-tab) (64 . helm-ff-run-insert-org-link) (114 . helm-ff-run-find-file-as-root) (47 . helm-ff-run-find-sh-command) (112 . helm-ff-run-print-file) (1 . helm-ff-run-mail-attach-files) (127 . helm-ff-run-toggle-auto-update) (104 . helm-ff-file-name-history) (61 . helm-ff-run-ediff-file) (88 . helm-ff-run-open-file-with-default-tool) (22 . helm-ff-run-preview-file-externally) (24 . helm-ff-run-open-file-externally) (15 . helm-ff-run-switch-other-frame) (111 . helm-ff-run-switch-other-window) (105 . helm-ff-run-complete-fn-at-point) (100 . helm-ff-persistent-delete)) (27 keymap (114 . helm-ff-rotate-right-persistent) (108 . helm-ff-rotate-left-persistent) (105 . helm-ff-properties-persistent) (112 . helm-find-files-history) (61 . helm-ff-run-ediff-merge-file) (67108901 . helm-ff-run-query-replace-regexp) (37 . helm-ff-run-query-replace) (64 . helm-ff-run-query-replace-fnames-on-marked) (33 . helm-ff-run-eshell-command-on-file) (101 . helm-ff-run-switch-to-shell) (84 . helm-ff-run-touch-files) (75 . helm-ff-run-kill-buffer-persistent) (68 . helm-ff-run-delete-file) (72 . helm-ff-run-hardlink-file) (89 . helm-ff-run-relsymlink-file) (83 . helm-ff-run-symlink-file) (76 . helm-ff-run-load-file) (66 . helm-ff-run-byte-compile-file) (86 . helm-ff-run-rsync-file) (67 . helm-ff-run-copy-file) (82 . helm-ff-run-rename-file) (46 . helm-ff-run-etags) (103 keymap (105 . helm-ff-run-gid) (103 . helm-ff-run-git-grep) (97 . helm-ff-run-grep-ag) (122 . helm-ff-run-zgrep) (112 . helm-ff-run-pdfgrep) (115 . helm-ff-run-grep))) (19 . helm-ff-run-grep) (24 keymap (22 . helm-ff-run-find-alternate-file) (17 . helm-ff-run-marked-files-in-dired) (114 keymap (98 . helm-find-files-switch-to-bookmark) (109 . helm-ff-bookmark-set)) (4 . helm-ff-run-browse-project) (6 . helm-ff-run-locate)) (29 . helm-ff-run-toggle-basename) (13 . helm-ff-RET) keymap (f13 lambda nil (interactive) (helm-select-nth-action 12)) (f12 lambda nil (interactive) (helm-select-nth-action 11)) (f11 lambda nil (interactive) (helm-select-nth-action 10)) (f10 lambda nil (interactive) (helm-select-nth-action 9)) (f9 lambda nil (interactive) (helm-select-nth-action 8)) (f8 lambda nil (interactive) (helm-select-nth-action 7)) (f7 lambda nil (interactive) (helm-select-nth-action 6)) (f6 lambda nil (interactive) (helm-select-nth-action 5)) (f5 lambda nil (interactive) (helm-select-nth-action 4)) (f4 lambda nil (interactive) (helm-select-nth-action 3)) (f3 lambda nil (interactive) (helm-select-nth-action 2)) (f2 lambda nil (interactive) (helm-select-nth-action 1)) (menu-bar keymap (help-menu keymap (describe keymap ...))) (help keymap (109 . helm-help)) (23 . #f(compiled-function () (interactive nil) #<bytecode 0x156424b4653f0439>)) (f1 lambda nil (interactive) (helm-select-nth-action 0)) (8 keymap (109 . helm-help) (104 . undefined) (8 . undefined) (99 . helm-customize-group) (4 . helm-enable-or-switch-to-debug)) ...) (action . helm-find-files-actions) (persistent-action-if . helm-find-files-persistent-action-if) (persistent-help . "Hit1 Expand Candidate, Hit2 or (C-u) F...") (help-message . helm-ff-help-message) (requires-pattern . 0) (filtered-candidate-transformer helm-ff-fct helm-ff-sort-candidates) (action-transformer . helm-find-files-action-transformer) (candidate-number-limit . 5000) (volatile . t) (match helm-mm-exact-match helm-mm-match helm-mm-3-migemo-match) (match-on-real . t) (redisplay . identity) (nohighlight . t) (mode-line "File(s)" "\\<helm-map>\\[helm-help]:Help \\[helm-se...") (header-line . "C-j: Hit1 Expand Candidate, Hit2 or (C...") (multimatch . t) (before-init-hook . helm-find-files-before-init-hook) (after-init-hook . helm-find-files-after-init-hook) (group . helm-files) (migemo . t)) helm-find-files-cleanup)
  helm-compute-attr-in-sources(cleanup)
  helm-cleanup()
  #f(compiled-function () #<bytecode 0x1e000639cbf5>)()
  helm-internal(helm-source-find-files "/home/manuel/code/helm/" "Find files or url: " nil nil "*helm find files*" nil nil nil)
  apply(helm-internal (helm-source-find-files "/home/manuel/code/helm/" "Find files or url: " nil nil "*helm find files*" nil nil nil))
  helm(helm-source-find-files "/home/manuel/code/helm/" "Find files or url: " nil nil "*helm find files*" nil nil nil)
  apply(helm (helm-source-find-files "/home/manuel/code/helm/" "Find files or url: " nil nil "*helm find files*" nil nil nil))
  helm(:sources helm-source-find-files :input "/home/manuel/code/helm/" :case-fold-search smart :preselect nil :ff-transformer-show-only-basename t :default nil :prompt "Find files or url: " :buffer "*helm find files*")
  helm-find-files-1("/home/manuel/code/helm/" nil)
  helm-find-files(nil)
  funcall-interactively(helm-find-files nil)
  call-interactively(helm-find-files nil nil)
  command-execute(helm-find-files)

Describe versions of Helm, Emacs, operating system, etc.

I am running Helm from Git (commit: a7536cf) on GNU Emacs 28.0.50.

Master branch commit:
30ff2433b16dba2c4e36c6eda6f808c6f2cb46d1
Minor improvements as followup to recent RGB string-parsing change

Configured with the following options:
--host=x86_64-debian-linux-gnu
--with-modules
--with-imagemagick
--with-harfbuzz

Running on:
Ubuntu 20.04 LTS
GNOME Shell 3.36.1 (x11)
GTK+ Version 3.24.18, cairo version 1.16.0

Are you using `emacs-helm.sh` to reproduce this bug? (yes/no):

Yes

Are you using Spacemacs? (yes/no):

Source

manuel-uberti

Most helpful comment

The error comes from line 4306 in helm-files.el. The key nil should be (nil).

jathd on 23 Jun 2020

👍2

All 12 comments

For the record, I encountered this while trying to reproduce in emacs-helm.sh the following error I am having with helm-occur-visible-buffers:

Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
  insert(nil)
  (let ((start (point))) (insert name) (put-text-property (point-at-bol) (point-at-eol) 'helm-header t) (if display-string (progn (overlay-put (make-overlay (point-at-bol) (point-at-eol)) 'display display-string))) (insert "\n") (add-text-properties start (point) '(face helm-source-header display-line-numbers-disable t)))
  helm-insert-header(nil "Search in views.cljs")
  (let ((name (assoc-default 'name source))) (helm-insert-header name (let ((it (assoc-default 'header-name source))) (if it (helm-apply-functions-from-source source it name)))))
  helm-insert-header-from-source(((header-name closure ((--cl-var-- ...) (buf . #<buffer views.cljs>) (--cl-var--) (source-name) (buffers #<buffer case_details.cljs> #<buffer views.cljs>) t) (_name) (format "Search in %s" (buffer-name buf))) (init lambda nil (with-current-buffer #<buffer case_details.cljs> (let* ... ... ...))) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap (19 . helm-occur-run-save-buffer)) (3 keymap (15 . helm-occur-run-save-buffer) (111 . helm-occur-run-goto-line-ow)) keymap (tab . helm-execute-persistent-action) (f13 lambda nil (interactive) (helm-select-nth-action 12)) (f12 lambda nil (interactive) (helm-select-nth-action 11)) (f11 lambda nil (interactive) (helm-select-nth-action 10)) (f10 lambda nil (interactive) (helm-select-nth-action 9)) (f9 lambda nil (interactive) (helm-select-nth-action 8)) (f8 lambda nil (interactive) (helm-select-nth-action 7)) (f7 lambda nil (interactive) (helm-select-nth-action 6)) (f6 lambda nil (interactive) (helm-select-nth-action 5)) (f5 lambda nil (interactive) (helm-select-nth-action 4)) (f4 lambda nil (interactive) (helm-select-nth-action 3)) (f3 lambda nil (interactive) (helm-select-nth-action 2)) (f2 lambda nil (interactive) (helm-select-nth-action 1)) (menu-bar keymap (help-menu keymap ...)) (help keymap (109 . helm-help)) (23 closure (... ... ... ... ... ... ... t) nil (interactive) (unwind-protect ... ...)) (f1 lambda nil (interactive) (helm-select-nth-action 0)) (8 keymap (109 . helm-help) (104 . undefined) (8 . undefined) (99 . helm-customize-group) (4 . helm-enable-or-switch-to-debug)) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap (57 . helm-execute-selection-action-at-nth-+9) (56 . helm-execute-selection-action-at-nth-+8) (55 . helm-execute-selection-action-at-nth-+7) (54 . helm-execute-selection-action-at-nth-+6) (53 . helm-execute-selection-action-at-nth-+5) (52 . helm-execute-selection-action-at-nth-+4) (51 . helm-execute-selection-action-at-nth-+3) (50 . helm-execute-selection-action-at-nth-+2) (49 . helm-execute-selection-action-at-nth-+1) (63 . helm-help) (110 closure ... nil ... ...) (108 . helm-display-line-numbers-mode) (62 . helm-toggle-truncate-line) (21 . helm-refresh) (6 . helm-follow-mode) (9 . helm-copy-to-buffer) (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) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure ((--cl-var-- ...) (buf . #<buffer views.cljs>) (--cl-var--) (source-name) (buffers #<buffer case_details.cljs> #<buffer views.cljs>) t) (candidate) (if (string-match helm-occur--search-buffer-regexp candidate) (progn ...))) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure (... ... ... ... ... t) (pattern) (if ... ...) (condition-case _err ... ...)) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)))
  (progn (helm-insert-header-from-source source) (let* ((separate nil) (start (point)) (singleline (null (assq 'multiline source))) (--cl-var-- matches) (m nil) (count 1)) (while (consp --cl-var--) (setq m (car --cl-var--)) (if singleline (progn (helm-insert-match m 'insert count source)) (progn (if separate (helm-insert-candidate-separator) (setq separate t)) (helm-insert-match m 'insert count source))) (setq --cl-var-- (cdr --cl-var--)) (setq count (+ count 1))) (and (null singleline) (put-text-property start (point) 'helm-multiline t)) nil))
  (if matches (progn (helm-insert-header-from-source source) (let* ((separate nil) (start (point)) (singleline (null (assq 'multiline source))) (--cl-var-- matches) (m nil) (count 1)) (while (consp --cl-var--) (setq m (car --cl-var--)) (if singleline (progn (helm-insert-match m 'insert count source)) (progn (if separate (helm-insert-candidate-separator) (setq separate t)) (helm-insert-match m 'insert count source))) (setq --cl-var-- (cdr --cl-var--)) (setq count (+ count 1))) (and (null singleline) (put-text-property start (point) 'helm-multiline t)) nil)))
  helm-render-source(((header-name closure ((--cl-var-- ...) (buf . #<buffer views.cljs>) (--cl-var--) (source-name) (buffers #<buffer case_details.cljs> #<buffer views.cljs>) t) (_name) (format "Search in %s" (buffer-name buf))) (init lambda nil (with-current-buffer #<buffer case_details.cljs> (let* ... ... ...))) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap (19 . helm-occur-run-save-buffer)) (3 keymap (15 . helm-occur-run-save-buffer) (111 . helm-occur-run-goto-line-ow)) keymap (tab . helm-execute-persistent-action) (f13 lambda nil (interactive) (helm-select-nth-action 12)) (f12 lambda nil (interactive) (helm-select-nth-action 11)) (f11 lambda nil (interactive) (helm-select-nth-action 10)) (f10 lambda nil (interactive) (helm-select-nth-action 9)) (f9 lambda nil (interactive) (helm-select-nth-action 8)) (f8 lambda nil (interactive) (helm-select-nth-action 7)) (f7 lambda nil (interactive) (helm-select-nth-action 6)) (f6 lambda nil (interactive) (helm-select-nth-action 5)) (f5 lambda nil (interactive) (helm-select-nth-action 4)) (f4 lambda nil (interactive) (helm-select-nth-action 3)) (f3 lambda nil (interactive) (helm-select-nth-action 2)) (f2 lambda nil (interactive) (helm-select-nth-action 1)) (menu-bar keymap (help-menu keymap ...)) (help keymap (109 . helm-help)) (23 closure (... ... ... ... ... ... ... t) nil (interactive) (unwind-protect ... ...)) (f1 lambda nil (interactive) (helm-select-nth-action 0)) (8 keymap (109 . helm-help) (104 . undefined) (8 . undefined) (99 . helm-customize-group) (4 . helm-enable-or-switch-to-debug)) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap (57 . helm-execute-selection-action-at-nth-+9) (56 . helm-execute-selection-action-at-nth-+8) (55 . helm-execute-selection-action-at-nth-+7) (54 . helm-execute-selection-action-at-nth-+6) (53 . helm-execute-selection-action-at-nth-+5) (52 . helm-execute-selection-action-at-nth-+4) (51 . helm-execute-selection-action-at-nth-+3) (50 . helm-execute-selection-action-at-nth-+2) (49 . helm-execute-selection-action-at-nth-+1) (63 . helm-help) (110 closure ... nil ... ...) (108 . helm-display-line-numbers-mode) (62 . helm-toggle-truncate-line) (21 . helm-refresh) (6 . helm-follow-mode) (9 . helm-copy-to-buffer) (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) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure ((--cl-var-- ...) (buf . #<buffer views.cljs>) (--cl-var--) (source-name) (buffers #<buffer case_details.cljs> #<buffer views.cljs>) t) (candidate) (if (string-match helm-occur--search-buffer-regexp candidate) (progn ...))) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure (... ... ... ... ... t) (pattern) (if ... ...) (condition-case _err ... ...)) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((#("462:       (doall" 0 3 (match-part "       (doall" help-echo "/home/manuel/7bridges/skuro/cock..." face helm-grep-lineno) 4 12 (match-part "       (doall" read-only nil) 12 17 (match-part "       (doall" read-only nil face helm-match)) . 462) (#("472:                     (doall" 0 3 (match-part "                     (doall" help-echo "/home/manuel/7bridges/skuro/cock..." face helm-grep-lineno) 4 26 (match-part "                     (doall" read-only nil) 26 31 (match-part "                     (doall" read-only nil face helm-match)) . 472) (#("483:                            ..." 0 3 (match-part "                            (doa..." help-echo "/home/manuel/7bridges/skuro/cock..." face helm-grep-lineno) 4 33 (match-part "                            (doa..." read-only nil) 33 38 (match-part "                            (doa..." read-only nil face helm-match)) . 483) (#("632:      (doall" 0 3 (match-part "      (doall" help-echo "/home/manuel/7bridges/skuro/cock..." face helm-grep-lineno) 4 11 (match-part "      (doall" read-only nil) 11 16 (match-part "      (doall" read-only nil face helm-match)) . 632) (#("641:     (doall" 0 3 (match-part "     (doall" help-echo "/home/manuel/7bridges/skuro/cock..." face helm-grep-lineno) 4 10 (match-part "     (doall" read-only nil) 10 15 (match-part "     (doall" read-only nil face helm-match)) . 641)))
  (while (and (consp --cl-var--) (progn (setq src (car --cl-var--)) (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--)))
  (let* ((--cl-var-- sources) (src nil) (--cl-var-- matches) (mtc nil)) (while (and (consp --cl-var--) (progn (setq src (car --cl-var--)) (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)
  (progn (erase-buffer) (let* ((--cl-var-- sources) (src nil) (--cl-var-- matches) (mtc nil)) (while (and (consp --cl-var--) (progn (setq src (car --cl-var--)) (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))
  (if matches (progn (erase-buffer) (let* ((--cl-var-- sources) (src nil) (--cl-var-- matches) (mtc nil)) (while (and (consp --cl-var--) (progn (setq src (car --cl-var--)) (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)))
  (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--hook73 #'...) (setq helm--temp-hooks (cons ... helm--temp-hooks)) (add-hook 'helm-after-update-hook 'helm--hook73)) (helm--reset-default-pattern)) (and (helm-empty-buffer-p) (null helm-quit-if-no-candidate) (helm-force-update)))) (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-pattern-maybe(nil nil nil nil nil #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) helm-occur-history)
  (unwind-protect (helm-read-pattern-maybe 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-pattern-maybe 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-pattern-maybe 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-pattern-maybe 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-pattern-maybe 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((((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) nil nil nil nil "*helm moccur*" nil #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) helm-occur-history)
  apply(helm-internal ((((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) nil nil nil nil "*helm moccur*" nil #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) helm-occur-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))))
  (closure (helm-autoresize-mode t) (&rest plist) "Main function to execute helm sources.\n\nPLIST is a..." (let ((fn (cond ((or ... ...) #'helm--nest) ((keywordp ...) #'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 ...)) (apply fn (mapcar ... helm-argument-keys))) (apply fn plist)))))((((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) nil nil nil nil "*helm moccur*" nil #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) helm-occur-history)
  apply((closure (helm-autoresize-mode t) (&rest plist) "Main function to execute helm sources...." (let ((fn (cond ... ... ...))) (if (and helm-alive-p (eq fn ...)) (if (helm--alive-p) (error "Error: Trying to run helm within a run...") (save-current-buffer ... ...)) (if (keywordp ...) (progn ... ...) (apply fn plist))))) ((((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) nil nil nil nil "*helm moccur*" nil #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) helm-occur-history))
  #f(advice-wrapper :before (closure (helm-autoresize-mode t) (&rest plist) "Main function to execute helm sources.\n\nPLIST is a list like\n\n(:key1 val1 :key2 val2 ...)\n\n or\n\n(&optional sources input prompt resume preselect\n            buffer keymap default history allow-nest).\n\n** Keywords\n\nKeywords supported:\n\n- :sources\n- :input\n- :prompt\n- :resume\n- :preselect\n- :buffer\n- :keymap\n- :default\n- :history\n- :allow-nest\n\nExtra LOCAL-VARS keywords are supported, see the \"** Other\nkeywords\" section below.\n\nBasic keywords are the following:\n\n*** :sources\n\nOne of the following:\n\n- List of sources\n- Symbol whose value is a list of sources\n- Alist representing a Helm source.\n  - In this case the source has no name and is referenced in\n    `helm-sources' as a whole alist.\n\n*** :input\n\nInitial input of minibuffer (temporary value of `helm-pattern')\n\n*** :prompt\n\nMinibuffer prompt. Default value is `helm--prompt'.\n\n*** :resume\n\nIf t, allow resumption of the previous session of this Helm\ncommand, skipping initialization.\n\nIf 'noresume, this instance of `helm' cannot be resumed.\n\n*** :preselect\n\nInitially selected candidate (string or regexp).\n\n*** :buffer\n\nBuffer name for this Helm session. `helm-buffer' will take this value.\n\n*** :keymap\n\n[Obsolete]\n\nKeymap used at the start of this Helm session.\n\nIt is overridden by keymaps specified in sources, and is kept\nonly for backward compatibility.\n\nKeymaps should be specified in sources using the :keymap slot\ninstead. See `helm-source'.\n\nThis keymap is not restored by `helm-resume'.\n\n*** :default\n\nDefault value inserted into the minibuffer with\n\\<minibuffer-local-map>\\[next-history-element].\n\nIt can be a string or a list of strings, in this case\n\\<minibuffer-local-map>\\[next-history-element] cycles through\nthe list items, starting with the first.\n\nIf nil, `thing-at-point' is used.\n\nIf `helm--maybe-use-default-as-input' is non-nil, display is\nupdated using this value, unless :input is specified, in which\ncase that value is used instead.\n\n*** :history\n\nMinibuffer input, by default, is pushed to `minibuffer-history'.\n\nWhen an argument HISTORY is provided, input is pushed to\nHISTORY. HISTORY should be a valid symbol.\n\n*** :allow-nest\n\nAllow running this Helm command in a running Helm session.\n\n** Other keywords\n\nOther keywords are interpreted as local variables of this Helm\nsession. The `helm-' prefix can be omitted. For example,\n\n(helm :sources 'helm-source-buffers-list\n       :buffer \"*helm buffers*\"\n       :candidate-number-limit 10)\n\nStarts a Helm session with the variable\n`helm-candidate-number-limit' set to 10.\n\n** Backward compatibility\n\nFor backward compatibility, positional parameters are\nsupported:\n\n(helm sources input prompt resume preselect\n       buffer keymap default history allow-nest)\n\nHowever, the use of non-keyword args is deprecated.\n\n(fn &key SOURCES INPUT PROMPT RESUME PRESELECT BUFFER KEYMAP DEFAULT HISTORY ALLOW-NEST OTHER-LOCAL-VARS)" (let ((fn (cond ((or (and helm-alive-p (plist-get plist :allow-nest)) (and helm-alive-p (memq 'allow-nest 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 session") (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))))) mu-reset-scroll-conservatively-a)((... ...) nil nil nil nil "*helm moccur*" nil #("doall" 0 5 ...) helm-occur-history)
  apply(#f(advice-wrapper :before (closure (helm-autoresize-mode t) (&rest plist) "Main function to execute helm sources...." (let ((fn ...)) (if (and helm-alive-p ...) (if ... ... ...) (if ... ... ...)))) mu-reset-scroll-conservatively-a) ((((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) nil nil nil nil "*helm moccur*" nil #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) helm-occur-history))
  helm((((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) nil nil nil nil "*helm moccur*" nil #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) helm-occur-history)
  apply(helm ((((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) nil nil nil nil "*helm moccur*" nil #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) helm-occur-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))))
  (closure (helm-autoresize-mode t) (&rest plist) "Main function to execute helm sources.\n\nPLIST is a..." (let ((fn (cond ((or ... ...) #'helm--nest) ((keywordp ...) #'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 ...)) (apply fn (mapcar ... helm-argument-keys))) (apply fn plist)))))(:sources (((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) :buffer "*helm moccur*" :history helm-occur-history :default #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) :input nil :truncate-lines t)
  apply((closure (helm-autoresize-mode t) (&rest plist) "Main function to execute helm sources...." (let ((fn (cond ... ... ...))) (if (and helm-alive-p (eq fn ...)) (if (helm--alive-p) (error "Error: Trying to run helm within a run...") (save-current-buffer ... ...)) (if (keywordp ...) (progn ... ...) (apply fn plist))))) (:sources (((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) :buffer "*helm moccur*" :history helm-occur-history :default #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) :input nil :truncate-lines t))
  #f(advice-wrapper :before (closure (helm-autoresize-mode t) (&rest plist) "Main function to execute helm sources.\n\nPLIST is a list like\n\n(:key1 val1 :key2 val2 ...)\n\n or\n\n(&optional sources input prompt resume preselect\n            buffer keymap default history allow-nest).\n\n** Keywords\n\nKeywords supported:\n\n- :sources\n- :input\n- :prompt\n- :resume\n- :preselect\n- :buffer\n- :keymap\n- :default\n- :history\n- :allow-nest\n\nExtra LOCAL-VARS keywords are supported, see the \"** Other\nkeywords\" section below.\n\nBasic keywords are the following:\n\n*** :sources\n\nOne of the following:\n\n- List of sources\n- Symbol whose value is a list of sources\n- Alist representing a Helm source.\n  - In this case the source has no name and is referenced in\n    `helm-sources' as a whole alist.\n\n*** :input\n\nInitial input of minibuffer (temporary value of `helm-pattern')\n\n*** :prompt\n\nMinibuffer prompt. Default value is `helm--prompt'.\n\n*** :resume\n\nIf t, allow resumption of the previous session of this Helm\ncommand, skipping initialization.\n\nIf 'noresume, this instance of `helm' cannot be resumed.\n\n*** :preselect\n\nInitially selected candidate (string or regexp).\n\n*** :buffer\n\nBuffer name for this Helm session. `helm-buffer' will take this value.\n\n*** :keymap\n\n[Obsolete]\n\nKeymap used at the start of this Helm session.\n\nIt is overridden by keymaps specified in sources, and is kept\nonly for backward compatibility.\n\nKeymaps should be specified in sources using the :keymap slot\ninstead. See `helm-source'.\n\nThis keymap is not restored by `helm-resume'.\n\n*** :default\n\nDefault value inserted into the minibuffer with\n\\<minibuffer-local-map>\\[next-history-element].\n\nIt can be a string or a list of strings, in this case\n\\<minibuffer-local-map>\\[next-history-element] cycles through\nthe list items, starting with the first.\n\nIf nil, `thing-at-point' is used.\n\nIf `helm--maybe-use-default-as-input' is non-nil, display is\nupdated using this value, unless :input is specified, in which\ncase that value is used instead.\n\n*** :history\n\nMinibuffer input, by default, is pushed to `minibuffer-history'.\n\nWhen an argument HISTORY is provided, input is pushed to\nHISTORY. HISTORY should be a valid symbol.\n\n*** :allow-nest\n\nAllow running this Helm command in a running Helm session.\n\n** Other keywords\n\nOther keywords are interpreted as local variables of this Helm\nsession. The `helm-' prefix can be omitted. For example,\n\n(helm :sources 'helm-source-buffers-list\n       :buffer \"*helm buffers*\"\n       :candidate-number-limit 10)\n\nStarts a Helm session with the variable\n`helm-candidate-number-limit' set to 10.\n\n** Backward compatibility\n\nFor backward compatibility, positional parameters are\nsupported:\n\n(helm sources input prompt resume preselect\n       buffer keymap default history allow-nest)\n\nHowever, the use of non-keyword args is deprecated.\n\n(fn &key SOURCES INPUT PROMPT RESUME PRESELECT BUFFER KEYMAP DEFAULT HISTORY ALLOW-NEST OTHER-LOCAL-VARS)" (let ((fn (cond ((or (and helm-alive-p (plist-get plist :allow-nest)) (and helm-alive-p (memq 'allow-nest 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 session") (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))))) mu-reset-scroll-conservatively-a)(:sources (... ...) :buffer "*helm moccur*" :history helm-occur-history :default #("doall" 0 5 ...) :input nil :truncate-lines t)
  apply(#f(advice-wrapper :before (closure (helm-autoresize-mode t) (&rest plist) "Main function to execute helm sources...." (let ((fn ...)) (if (and helm-alive-p ...) (if ... ... ...) (if ... ... ...)))) mu-reset-scroll-conservatively-a) (:sources (((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) (24 keymap ... ... ... ... ... ... ... ... ... ... ... ...) (11 . helm-delete-minibuffer-contents) (67108896 . helm-toggle-visible-mark-forward) (0 . helm-toggle-visible-mark) (C-M-up . helm-scroll-other-window-down) (C-M-down . helm-scroll-other-window) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping session)") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) :buffer "*helm moccur*" :history helm-occur-history :default #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) :input nil :truncate-lines t))
  helm(:sources (((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer case_details.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "case_details.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>)) ((header-name closure (... ... ... ... ... t) (_name) (format "Search in %s" ...)) (init lambda nil (with-current-buffer #<buffer views.cljs> ...)) (candidates . helm-candidates-in-buffer) (keymap keymap (left) (right) (24 keymap ...) (3 keymap ... ...) keymap (tab . helm-execute-persistent-action) (f13 lambda nil ... ...) (f12 lambda nil ... ...) (f11 lambda nil ... ...) (f10 lambda nil ... ...) (f9 lambda nil ... ...) (f8 lambda nil ... ...) (f7 lambda nil ... ...) (f6 lambda nil ... ...) (f5 lambda nil ... ...) (f4 lambda nil ... ...) (f3 lambda nil ... ...) (f2 lambda nil ... ...) (menu-bar keymap ...) (help keymap ...) (23 closure ... nil ... ...) (f1 lambda nil ... ...) (8 keymap ... ... ... ... ...) (20 . helm-toggle-resplit-and-swap-windows) (C-tab . undefined) (67108897 . helm-toggle-suspend-update) (3 keymap ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...) (67108987 . helm-enlarge-window) (67108989 . helm-narrow-window) (19 . undefined) ...) (action . helm-occur-actions) (help-message . helm-moccur-help-message) (requires-pattern . 2) (filtered-candidate-transformer helm-occur-transformer helm-fuzzy-highlight-matches) (candidate-number-limit . 99999) (volatile . t) (match identity) (redisplay . identity) (nomark . t) (history . helm-occur-history) (header-line . "<tab>: Go to Line (keeping sessi...") (resume . helm-occur-resume-fn) (follow . 1) (multimatch . t) (match-part closure (... ... ... ... ... t) (candidate) (if ... ...)) (group . helm-occur) (migemo . t) (get-line . buffer-substring-no-properties) (search helm-mm-exact-search helm-mm-search (closure ... ... ... ...) helm-mm-3-migemo-search) (buffer-name . "views.cljs") (moccur-buffers #<buffer case_details.cljs> #<buffer views.cljs>))) :buffer "*helm moccur*" :history helm-occur-history :default #("doall" 0 5 (cider-locals ("municipal-refs-form") face font-lock-keyword-face fontified t)) :input nil :truncate-lines t)
  (let* ((curbuf (current-buffer)) (bufs (if helm-occur-always-search-in-current (cons curbuf (remove curbuf buffers)) buffers)) (helm-sources-using-default-as-input (if (let* ((total_size 0) (--cl-var-- bufs) (b nil)) (while (consp --cl-var--) (setq b (car --cl-var--)) (setq total_size (buffer-size b)) (setq --cl-var-- (cdr --cl-var--))) (> total_size 2000000)) nil helm-sources-using-default-as-input)) (sources (helm-occur-build-sources bufs)) (helm--maybe-use-default-as-input (not (null (memq 'helm-source-moccur helm-sources-using-default-as-input))))) (helm-set-local-variable 'helm-occur--buffer-list bufs 'helm-occur--buffer-tick (let* ((--cl-var-- bufs) (b nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq b (car --cl-var--)) (setq --cl-var-- (cons (buffer-chars-modified-tick (get-buffer b)) --cl-var--)) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))) (helm :sources sources :buffer "*helm moccur*" :history 'helm-occur-history :default (let ((it (thing-at-point 'symbol))) (if it (regexp-quote it))) :input input :truncate-lines helm-occur-truncate-lines))
  helm-multi-occur-1((#<buffer case_details.cljs> #<buffer views.cljs>))
  (let ((buffers (helm-buffers-get-visible-buffers))) (helm-multi-occur-1 (mapcar 'get-buffer buffers)))
  (if (or (one-window-p) (region-active-p)) (call-interactively #'helm-occur) (let ((buffers (helm-buffers-get-visible-buffers))) (helm-multi-occur-1 (mapcar 'get-buffer buffers))))
  helm-occur-visible-buffers()
  funcall-interactively(helm-occur-visible-buffers)
  call-interactively(helm-occur-visible-buffers nil nil)
  command-execute(helm-occur-visible-buffers)

However, the error on helm-find-files blocked me.

manuel-uberti on 23 Jun 2020

The error comes from line 4306 in helm-files.el. The key nil should be (nil).

jathd on 23 Jun 2020

👍2

@jathd The change fixes helm 'find files' temporarily for the session but If I restart my emacs, then the error resurfaces again unless I go to that line and reevaluate the function again.

vilst3r on 23 Jun 2020

@vilst3r Maybe emacs is loading a compiled (.elc) version of the file that doesn't reflect the change? If you have a helm-files.elc somewhere, try deleting it.

jathd on 23 Jun 2020

👍1

@jathd Thanks, I completely forgot, I needed to recompile the file but other than I'm happy that there's a quick fix for it :)

vilst3r on 23 Jun 2020

Thank you @jathd for looking into it.

manuel-uberti on 23 Jun 2020

Thanks @manuel-uberti and @vilst3r for reporting this, and @jathd for looking into it. I came here looking for support after an melpa update and lo and behold you were already on it :)

danielnemenyi on 23 Jun 2020

Thanks everyone for help on this.

thierryvolpiatto on 23 Jun 2020

@thierryvolpiatto do you want me to open another ticket for this?

manuel-uberti on 23 Jun 2020

Manuel Uberti notifications@github.com writes:

@thierryvolpiatto do you want me to open another ticket for this?

Yes, please, I can't reproduce.

--
Thierry

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

thierryvolpiatto on 23 Jun 2020

Now that helm-find-files is working again emacs-helm.sh, I cannot reproduce the problem with helm-occur-visible-buffers from there. It must be something related to my configuration, so don't worry, I will look into it.

manuel-uberti on 23 Jun 2020

FWIW, the problem was an incorrect patch from me on helm-occur-build-sources: source-name can be nil, so I removed my patch and everything's fine now. Sorry about the noise.

manuel-uberti on 23 Jun 2020

Was this page helpful?

0 / 5 - 0 ratings

Related issues

user-error: Can't find the ... manpage

emelin · 3Comments

New popup when more than 2 buffers

Cmdv · 4Comments

helm-find-files : How to create a file whose name is a prefix of existing file

phtrivier · 3Comments

Oversized helm window when running `helm-esh-pcomplete` with default display function

taquangtrung · 5Comments

Can I define sorting order when narrowing down buffers list?

pcompassion · 3Comments

helm-find-files: cl-ecase failed

Expected behavior

Actual behavior (from emacs-helm.sh if possible, see note at the bottom)

Steps to reproduce (recipe)

Backtraces if any (M-x toggle-debug-on-error)

Describe versions of Helm, Emacs, operating system, etc.

Are you using emacs-helm.sh to reproduce this bug? (yes/no):

Are you using Spacemacs? (yes/no):

Most helpful comment

All 12 comments

Related issues

Actual behavior (from `emacs-helm.sh` if possible, see note at the bottom)

Backtraces if any (`M-x toggle-debug-on-error`)

Are you using `emacs-helm.sh` to reproduce this bug? (yes/no):