[elpa] externals/compat 6e94ce40b2 8/8: Remove :realname

[ELPA Syncer]

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

    Remove :realname
---
 compat-26.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compat-26.el b/compat-26.el
index fe0162b7bc..b7cee70da4 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -440,7 +440,6 @@ The returned file name can be used directly as argument of
   "Whether NAME is quoted with prefix \"/:\".
 If NAME is a remote file name and TOP is nil, check the local part of NAME."
   :explicit 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))))
 
@@ -451,7 +450,7 @@ NAME is quoted.  If NAME is already a quoted file name, 
NAME is
 returned unchanged."
   :explicit t
   (let ((file-name-handler-alist (unless top file-name-handler-alist)))
-    (if (compat--file-name-quoted-p-with-top name top)
+    (if (string-prefix-p "/:" (file-local-name name))
         name
       (concat (file-remote-p name) "/:" (file-local-name name)))))