[elpa] externals/compat 239e45d33c 12/14: file-name-quoted-p and file-name-quote must be prefixed

[ELPA Syncer]

branch: externals/compat
commit 239e45d33c25d104104cafe019e334d27897498b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    file-name-quoted-p and file-name-quote must be prefixed
    
    The TOP argument got added at some point.
---
 compat-26.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compat-26.el b/compat-26.el
index 6f88888810..86bb2a226d 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -449,7 +449,8 @@ The returned file name can be used directly as argument of
 (compat-defun file-name-quoted-p (name &optional top)
   "Whether NAME is quoted with prefix \"/:\".
 If NAME is a remote file name and TOP is nil, check the local part of NAME."
-  :realname compat--internal-file-name-quoted-p
+  :prefix t
+  :realname compat--file-name-quoted-p-with-top
   (let ((file-name-handler-alist (unless top file-name-handler-alist)))
     (string-prefix-p "/:" (file-local-name name))))
 
@@ -458,8 +459,9 @@ If NAME is a remote file name and TOP is nil, check the 
local part of NAME."
 If NAME is a remote file name and TOP is nil, the local part of
 NAME is quoted.  If NAME is already a quoted file name, NAME is
 returned unchanged."
+  :prefix t
   (let ((file-name-handler-alist (unless top file-name-handler-alist)))
-    (if (compat--internal-file-name-quoted-p name top)
+    (if (compat--file-name-quoted-p-with-top name top)
         name
       (concat (file-remote-p name) "/:" (file-local-name name)))))