ericdanan / counsel-projectile

Ivy UI for Projectile
286 stars 39 forks source link

`Error in post-command-hook (ivy--queue-exhibit): (void-function nil)` #157

Closed leungbk closed 4 years ago

leungbk commented 4 years ago

After applying https://github.com/ericdanan/counsel-projectile/pull/155 and using the latest master branch of ivy, I get Error in post-command-hook (ivy--queue-exhibit): (void-function nil) whenever I try to M-x counsel-projectile-switch-to-buffer. This is the init.el I'm using:

(let ((bootstrap-file (concat user-emacs-directory "straight/repos/straight.el/bootstrap.el"))
      (bootstrap-version 5))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))

(straight-use-package 'use-package)
(setq straight-use-package-by-default t)

(setq debug-on-error t)

(use-package projectile
  :demand t
  :config
  (projectile-mode 1)

  (setq projectile-completion-system 'ivy))

(use-package ivy
  :demand t
  :config
  (ivy-mode 1))

(use-package counsel
  :demand t
  :config
  (counsel-mode 1))

(use-package counsel-projectile
  :demand t
  :config
  (counsel-projectile-mode 1))

I produced this backtrace within an Edebug session:

Debugger entered--Lisp error: (quit)
  (apply debug error (quit))
  (edebug error (quit))
  (signal quit nil)
  (edebug-signal quit nil)
  (read-from-minibuffer "[counsel-projectile] Switch to buffer: " nil (keymap (keymap (3 keymap (11 . #f(compiled-function () (interactive nil) #<bytecode 0x1d10dcd>)))) keymap (23 . ivy-yank-word) (20 . ivy-dispatching-done) (8 . ivy-dispatching-call) (up . ivy-previous-line) (67108921 . ivy-call-number) (67108920 . ivy-call-number) (67108919 . ivy-call-number) (67108918 . ivy-call-number) (67108917 . ivy-call-number) (67108916 . ivy-call-number) (67108915 . ivy-call-number) (67108914 . ivy-call-number) (67108913 . ivy-call-number) (67108912 . ivy-call-number) (21 . minibuffer-restart-with-prefix+) (36 . ivy-magic-read-file-env) (3 keymap (114 . ivy-occur) (19 . ivy-rotate-sort) (1 . ivy-toggle-ignore) (15 . ivy-occur)) (33554464 . ivy-restrict-to-matches) (15 . hydra-ivy/body) (22 . quoted-insert) (prior . ivy-scroll-down-command) (next . ivy-scroll-up-command) (7 . minibuffer-keyboard-quit) (right . ivy-forward-char) (32 . self-insert-command) (18 . ivy-reverse-i-search) (remap keymap (describe-mode . ivy-help) (kill-ring-save . ivy-kill-ring-save) (kill-whole-line . ivy-kill-whole-line) (kill-line . ivy-kill-line) (scroll-down-command . ivy-scroll-down-command) (scroll-up-command . ivy-scroll-up-command) (end-of-buffer . ivy-end-of-buffer) (beginning-of-buffer . ivy-beginning-of-buffer) (kill-word . ivy-kill-word) (forward-char . ivy-forward-char) (delete-char . ivy-delete-char) (backward-kill-word . ivy-backward-kill-word) (backward-delete-char-untabify . ivy-backward-delete-char) (delete-backward-char . ivy-backward-delete-char) (previous-line . ivy-previous-line) (next-line . ivy-next-line)) (9 . ivy-partial-or-done) (10 . ivy-done) (27 keymap (1 . ivy-read-action) (15 . ivy-dispatching-call) (111 . ivy-dispatching-done) (25 . ivy-insert-current-full) (105 . ivy-insert-current) (106 . ivy-yank-word) (114 . ivy-toggle-regexp-quote) (97 . ivy-toggle-marks) (16 . ivy-previous-line-and-call) (14 . ivy-next-line-and-call) (118 . ivy-scroll-down-command) (112 . ivy-previous-history-element) (110 . ivy-next-history-element) (10 . ivy-immediate-done) (13 . ivy-call)) (mouse-3 . ivy-mouse-dispatching-done) (mouse-1 . ivy-mouse-done) (down-mouse-1 . ignore) (13 . ivy-alt-done)) nil ivy-history)
  (condition-case err (read-from-minibuffer prompt (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 5)) (make-composed-keymap keymap ivy-minibuffer-map) nil hist) (error (if (equal err '(error "Selecting deleted buffer")) nil (signal (car err) (cdr err)))))
  (if (and ivy-auto-select-single-candidate ivy--all-candidates (null (cdr ivy--all-candidates))) (progn (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (let* ((v ivy-last)) (aset v 23 (car ivy--all-candidates)))) (setq ivy-exit 'done)) (condition-case err (read-from-minibuffer prompt (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 5)) (make-composed-keymap keymap ivy-minibuffer-map) nil hist) (error (if (equal err '(error "Selecting deleted buffer")) nil (signal (car err) (cdr err))))))
  (let* ((hist (or history 'ivy-history)) (minibuffer-completion-table collection) (minibuffer-completion-predicate predicate) (ivy-height (ivy--height caller)) (resize-mini-windows (if (display-graphic-p) nil 'grow-only))) (if (and ivy-auto-select-single-candidate ivy--all-candidates (null (cdr ivy--all-candidates))) (progn (progn (or (and (memq (type-of ivy-last) cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (let* ((v ivy-last)) (aset v 23 (car ivy--all-candidates)))) (setq ivy-exit 'done)) (condition-case err (read-from-minibuffer prompt (progn (or (and (memq ... cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list ... ivy-last))) (aref ivy-last 5)) (make-composed-keymap keymap ivy-minibuffer-map) nil hist) (error (if (equal err '(error "Selecting deleted buffer")) nil (signal (car err) (cdr err)))))) (if (eq ivy-exit 'done) (progn (ivy--update-history hist))))
  (progn (add-hook 'minibuffer-setup-hook setup-hook) (let* ((hist (or history 'ivy-history)) (minibuffer-completion-table collection) (minibuffer-completion-predicate predicate) (ivy-height (ivy--height caller)) (resize-mini-windows (if (display-graphic-p) nil 'grow-only))) (if (and ivy-auto-select-single-candidate ivy--all-candidates (null (cdr ivy--all-candidates))) (progn (progn (or (and (memq ... cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list ... ivy-last))) (let* ((v ivy-last)) (aset v 23 (car ivy--all-candidates)))) (setq ivy-exit 'done)) (condition-case err (read-from-minibuffer prompt (progn (or (and ... t) (signal ... ...)) (aref ivy-last 5)) (make-composed-keymap keymap ivy-minibuffer-map) nil hist) (error (if (equal err '...) nil (signal (car err) (cdr err)))))) (if (eq ivy-exit 'done) (progn (ivy--update-history hist)))))
  (unwind-protect (progn (add-hook 'minibuffer-setup-hook setup-hook) (let* ((hist (or history 'ivy-history)) (minibuffer-completion-table collection) (minibuffer-completion-predicate predicate) (ivy-height (ivy--height caller)) (resize-mini-windows (if (display-graphic-p) nil 'grow-only))) (if (and ivy-auto-select-single-candidate ivy--all-candidates (null (cdr ivy--all-candidates))) (progn (progn (or (and ... t) (signal ... ...)) (let* (...) (aset v 23 ...))) (setq ivy-exit 'done)) (condition-case err (read-from-minibuffer prompt (progn (or ... ...) (aref ivy-last 5)) (make-composed-keymap keymap ivy-minibuffer-map) nil hist) (error (if (equal err ...) nil (signal ... ...))))) (if (eq ivy-exit 'done) (progn (ivy--update-history hist))))) (remove-hook 'minibuffer-setup-hook setup-hook))
  (let ((fun #'ivy--minibuffer-setup) setup-hook) (setq setup-hook #'(lambda nil (remove-hook 'minibuffer-setup-hook setup-hook) (funcall fun))) (unwind-protect (progn (add-hook 'minibuffer-setup-hook setup-hook) (let* ((hist (or history 'ivy-history)) (minibuffer-completion-table collection) (minibuffer-completion-predicate predicate) (ivy-height (ivy--height caller)) (resize-mini-windows (if (display-graphic-p) nil 'grow-only))) (if (and ivy-auto-select-single-candidate ivy--all-candidates (null (cdr ivy--all-candidates))) (progn (progn (or ... ...) (let* ... ...)) (setq ivy-exit 'done)) (condition-case err (read-from-minibuffer prompt (progn ... ...) (make-composed-keymap keymap ivy-minibuffer-map) nil hist) (error (if ... nil ...)))) (if (eq ivy-exit 'done) (progn (ivy--update-history hist))))) (remove-hook 'minibuffer-setup-hook setup-hook)))
  (unwind-protect (let ((fun #'ivy--minibuffer-setup) setup-hook) (setq setup-hook #'(lambda nil (remove-hook 'minibuffer-setup-hook setup-hook) (funcall fun))) (unwind-protect (progn (add-hook 'minibuffer-setup-hook setup-hook) (let* ((hist (or history ...)) (minibuffer-completion-table collection) (minibuffer-completion-predicate predicate) (ivy-height (ivy--height caller)) (resize-mini-windows (if ... nil ...))) (if (and ivy-auto-select-single-candidate ivy--all-candidates (null ...)) (progn (progn ... ...) (setq ivy-exit ...)) (condition-case err (read-from-minibuffer prompt ... ... nil hist) (error ...))) (if (eq ivy-exit 'done) (progn (ivy--update-history hist))))) (remove-hook 'minibuffer-setup-hook setup-hook))) (let ((session (or (plist-get extra-props :session) (if (or (minibufferp) (null ...) (eq ... ...)) nil caller)))) (if session (progn (progn (or (and (memq ... cl-struct-ivy-state-tags) t) (signal 'wrong-type-argument (list ... ivy-last))) (let* ((v ivy-last)) (aset v 27 (plist-put extra-props :ivy-data ...)))) (ivy--alist-set 'ivy--sessions session ivy-last)))) (ivy--cleanup))
  (let* ((ivy-recursive-last (and (active-minibuffer-window) ivy-last)) (ivy--display-function (if (or ivy-recursive-last (not (window-minibuffer-p))) (progn (ivy-alist-setting ivy-display-functions-alist caller))))) (setq update-fn (or update-fn (ivy-alist-setting ivy-update-fns-alist caller))) (setq unwind (or unwind (ivy-alist-setting ivy-unwind-fns-alist caller))) (setq ivy-last (make-ivy-state :prompt (ivy--update-prompt prompt) :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn (if (eq update-fn 'auto) #'(lambda nil (let (...) (save-current-buffer ...))) update-fn) :sort sort :action (ivy--compute-extra-actions action caller) :multi-action multi-action :frame (selected-frame) :window (selected-window) :buffer (current-buffer) :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn (ivy-alist-setting ivy--display-transformers-alist caller) :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ((fun #'ivy--minibuffer-setup) setup-hook) (setq setup-hook #'(lambda nil (remove-hook 'minibuffer-setup-hook setup-hook) (funcall fun))) (unwind-protect (progn (add-hook 'minibuffer-setup-hook setup-hook) (let* ((hist ...) (minibuffer-completion-table collection) (minibuffer-completion-predicate predicate) (ivy-height ...) (resize-mini-windows ...)) (if (and ivy-auto-select-single-candidate ivy--all-candidates ...) (progn ... ...) (condition-case err ... ...)) (if (eq ivy-exit ...) (progn ...)))) (remove-hook 'minibuffer-setup-hook setup-hook))) (let ((session (or (plist-get extra-props :session) (if (or ... ... ...) nil caller)))) (if session (progn (progn (or (and ... t) (signal ... ...)) (let* (...) (aset v 27 ...))) (ivy--alist-set 'ivy--sessions session ivy-last)))) (ivy--cleanup)) (ivy-call))
  (progn (let ((init-fn (ivy-alist-setting ivy-init-fns-alist caller))) (if init-fn (progn (funcall init-fn)))) (if (equal overriding-local-map '(keymap)) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last (and (active-minibuffer-window) ivy-last)) (ivy--display-function (if (or ivy-recursive-last (not (window-minibuffer-p))) (progn (ivy-alist-setting ivy-display-functions-alist caller))))) (setq update-fn (or update-fn (ivy-alist-setting ivy-update-fns-alist caller))) (setq unwind (or unwind (ivy-alist-setting ivy-unwind-fns-alist caller))) (setq ivy-last (make-ivy-state :prompt (ivy--update-prompt prompt) :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn (if (eq update-fn 'auto) #'(lambda nil (let ... ...)) update-fn) :sort sort :action (ivy--compute-extra-actions action caller) :multi-action multi-action :frame (selected-frame) :window (selected-window) :buffer (current-buffer) :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn (ivy-alist-setting ivy--display-transformers-alist caller) :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ((fun #'ivy--minibuffer-setup) setup-hook) (setq setup-hook #'(lambda nil (remove-hook ... setup-hook) (funcall fun))) (unwind-protect (progn (add-hook 'minibuffer-setup-hook setup-hook) (let* (... ... ... ... ...) (if ... ... ...) (if ... ...))) (remove-hook 'minibuffer-setup-hook setup-hook))) (let ((session (or (plist-get extra-props :session) (if ... nil caller)))) (if session (progn (progn (or ... ...) (let* ... ...)) (ivy--alist-set 'ivy--sessions session ivy-last)))) (ivy--cleanup)) (ivy-call)))
  (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '(:predicate :require-match :initial-input :history :preselect :def :keymap :update-fn :sort :action :multi-action :unwind :re-builder :matcher :dynamic-collection :extra-props :caller :allow-other-keys)) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr (memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:predicate :requir..." (car --cl-keys--)))))) (progn (let ((init-fn (ivy-alist-setting ivy-init-fns-alist caller))) (if init-fn (progn (funcall init-fn)))) (if (equal overriding-local-map '(keymap)) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last (and (active-minibuffer-window) ivy-last)) (ivy--display-function (if (or ivy-recursive-last (not ...)) (progn (ivy-alist-setting ivy-display-functions-alist caller))))) (setq update-fn (or update-fn (ivy-alist-setting ivy-update-fns-alist caller))) (setq unwind (or unwind (ivy-alist-setting ivy-unwind-fns-alist caller))) (setq ivy-last (make-ivy-state :prompt (ivy--update-prompt prompt) :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn (if (eq update-fn 'auto) #'(lambda nil ...) update-fn) :sort sort :action (ivy--compute-extra-actions action caller) :multi-action multi-action :frame (selected-frame) :window (selected-window) :buffer (current-buffer) :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn (ivy-alist-setting ivy--display-transformers-alist caller) :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ((fun #'ivy--minibuffer-setup) setup-hook) (setq setup-hook #'(lambda nil ... ...)) (unwind-protect (progn (add-hook ... setup-hook) (let* ... ... ...)) (remove-hook 'minibuffer-setup-hook setup-hook))) (let ((session (or ... ...))) (if session (progn (progn ... ...) (ivy--alist-set ... session ivy-last)))) (ivy--cleanup)) (ivy-call))))
  (let* ((predicate (car (cdr (plist-member --cl-rest-- ':predicate)))) (require-match (car (cdr (plist-member --cl-rest-- ':require-match)))) (initial-input (car (cdr (plist-member --cl-rest-- ':initial-input)))) (history (car (cdr (plist-member --cl-rest-- ':history)))) (preselect (car (cdr (plist-member --cl-rest-- ':preselect)))) (def (car (cdr (plist-member --cl-rest-- ':def)))) (keymap (car (cdr (plist-member --cl-rest-- ':keymap)))) (update-fn (car (cdr (plist-member --cl-rest-- ':update-fn)))) (sort (car (cdr (plist-member --cl-rest-- ':sort)))) (action (car (cdr (plist-member --cl-rest-- ':action)))) (multi-action (car (cdr (plist-member --cl-rest-- ':multi-action)))) (unwind (car (cdr (plist-member --cl-rest-- ':unwind)))) (re-builder (car (cdr (plist-member --cl-rest-- ':re-builder)))) (matcher (car (cdr (plist-member --cl-rest-- ':matcher)))) (dynamic-collection (car (cdr (plist-member --cl-rest-- ':dynamic-collection)))) (extra-props (car (cdr (plist-member --cl-rest-- ':extra-props)))) (caller (car (cdr (plist-member --cl-rest-- ':caller))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) '...) (setq --cl-keys-- (cdr ...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error "Keyword argument %s not one of (:predicate :requir..." (car --cl-keys--)))))) (progn (let ((init-fn (ivy-alist-setting ivy-init-fns-alist caller))) (if init-fn (progn (funcall init-fn)))) (if (equal overriding-local-map '(keymap)) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last (and (active-minibuffer-window) ivy-last)) (ivy--display-function (if (or ivy-recursive-last ...) (progn ...)))) (setq update-fn (or update-fn (ivy-alist-setting ivy-update-fns-alist caller))) (setq unwind (or unwind (ivy-alist-setting ivy-unwind-fns-alist caller))) (setq ivy-last (make-ivy-state :prompt (ivy--update-prompt prompt) :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn (if (eq update-fn ...) #'... update-fn) :sort sort :action (ivy--compute-extra-actions action caller) :multi-action multi-action :frame (selected-frame) :window (selected-window) :buffer (current-buffer) :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn (ivy-alist-setting ivy--display-transformers-alist caller) :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ((fun ...) setup-hook) (setq setup-hook #'...) (unwind-protect (progn ... ...) (remove-hook ... setup-hook))) (let ((session ...)) (if session (progn ... ...))) (ivy--cleanup)) (ivy-call)))))
  ((closure (ffap-machine-p-known cl-struct-ivy-state-tags t) (prompt collection &rest --cl-rest--) "Read a string in the minibuffer, with completion.\n..." (let* ((predicate (car (cdr (plist-member --cl-rest-- ...)))) (require-match (car (cdr (plist-member --cl-rest-- ...)))) (initial-input (car (cdr (plist-member --cl-rest-- ...)))) (history (car (cdr (plist-member --cl-rest-- ...)))) (preselect (car (cdr (plist-member --cl-rest-- ...)))) (def (car (cdr (plist-member --cl-rest-- ...)))) (keymap (car (cdr (plist-member --cl-rest-- ...)))) (update-fn (car (cdr (plist-member --cl-rest-- ...)))) (sort (car (cdr (plist-member --cl-rest-- ...)))) (action (car (cdr (plist-member --cl-rest-- ...)))) (multi-action (car (cdr (plist-member --cl-rest-- ...)))) (unwind (car (cdr (plist-member --cl-rest-- ...)))) (re-builder (car (cdr (plist-member --cl-rest-- ...)))) (matcher (car (cdr (plist-member --cl-rest-- ...)))) (dynamic-collection (car (cdr (plist-member --cl-rest-- ...)))) (extra-props (car (cdr (plist-member --cl-rest-- ...)))) (caller (car (cdr (plist-member --cl-rest-- ...))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond (... ...) (... ...) (t ...)))) (progn (let ((init-fn ...)) (if init-fn (progn ...))) (if (equal overriding-local-map '...) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last ...) (ivy--display-function ...)) (setq update-fn (or update-fn ...)) (setq unwind (or unwind ...)) (setq ivy-last (make-ivy-state :prompt ... :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn ... :sort sort :action ... :multi-action multi-action :frame ... :window ... :buffer ... :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn ... :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ... ... ...) (let ... ...) (ivy--cleanup)) (ivy-call)))))) "[counsel-projectile] Switch to buffer: " counsel-projectile--project-buffers :matcher ivy--switch-buffer-matcher :require-match t :sort t :action (1 ("o" counsel-projectile-switch-to-buffer-action "current window") ("j" switch-to-buffer-other-window "other window") ("k" ivy--kill-buffer-action "kill") ("m" counsel-projectile-switch-to-buffer-action-find-file-manually "find file manually") ("p" counsel-projectile-switch-to-buffer-action-switch-project "switch project")) :keymap (keymap (3 keymap (11 . #f(compiled-function () (interactive nil) #<bytecode 0x1d10dcd>)))) :caller counsel-projectile-switch-to-buffer :sort t)
  (apply (closure (ffap-machine-p-known cl-struct-ivy-state-tags t) (prompt collection &rest --cl-rest--) "Read a string in the minibuffer, with completion.\n..." (let* ((predicate (car (cdr (plist-member --cl-rest-- ...)))) (require-match (car (cdr (plist-member --cl-rest-- ...)))) (initial-input (car (cdr (plist-member --cl-rest-- ...)))) (history (car (cdr (plist-member --cl-rest-- ...)))) (preselect (car (cdr (plist-member --cl-rest-- ...)))) (def (car (cdr (plist-member --cl-rest-- ...)))) (keymap (car (cdr (plist-member --cl-rest-- ...)))) (update-fn (car (cdr (plist-member --cl-rest-- ...)))) (sort (car (cdr (plist-member --cl-rest-- ...)))) (action (car (cdr (plist-member --cl-rest-- ...)))) (multi-action (car (cdr (plist-member --cl-rest-- ...)))) (unwind (car (cdr (plist-member --cl-rest-- ...)))) (re-builder (car (cdr (plist-member --cl-rest-- ...)))) (matcher (car (cdr (plist-member --cl-rest-- ...)))) (dynamic-collection (car (cdr (plist-member --cl-rest-- ...)))) (extra-props (car (cdr (plist-member --cl-rest-- ...)))) (caller (car (cdr (plist-member --cl-rest-- ...))))) (progn (let ((--cl-keys-- --cl-rest--)) (while --cl-keys-- (cond (... ...) (... ...) (t ...)))) (progn (let ((init-fn ...)) (if init-fn (progn ...))) (if (equal overriding-local-map '...) (progn (keyboard-quit))) (setq caller (or caller this-command)) (let* ((ivy-recursive-last ...) (ivy--display-function ...)) (setq update-fn (or update-fn ...)) (setq unwind (or unwind ...)) (setq ivy-last (make-ivy-state :prompt ... :collection collection :predicate predicate :require-match require-match :initial-input initial-input :history history :preselect preselect :keymap keymap :update-fn ... :sort sort :action ... :multi-action multi-action :frame ... :window ... :buffer ... :unwind unwind :re-builder re-builder :matcher matcher :dynamic-collection dynamic-collection :display-transformer-fn ... :directory default-directory :extra-props extra-props :caller caller :def def)) (ivy--reset-state ivy-last) (unwind-protect (let ... ... ...) (let ... ...) (ivy--cleanup)) (ivy-call)))))) ("[counsel-projectile] Switch to buffer: " counsel-projectile--project-buffers :matcher ivy--switch-buffer-matcher :require-match t :sort t :action (1 ("o" counsel-projectile-switch-to-buffer-action "current window") ("j" switch-to-buffer-other-window "other window") ("k" ivy--kill-buffer-action "kill") ("m" counsel-projectile-switch-to-buffer-action-find-file-manually "find file manually") ("p" counsel-projectile-switch-to-buffer-action-switch-project "switch project")) :keymap (keymap (3 keymap (11 . #f(compiled-function () (interactive nil) #<bytecode 0x1d10dcd>)))) :caller counsel-projectile-switch-to-buffer :sort t))
  (ivy-read "[counsel-projectile] Switch to buffer: " counsel-projectile--project-buffers :matcher ivy--switch-buffer-matcher :require-match t :sort t :action (1 ("o" counsel-projectile-switch-to-buffer-action "current window") ("j" switch-to-buffer-other-window "other window") ("k" ivy--kill-buffer-action "kill") ("m" counsel-projectile-switch-to-buffer-action-find-file-manually "find file manually") ("p" counsel-projectile-switch-to-buffer-action-switch-project "switch project")) :keymap (keymap (3 keymap (11 . #f(compiled-function () (interactive nil) #<bytecode 0x1d10dcd>)))) :caller counsel-projectile-switch-to-buffer)
  (edebug-after (edebug-before 12) 22 (ivy-read (edebug-after (edebug-before 13) 14 (projectile-prepend-project-name "Switch to buffer: ")) (edebug-after (edebug-before 15) 16 #'counsel-projectile--project-buffers) :matcher (edebug-after (edebug-before 17) 18 #'ivy--switch-buffer-matcher) :require-match t :sort (edebug-after 0 19 counsel-projectile-sort-buffers) :action (edebug-after 0 20 counsel-projectile-switch-to-buffer-action) :keymap (edebug-after 0 21 counsel-projectile-switch-to-buffer-map) :caller 'counsel-projectile-switch-to-buffer))
  (if (edebug-after (edebug-before 1) 9 (and (edebug-after (edebug-before 2) 4 (eq (edebug-after 0 3 projectile-require-project-root) 'prompt)) (edebug-after (edebug-before 5) 8 (not (edebug-after (edebug-before 6) 7 (projectile-project-p)))))) (edebug-after (edebug-before 10) 11 (counsel-projectile-switch-to-buffer-action-switch-project)) (edebug-after (edebug-before 12) 22 (ivy-read (edebug-after (edebug-before 13) 14 (projectile-prepend-project-name "Switch to buffer: ")) (edebug-after (edebug-before 15) 16 #'counsel-projectile--project-buffers) :matcher (edebug-after (edebug-before 17) 18 #'ivy--switch-buffer-matcher) :require-match t :sort (edebug-after 0 19 counsel-projectile-sort-buffers) :action (edebug-after 0 20 counsel-projectile-switch-to-buffer-action) :keymap (edebug-after 0 21 counsel-projectile-switch-to-buffer-map) :caller 'counsel-projectile-switch-to-buffer)))
  (edebug-after (edebug-before 0) 23 (if (edebug-after (edebug-before 1) 9 (and (edebug-after (edebug-before 2) 4 (eq (edebug-after 0 3 projectile-require-project-root) 'prompt)) (edebug-after (edebug-before 5) 8 (not (edebug-after (edebug-before 6) 7 (projectile-project-p)))))) (edebug-after (edebug-before 10) 11 (counsel-projectile-switch-to-buffer-action-switch-project)) (edebug-after (edebug-before 12) 22 (ivy-read (edebug-after (edebug-before 13) 14 (projectile-prepend-project-name "Switch to buffer: ")) (edebug-after (edebug-before 15) 16 #'counsel-projectile--project-buffers) :matcher (edebug-after (edebug-before 17) 18 #'ivy--switch-buffer-matcher) :require-match t :sort (edebug-after 0 19 counsel-projectile-sort-buffers) :action (edebug-after 0 20 counsel-projectile-switch-to-buffer-action) :keymap (edebug-after 0 21 counsel-projectile-switch-to-buffer-map) :caller 'counsel-projectile-switch-to-buffer))))
  ((closure (t) nil (edebug-after (edebug-before 0) 23 (if (edebug-after (edebug-before 1) 9 (and (edebug-after (edebug-before 2) 4 (eq ... ...)) (edebug-after (edebug-before 5) 8 (not ...)))) (edebug-after (edebug-before 10) 11 (counsel-projectile-switch-to-buffer-action-switch-project)) (edebug-after (edebug-before 12) 22 (ivy-read (edebug-after (edebug-before 13) 14 (projectile-prepend-project-name "Switch to buffer: ")) (edebug-after (edebug-before 15) 16 #'counsel-projectile--project-buffers) :matcher (edebug-after (edebug-before 17) 18 #'ivy--switch-buffer-matcher) :require-match t :sort (edebug-after 0 19 counsel-projectile-sort-buffers) :action (edebug-after 0 20 counsel-projectile-switch-to-buffer-action) :keymap (edebug-after 0 21 counsel-projectile-switch-to-buffer-map) :caller 'counsel-projectile-switch-to-buffer))))))
  (edebug-default-enter counsel-projectile-switch-to-buffer nil (closure (t) nil (edebug-after (edebug-before 0) 23 (if (edebug-after (edebug-before 1) 9 (and (edebug-after (edebug-before 2) 4 (eq ... ...)) (edebug-after (edebug-before 5) 8 (not ...)))) (edebug-after (edebug-before 10) 11 (counsel-projectile-switch-to-buffer-action-switch-project)) (edebug-after (edebug-before 12) 22 (ivy-read (edebug-after (edebug-before 13) 14 (projectile-prepend-project-name "Switch to buffer: ")) (edebug-after (edebug-before 15) 16 #'counsel-projectile--project-buffers) :matcher (edebug-after (edebug-before 17) 18 #'ivy--switch-buffer-matcher) :require-match t :sort (edebug-after 0 19 counsel-projectile-sort-buffers) :action (edebug-after 0 20 counsel-projectile-switch-to-buffer-action) :keymap (edebug-after 0 21 counsel-projectile-switch-to-buffer-map) :caller 'counsel-projectile-switch-to-buffer))))))
  (edebug-default-enter counsel-projectile-switch-to-buffer nil (closure (t) nil (edebug-after (edebug-before 0) 23 (if (edebug-after (edebug-before 1) 9 (and (edebug-after (edebug-before 2) 4 (eq ... ...)) (edebug-after (edebug-before 5) 8 (not ...)))) (edebug-after (edebug-before 10) 11 (counsel-projectile-switch-to-buffer-action-switch-project)) (edebug-after (edebug-before 12) 22 (ivy-read (edebug-after (edebug-before 13) 14 (projectile-prepend-project-name "Switch to buffer: ")) (edebug-after (edebug-before 15) 16 #'counsel-projectile--project-buffers) :matcher (edebug-after (edebug-before 17) 18 #'ivy--switch-buffer-matcher) :require-match t :sort (edebug-after 0 19 counsel-projectile-sort-buffers) :action (edebug-after 0 20 counsel-projectile-switch-to-buffer-action) :keymap (edebug-after 0 21 counsel-projectile-switch-to-buffer-map) :caller 'counsel-projectile-switch-to-buffer))))))
  (edebug-enter counsel-projectile-switch-to-buffer nil (closure (t) nil (edebug-after (edebug-before 0) 23 (if (edebug-after (edebug-before 1) 9 (and (edebug-after (edebug-before 2) 4 (eq ... ...)) (edebug-after (edebug-before 5) 8 (not ...)))) (edebug-after (edebug-before 10) 11 (counsel-projectile-switch-to-buffer-action-switch-project)) (edebug-after (edebug-before 12) 22 (ivy-read (edebug-after (edebug-before 13) 14 (projectile-prepend-project-name "Switch to buffer: ")) (edebug-after (edebug-before 15) 16 #'counsel-projectile--project-buffers) :matcher (edebug-after (edebug-before 17) 18 #'ivy--switch-buffer-matcher) :require-match t :sort (edebug-after 0 19 counsel-projectile-sort-buffers) :action (edebug-after 0 20 counsel-projectile-switch-to-buffer-action) :keymap (edebug-after 0 21 counsel-projectile-switch-to-buffer-map) :caller 'counsel-projectile-switch-to-buffer))))))
  (counsel-projectile-switch-to-buffer)
  (funcall-interactively counsel-projectile-switch-to-buffer)
  (call-interactively counsel-projectile-switch-to-buffer nil nil)
  (command-execute counsel-projectile-switch-to-buffer)
ericdanan commented 4 years ago

Thanks, should be fixed now, please test.