diff --git a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-vertico.el b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-vertico.el
index 01d59718..5228aa7d 100644
--- a/emacs/.emacs.d/prot-emacs-modules/prot-emacs-vertico.el
+++ b/emacs/.emacs.d/prot-emacs-modules/prot-emacs-vertico.el
@@ -30,7 +30,7 @@
           (unicode-name ,@prot-vertico-multiform-maximal)
           ;; Minimal
           (file ,@prot-vertico-multiform-minimal
-                (vertico-sort-function . prot-vertico-sort-directories-first))
+                (vertico-sort-function . vertico-sort-directories-first))
           (t ,@prot-vertico-multiform-minimal)))
 
   (vertico-multiform-mode 1)
diff --git a/emacs/.emacs.d/prot-emacs.org b/emacs/.emacs.d/prot-emacs.org
index 28781e49..1dcb1290 100644
--- a/emacs/.emacs.d/prot-emacs.org
+++ b/emacs/.emacs.d/prot-emacs.org
@@ -5285,7 +5285,7 @@ The extras I provide for ~vertico~ are in [[#h:3796a4c9-8659-4782-8aaa-3cf4e9509
           (unicode-name ,@prot-vertico-multiform-maximal)
           ;; Minimal
           (file ,@prot-vertico-multiform-minimal
-                (vertico-sort-function . prot-vertico-sort-directories-first))
+                (vertico-sort-function . vertico-sort-directories-first))
           (t ,@prot-vertico-multiform-minimal)))
 
   (vertico-multiform-mode 1)
@@ -17732,17 +17732,6 @@ automatically.")
     (vertico-resize . t))
   "List of configurations for maximal Vertico multiform.")
 
-(defun prot-vertico--match-directory (str)
-  "Match directory delimiter in STR."
-  (string-suffix-p "/" str))
-
-;; From the Vertico documentation.
-(defun prot-vertico-sort-directories-first (files)
-  "Sort directories before FILES."
-  (setq files (vertico-sort-alpha files))
-  (nconc (seq-filter #'prot-vertico--match-directory files)
-         (seq-remove #'prot-vertico--match-directory files)))
-
 (defun prot-vertico-private-next ()
   "Like `vertico-next' but toggle vertical view if needed.
 This is done to accommodate `prot-vertico-multiform-minimal'."
diff --git a/emacs/.emacs.d/prot-lisp/prot-vertico.el b/emacs/.emacs.d/prot-lisp/prot-vertico.el
index 8f4afae2..bb6ace3d 100644
--- a/emacs/.emacs.d/prot-lisp/prot-vertico.el
+++ b/emacs/.emacs.d/prot-lisp/prot-vertico.el
@@ -59,17 +59,6 @@ automatically.")
     (vertico-resize . t))
   "List of configurations for maximal Vertico multiform.")
 
-(defun prot-vertico--match-directory (str)
-  "Match directory delimiter in STR."
-  (string-suffix-p "/" str))
-
-;; From the Vertico documentation.
-(defun prot-vertico-sort-directories-first (files)
-  "Sort directories before FILES."
-  (setq files (vertico-sort-alpha files))
-  (nconc (seq-filter #'prot-vertico--match-directory files)
-         (seq-remove #'prot-vertico--match-directory files)))
-
 (defun prot-vertico-private-next ()
   "Like `vertico-next' but toggle vertical view if needed.
 This is done to accommodate `prot-vertico-multiform-minimal'."