[elpa] externals/vertico f4a473ffd6 2/2: Use buffer-substring-no-properties

[ELPA Syncer]

branch: externals/vertico
commit f4a473ffd6816478ff0486c6646cc5176b6ae5a7
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use buffer-substring-no-properties
---
 extensions/vertico-directory.el |  9 +++++----
 extensions/vertico-multiform.el | 10 +++++-----
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/extensions/vertico-directory.el b/extensions/vertico-directory.el
index 241537143e..638c0028c7 100644
--- a/extensions/vertico-directory.el
+++ b/extensions/vertico-directory.el
@@ -27,9 +27,9 @@
 ;;; Commentary:
 
 ;; This package is a Vertico extension, which provides Ido-like
-;; directory navigation commands. The commands can be bound in the
-;; `vertico-map'. Furthermore a cleanup function for shadowed file paths
-;; is provided.
+;; directory navigation commands.  The commands can be bound in the
+;; `vertico-map'.  Furthermore a cleanup function for shadowed file
+;; paths is provided.
 ;;
 ;; (keymap-set vertico-map "RET" #'vertico-directory-enter)
 ;; (keymap-set vertico-map "DEL" #'vertico-directory-delete-char)
@@ -72,7 +72,8 @@ Exit with current input if prefix ARG is given."
   (interactive "p")
   (when (and (> (point) (minibuffer-prompt-end))
              (eq 'file (vertico--metadata-get 'category)))
-    (let ((path (buffer-substring (minibuffer-prompt-end) (point))) found)
+    (let ((path (buffer-substring-no-properties (minibuffer-prompt-end) 
(point)))
+          found)
       (when (string-match-p "\\`~[^/]*/\\'" path)
         (delete-minibuffer-contents)
         (insert (expand-file-name path)))
diff --git a/extensions/vertico-multiform.el b/extensions/vertico-multiform.el
index ab81d7ffa6..b9143f1dc2 100644
--- a/extensions/vertico-multiform.el
+++ b/extensions/vertico-multiform.el
@@ -106,11 +106,11 @@ The keys in LIST can be symbols or regexps."
 (defun vertico-multiform--setup ()
   "Enable modes at minibuffer setup."
   (let ((cat (completion-metadata-get
-              (completion-metadata
-               (buffer-substring (minibuffer-prompt-end)
-                                 (max (minibuffer-prompt-end) (point)))
-               minibuffer-completion-table
-               minibuffer-completion-predicate)
+              (completion-metadata (buffer-substring-no-properties
+                                    (minibuffer-prompt-end)
+                                    (max (minibuffer-prompt-end) (point)))
+                                   minibuffer-completion-table
+                                   minibuffer-completion-predicate)
               'category))
         (exit (make-symbol "vertico-multiform--exit"))
         (depth (recursion-depth))