diff --git a/modules/completion/vertico/autoload/vertico.el b/modules/completion/vertico/autoload/vertico.el index ecaacd7cd..2fc7c2930 100644 --- a/modules/completion/vertico/autoload/vertico.el +++ b/modules/completion/vertico/autoload/vertico.el @@ -103,15 +103,16 @@ If ARG (universal argument), include all files, even hidden or compressed ones." (expand-file-name new-path)))))) (call-interactively 'backward-delete-char)))) -(defun +vertico--embark-target-package () - "Targets Doom's package! statements and returns the package name" - (when (or (derived-mode-p 'emacs-lisp-mode) (derived-mode-p 'org-mode)) - (save-excursion - (search-backward "(") - (when (looking-at "(\\s-*package!\\s-*\\(\\(\\sw\\|\\s_\\)+\\)\\s-*") - (let ((pkg (match-string 1))) - (set-text-properties 0 (length pkg) nil pkg) - `(package . ,pkg)))))) +;;;###autoload +(defun +vertico-embark-target-package-fn () + "Targets Doom's package! statements and returns the package name" + (when (or (derived-mode-p 'emacs-lisp-mode) (derived-mode-p 'org-mode)) + (save-excursion + (search-backward "(") + (when (looking-at "(\\s-*package!\\s-*\\(\\(\\sw\\|\\s_\\)+\\)\\s-*") + (let ((pkg (match-string 1))) + (set-text-properties 0 (length pkg) nil pkg) + `(package . ,pkg)))))) ;;;###autoload (defun +vertico/embark-export-write () diff --git a/modules/completion/vertico/config.el b/modules/completion/vertico/config.el index 11ee09a8c..4a74af75c 100644 --- a/modules/completion/vertico/config.el +++ b/modules/completion/vertico/config.el @@ -152,7 +152,7 @@ overrides `completion-styles' during company completion sessions.") (length embark-target-finders)))) (cl-callf2 cons - '+vertico--embark-target-package + '+vertico-embark-target-package-fn (nthcdr pos embark-target-finders))) (setq embark-package-map (make-sparse-keymap)) (map! (:map embark-file-map