[elpa] externals/compat 268eb0bc22 04/14: Remove compat--internal-file-local-name

[ELPA Syncer]

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

    Remove compat--internal-file-local-name
---
 compat-26.el | 5 ++---
 compat-27.el | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/compat-26.el b/compat-26.el
index bd97b7d34a..5aabb89513 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -445,7 +445,6 @@ and the method of accessing the host, leaving only the part 
that
 identifies FILE locally on the remote system.
 The returned file name can be used directly as argument of
 `process-file', `start-file-process', or `shell-command'."
-  :realname compat--internal-file-local-name
   (or (file-remote-p file 'localname) file))
 
 (compat-defun file-name-quoted-p (name &optional top)
@@ -453,7 +452,7 @@ The returned file name can be used directly as argument of
 If NAME is a remote file name and TOP is nil, check the local part of NAME."
   :realname compat--internal-file-name-quoted-p
   (let ((file-name-handler-alist (unless top file-name-handler-alist)))
-    (string-prefix-p "/:" (compat--internal-file-local-name name))))
+    (string-prefix-p "/:" (file-local-name name))))
 
 (compat-defun file-name-quote (name &optional top)
   "Add the quotation prefix \"/:\" to file NAME.
@@ -463,7 +462,7 @@ returned unchanged."
   (let ((file-name-handler-alist (unless top file-name-handler-alist)))
     (if (compat--internal-file-name-quoted-p name top)
         name
-      (concat (file-remote-p name) "/:" (compat--internal-file-local-name 
name)))))
+      (concat (file-remote-p name) "/:" (file-local-name name)))))
 
 ;;* UNTESTED
 (compat-defun temporary-file-directory ()
diff --git a/compat-27.el b/compat-27.el
index 7c7bf509f3..a463078c28 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -644,7 +644,7 @@ REMOTE is non-nil, search on the remote host indicated by
                     #'concat (file-remote-p default-directory))
                    (compat--internal-exec-path))
                   exec-suffixes 'file-executable-p)))
-        (when (stringp res) (compat--file-local-name res)))
+        (when (stringp res) (file-local-name res)))
     (executable-find command)))
 
 ;;*UNTESTED