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:
parent
2d56dd73dc
commit
551e5adf81
2 changed files with 11 additions and 10 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue