fix(vertico): unreachable function in autoloads

+ Rename +vertico--embark-target-package to
  +vertico-embark-target-package-fn to conform to naming conventions,
  and because it's not a private function anymore.
+ Fix +vertico-embark-target-package-fn's indentation.

Fix #5208
This commit is contained in:
Henrik Lissner 2021-07-28 11:51:19 -04:00
parent 2d56dd73dc
commit 551e5adf81
2 changed files with 11 additions and 10 deletions

View file

@ -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 ()