search

Townk / org-ol-tree

An Org mode outline window that does not use indirect buffers
MIT License
80 stars 4 forks source link

invalid-function evil-define-key #10

Closed Jake-Moss closed 3 years ago

Jake-Moss commented 3 years ago

After updating the package using doom sync org-ol-tree/display-sections raises (invalid-function evil-define-key).

Unfortunately I couldn't find the specific commit that introduced. A backtrace is bellow

Debugger entered--Lisp error: (invalid-function evil-define-key)
  evil-define-key((normal) (keymap (right . org-ol-tree-navigation--expand-current) (left . org-ol-tree-navigation--collapse-current) (double-mouse-1 . org-ol-tree-input--doubleclick-action) (mouse-1 . org-ol-tree-input--leftclick-action)) "h" org-ol-tree-navigation--collapse-current "l" org-ol-tree-navigation--expand-current [left] org-ol-tree-navigation--collapse-current [right] org-ol-tree-navigation--expand-current)
  byte-code("\10\203\22\0\302\303\11\304\305\306\307\310\305\311\307&\n\210\302\207" [org-ol-tree-packages--evil-p org-ol-tree-mode-map evil-define-key (normal) "h" org-ol-tree-navigation--collapse-current "l" org-ol-tree-navigation--expand-current [left] [right]] 11)
  #<subr autoload-do-load>((autoload "org-ol-tree" ("/home/jake/.emacs.d/.local/autoloads.28.0.50.elc" . 869623) t nil) org-ol-tree/display-sections nil)
  apply(#<subr autoload-do-load> ((autoload "org-ol-tree" ("/home/jake/.emacs.d/.local/autoloads.28.0.50.elc" . 869623) t nil) org-ol-tree/display-sections nil))
  autoload-do-load((autoload "org-ol-tree" ("/home/jake/.emacs.d/.local/autoloads.28.0.50.elc" . 869623) t nil) org-ol-tree/display-sections nil)
  command-execute(org-ol-tree/display-sections record)
  counsel-M-x-action("org-ol-tree/display-sections")
  funcall(counsel-M-x-action "org-ol-tree/display-sections")
  (if ivy-marked-candidates (ivy--call-marked action) (funcall action x))
  (unwind-protect (if ivy-marked-candidates (ivy--call-marked action) (funcall action x)) (ivy-recursive-restore))
  (prog1 (unwind-protect (if ivy-marked-candidates (ivy--call-marked action) (funcall action x)) (ivy-recursive-restore)) (if (or (eq ivy-exit 'done) (minibuffer-window-active-p (selected-window)) (null (active-minibuffer-window))) nil (select-window (active-minibuffer-window))))
  (cond ((null action) current) (t (select-window (ivy--get-window ivy-last)) (set-buffer (progn (or (progn (and (memq ... cl-struct-ivy-state-tags) t)) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 13))) (prog1 (unwind-protect (if ivy-marked-candidates (ivy--call-marked action) (funcall action x)) (ivy-recursive-restore)) (if (or (eq ivy-exit 'done) (minibuffer-window-active-p (selected-window)) (null (active-minibuffer-window))) nil (select-window (active-minibuffer-window))))))
  (let* ((action (if (functionp ivy-inhibit-action) ivy-inhibit-action (and (not ivy-inhibit-action) (ivy--get-action ivy-last)))) (current (progn (or (progn (and (memq ... cl-struct-ivy-state-tags) t)) (signal 'wrong-type-argument (list 'ivy-state ivy-last))) (aref ivy-last 23))) (x (ivy--call-cand current)) (res (cond ((null action) current) (t (select-window (ivy--get-window ivy-last)) (set-buffer (progn (or ... ...) (aref ivy-last 13))) (prog1 (unwind-protect (if ivy-marked-candidates ... ...) (ivy-recursive-restore)) (if (or ... ... ...) nil (select-window ...))))))) (if ivy-inhibit-action res current))
  ivy-call()
  (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 (progn ...) (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 (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))))))("M-x " ("toggle-debug-on-error" "org-ol-tree/display-sections" "magit-checkout" "magit-reset" "magit-clone" "undo-tree-visualize" "describe-function" "server-shutdown" "load-theme" "sync-with-dropbox" "screenshot" "lsp-org" "lsp-describe-session" "+python/open-repl" "org-babel-tangle" "org-babel-detangle" "read-only-mode" "org-set-tags-command" "lsp-ui-mode" "describe-variable" "doom/reload" "bookmark-set" "doom/sudo-this-file" "doom/open-scratch-buffer" "doom/toggle-narrow-buffer" "+lookup/documentation" "+vterm/here" "flyspell-buffer" "org-babel-execute-buffer" "lsp-workspace-folders-open" "lsp-workspace-folders-remove" "lsp-rename" "run-python" "+zen/toggle" "describe-key" "describe-font" "eww-open-file" "auto-fill-mode" "+debugger:start" "ace-swap-window" "doom-debug-mode" "flycheck-buffer" "line-number-mode" "mixed-pitch-mode" "+lookup/references" "doom-big-font-mode" "yas/describe-tables" "lsp-ivy-workspace-symbol" "pkg-info-package-version" "lsp-workspace-folders-add" ...) :predicate #<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_32> :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
  ivy-posframe--read((closure (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)))))) "M-x " ("toggle-debug-on-error" "org-ol-tree/display-sections" "magit-checkout" "magit-reset" "magit-clone" "undo-tree-visualize" "describe-function" "server-shutdown" "load-theme" "sync-with-dropbox" "screenshot" "lsp-org" "lsp-describe-session" "+python/open-repl" "org-babel-tangle" "org-babel-detangle" "read-only-mode" "org-set-tags-command" "lsp-ui-mode" "describe-variable" "doom/reload" "bookmark-set" "doom/sudo-this-file" "doom/open-scratch-buffer" "doom/toggle-narrow-buffer" "+lookup/documentation" "+vterm/here" "flyspell-buffer" "org-babel-execute-buffer" "lsp-workspace-folders-open" "lsp-workspace-folders-remove" "lsp-rename" "run-python" "+zen/toggle" "describe-key" "describe-font" "eww-open-file" "auto-fill-mode" "+debugger:start" "ace-swap-window" "doom-debug-mode" "flycheck-buffer" "line-number-mode" "mixed-pitch-mode" "+lookup/references" "doom-big-font-mode" "yas/describe-tables" "lsp-ivy-workspace-symbol" "pkg-info-package-version" "lsp-workspace-folders-add" ...) :predicate #<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_32> :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
  apply(ivy-posframe--read (closure (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)))))) ("M-x " ("toggle-debug-on-error" "org-ol-tree/display-sections" "magit-checkout" "magit-reset" "magit-clone" "undo-tree-visualize" "describe-function" "server-shutdown" "load-theme" "sync-with-dropbox" "screenshot" "lsp-org" "lsp-describe-session" "+python/open-repl" "org-babel-tangle" "org-babel-detangle" "read-only-mode" "org-set-tags-command" "lsp-ui-mode" "describe-variable" "doom/reload" "bookmark-set" "doom/sudo-this-file" "doom/open-scratch-buffer" "doom/toggle-narrow-buffer" "+lookup/documentation" "+vterm/here" "flyspell-buffer" "org-babel-execute-buffer" "lsp-workspace-folders-open" "lsp-workspace-folders-remove" "lsp-rename" "run-python" "+zen/toggle" "describe-key" "describe-font" "eww-open-file" "auto-fill-mode" "+debugger:start" "ace-swap-window" "doom-debug-mode" "flycheck-buffer" "line-number-mode" "mixed-pitch-mode" "+lookup/references" "doom-big-font-mode" "yas/describe-tables" "lsp-ivy-workspace-symbol" "pkg-info-package-version" "lsp-workspace-folders-add" ...) :predicate #<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_32> :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x))
  ivy-read("M-x " ("toggle-debug-on-error" "org-ol-tree/display-sections" "magit-checkout" "magit-reset" "magit-clone" "undo-tree-visualize" "describe-function" "server-shutdown" "load-theme" "sync-with-dropbox" "screenshot" "lsp-org" "lsp-describe-session" "+python/open-repl" "org-babel-tangle" "org-babel-detangle" "read-only-mode" "org-set-tags-command" "lsp-ui-mode" "describe-variable" "doom/reload" "bookmark-set" "doom/sudo-this-file" "doom/open-scratch-buffer" "doom/toggle-narrow-buffer" "+lookup/documentation" "+vterm/here" "flyspell-buffer" "org-babel-execute-buffer" "lsp-workspace-folders-open" "lsp-workspace-folders-remove" "lsp-rename" "run-python" "+zen/toggle" "describe-key" "describe-font" "eww-open-file" "auto-fill-mode" "+debugger:start" "ace-swap-window" "doom-debug-mode" "flycheck-buffer" "line-number-mode" "mixed-pitch-mode" "+lookup/references" "doom-big-font-mode" "yas/describe-tables" "lsp-ivy-workspace-symbol" "pkg-info-package-version" "lsp-workspace-folders-add" ...) :predicate #<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_32> :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
  counsel-M-x()
  funcall-interactively(counsel-M-x)
  command-execute(counsel-M-x)
Townk commented 3 years ago

The issue was most likely introduced by 6dcafc4 at this line.

I honestly don't understand why this is happening on your box. Are you not using evil?

If you look into the code that introduced the error:

(when org-ol-tree-packages--evil-p
  (evil-define-key '(normal) org-ol-tree-mode-map
    "h" #'org-ol-tree-navigation--collapse-current
    "l" #'org-ol-tree-navigation--expand-current
    (kbd "<left>") #'org-ol-tree-navigation--collapse-current
    (kbd "<right>") #'org-ol-tree-navigation--expand-current
    ))

You can see that I only use the evil-define-key if org-ol-tree-packages--evil-p is not nil. And here is how I populate org-ol-tree-packages--evil-p:

(defconst org-ol-tree-packages--evil-p (require 'evil-core nil 'noerror)
  "Constant indicating if package evil is installed.")

As far as I understood from the lisp documentation, when calling require with 'noerror, if Emacs can't load the requested feature, it returns nil. So, in theory, the use of evil-define-key should only happen if evil-core is loaded (which is the feature that defines evil-define-key).

I'll try to use fboundp on the check to see if this gets any better on the next patch.

Jake-Moss commented 3 years ago

This is working now. I do use evil so I have no idea what was happening either