#[(str) ((orderless--highlight input t str)) nil]: Symbol’s value as variable is void: input

[dasoju]

Hi
I tried using wiki snippet "Use Orderless as pattern compiler for consult-grep/ripgrep/find"
https://github.com/minad/consult/wiki/Home/a0e391f8416e98b8d8319d62fb40b64f939b9fd1#use-orderless-as-pattern-compiler-for-consult-grepripgrepfind

and tried consult-ripgrep, but i am running into following error
#[(str) ((orderless--highlight input t str)) nil]: Symbol’s value as variable is void: input [4 times]

Below is the debug error stack

(orderless--highlight input t str)
#f(lambda (str) :dynbind (orderless--highlight input t str))(";; updating to latest org sometimes breaks other packages")
#f(compiled-function (cands) #<bytecode 0x1ccddee900904a24>)(("./init_start.el\000122:;; updating to latest org sometimes breaks other packages" "./init_hydra.el\000170: (("d" open-latest-downloaded-file "Open Latest Downloaded")" "./init_hydra.el\000173: (("l" open-my-latest-screenshot "Latest Screenshot")" "./init_hydra.el\000174: ("r s" my-latest-screenshots "50 Recent Screenshots")" "./init_org.el.bk\00032:;;;; It can be tested by evaluating (org-cycle-hide-drawers 'children), or (org-cycle-hide-drawers 'all)," "./init_org.el.bk\0001159: ;; commenting out since the i dont see the functions in latest org-roam release anymore"))
#f(compiled-function (action) #<bytecode -0xf4a3dd62405865b>)(("./init_start.el\000122:;; updating to latest org sometimes breaks other packages" "./init_hydra.el\000170: (("d" open-latest-downloaded-file "Open Latest Downloaded")" "./init_hydra.el\000173: (("l" open-my-latest-screenshot "Latest Screenshot")" "./init_hydra.el\000174: ("r s" my-latest-screenshots "50 Recent Screenshots")" "./init_org.el.bk\00032:;;;; It can be tested by evaluating (org-cycle-hide-drawers 'children), or (org-cycle-hide-drawers 'all)," "./init_org.el.bk\0001159: ;; commenting out since the i dont see the functions in latest org-roam release anymore"))
#f(compiled-function (_ out) #<bytecode -0xea8a1fe87bf38cf>)(# "./init_start.el\000122:;; updating to latest org sometimes breaks other packages\n./init_hydra.el\000170: (("d" open-latest-downloaded-file "Open Latest Downloaded")\n./init_hydra.el\000173: (("l" open-my-latest-screenshot "Latest Screenshot")\n./init_hydra.el\000174: ("r s" my-latest-screenshots "50 Recent Screenshots")\n./init_org.el.bk\00032:;;;; It can be tested by evaluating (org-cycle-hide-drawers 'children), or (org-cycle-hide-drawers 'all),\n./init_org.el.bk\0001159: ;; commenting out since the i dont see the functions in latest org-roam release anymore\n")
#("Ripgrep (…/emacs/init): " #f(compiled-function (str pred action) #<bytecode -0x15c43cca40c62a43>) nil t nil consult--grep-history nil nil)
apply((# "Ripgrep (…/emacs/init): " #f(compiled-function (str pred action) #<bytecode -0x15c43cca40c62a43>) nil t nil consult--grep-history nil nil))
#f(compiled-function (&rest app) #<bytecode -0xe1827c62c72e43d>)(# "Ripgrep (…/emacs/init): " #f(compiled-function (str pred action) #<bytecode -0x15c43cca40c62a43>) nil t nil consult--grep-history nil nil)
apply(#f(compiled-function (&rest app) #<bytecode -0xe1827c62c72e43d>) (# "Ripgrep (…/emacs/init): " #f(compiled-function (str pred action) #<bytecode -0x15c43cca40c62a43>) nil t nil consult--grep-history nil nil))
vertico--advice(# "Ripgrep (…/emacs/init): " #f(compiled-function (str pred action) #<bytecode -0x15c43cca40c62a43>) nil t nil consult--grep-history nil nil)
apply(vertico--advice # ("Ripgrep (…/emacs/init): " #f(compiled-function (str pred action) #<bytecode -0x15c43cca40c62a43>) nil t nil consult--grep-history nil nil))
completing-read-default("Ripgrep (…/emacs/init): " #f(compiled-function (str pred action) #<bytecode -0x15c43cca40c62a43>) nil t nil consult--grep-history nil nil)
completing-read("Ripgrep (…/emacs/init): " #f(compiled-function (str pred action) #<bytecode -0x15c43cca40c62a43>) nil t nil consult--grep-history nil nil)
#f(compiled-function () #<bytecode 0xbda5609c10a6b5b>)()
consult--with-preview-f((:debounce 0.4 "S-" "S-" "C-o") #f(compiled-function (action cand) #<bytecode -0x300f854f1a67b6c>) #f(compiled-function (narrow input cand) #<bytecode 0x59ef2e7b08a3d5d>) #f(compiled-function (&rest args2) #<bytecode -0x80dfe8636880b83>) consult--grep-history #f(compiled-function () #<bytecode 0xbda5609c10a6b5b>))
#f(compiled-function (table) #<bytecode -0x80158524d50a77b>)(#f(compiled-function (action) #<bytecode -0x1ef515cf14b78378>))
consult--with-async-f(#f(compiled-function (action) #<bytecode -0x1ef515cf14b78378>) #f(compiled-function (table) #<bytecode -0x80158524d50a77b>))
consult--read-1(#f(compiled-function (sink) #<bytecode -0x18ef862dec13ae5c>) :preview-key (:debounce 0.4 "S-" "S-" "C-o") :prompt "Ripgrep (…/emacs/init): " :lookup consult--lookup-member :state #f(compiled-function (action cand) #<bytecode -0x300f854f1a67b6c>) :initial nil :add-history #("init_consult" 0 12 (fontified t help-echo "down-mouse-1: drag this file to another program\nmouse-2: visit this file in other window" mouse-face highlight keymap (keymap (M-down-mouse-1 . dired-mouse-drag) (S-down-mouse-1 . dired-mouse-drag) (C-down-mouse-1 . dired-mouse-drag) (down-mouse-1 . dired-mouse-drag)) dired-filename t)) :require-match t :category consult-grep :group consult--prefix-group :history (:input consult--grep-history) :sort nil :prompt "Select: " :preview-key any :sort t :async-wrap consult--async-wrap :lookup #)
consult--read(#f(compiled-function (sink) #<bytecode -0x18ef862dec13ae5c>) :prompt "Ripgrep (…/emacs/init): " :lookup consult--lookup-member :state #f(compiled-function (action cand) #<bytecode -0x300f854f1a67b6c>) :initial nil :add-history #("init_consult" 0 12 (fontified t help-echo "down-mouse-1: drag this file to another program\nmouse-2: visit this file in other window" mouse-face highlight keymap (keymap (M-down-mouse-1 . dired-mouse-drag) (S-down-mouse-1 . dired-mouse-drag) (C-down-mouse-1 . dired-mouse-drag) (down-mouse-1 . dired-mouse-drag)) dired-filename t)) :require-match t :category consult-grep :group consult--prefix-group :history (:input consult--grep-history) :sort nil)
consult--grep("Ripgrep" consult--ripgrep-make-builder nil nil)
#(nil)
apply((# nil))
(progn (add-hook 'minibuffer-setup-hook setup-hook) (apply args))
(unwind-protect (progn (add-hook 'minibuffer-setup-hook setup-hook) (apply args)) (remove-hook 'minibuffer-setup-hook setup-hook))
(let ((fun #'(lambda nil (set (make-local-variable 'consult--regexp-compiler) #'consult--orderless-regexp-compiler))) (setup-hook (make-symbol "minibuffer-setup"))) (fset setup-hook #'(lambda nil (remove-hook 'minibuffer-setup-hook setup-hook) (funcall fun))) (unwind-protect (progn (add-hook 'minibuffer-setup-hook setup-hook) (apply args)) (remove-hook 'minibuffer-setup-hook setup-hook)))
consult--with-orderless(# nil)
apply(consult--with-orderless # nil)
#f(advice consult--with-orderless :around #)(nil)
apply(#f(advice consult--with-orderless :around #) nil)
#f(advice my-before-consult-set-default-completing-read :before #f(advice consult--with-orderless :around #))(nil)
apply(#f(advice my-before-consult-set-default-completing-read :before #f(advice consult--with-orderless :around #)) nil)
consult-ripgrep(nil)
funcall-interactively(consult-ripgrep nil)
command-execute(consult-ripgrep record)
counsel-M-x-action("consult-ripgrep")
ivy-call()
ivy-read("M-x " ("consult-ripgrep" "toggle-debug-on-error" "consult-ripgrep-this-file" "jira-id-replace-with-link" "buffer-copy-filepath-at-point" "jira-issues" "eval-region" "helm-chrome-bookmarks" "describe-symbol" "restart-emacs" "list-packages" "customize-group" "counsel-projectile-switch-project" "describe-function" "describe-variable" "org-agenda" "counsel-org-search" "org-columns" "org-table-convert-region" "org-babel-evaluate-source-blocks" "org-download-screenshot" "spotlight" "dired-narrow" "use-package-report" "sort-lines" "counsel-descbinds" "eval-expression" "counsel-bookmark" "org-refile" "open-remote-terms" "consult-focus-lines" "artist-mode" "org-roam-node-find" "recover-session" "quick-calc" "edebug-defun" "ranger" "org-table-sort-lines" "apply-macro-to-region-lines" "vundo" "counsel-tramp" "count-words-region" "org-capture" "org-roam-node-insert" "phone-call-work" "consult-fd" "reveal-in-osx-finder" "helm-org-rifle" "byte-compile-file" "desktop-clear" ...) :predicate #f(compiled-function (key &optional val) #<bytecode 0x1ef1c3513e7a6211>) :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)