[elpa] externals/compat 933cf6b365 3/7: Add file-name-quote

[ELPA Syncer]

branch: externals/compat
commit 933cf6b365161744e1f791cb852274cd38e62b85
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add file-name-quote
---
 MANUAL          |  1 +
 compat-26.el    | 10 ++++++++++
 compat-tests.el | 11 +++++++++++
 3 files changed, 22 insertions(+)

diff --git a/MANUAL b/MANUAL
index 307311ecd1..373e220bd9 100644
--- a/MANUAL
+++ b/MANUAL
@@ -231,6 +231,7 @@ provided by Compat by default:
 - Macro: and-let* :: Defined in ~subr-x.el~.
 - Function: file-local-name :: See [[info:elisp#Magic File Names][(elisp) 
Magic File Names]].
 - Function: file-name-quoted-p :: See [[info:elisp#File Name 
Expansion][(elisp) File Name Expansion]].
+- Function: file-name-quote :: See [[info:elisp#File Name Expansion][(elisp) 
File Name Expansion]].
 
 These functions are prefixed with ~compat~ prefix, and are only loaded
 when ~compat-26~ is required:
diff --git a/compat-26.el b/compat-26.el
index e8c8ca8d7c..d3c8b5c6c4 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -362,6 +362,16 @@ If NAME is a remote file name and TOP is nil, check the 
local part of NAME."
   (let ((file-name-handler-alist (unless top file-name-handler-alist)))
     (string-prefix-p "/:" (compat--file-local-name name))))
 
+(compat-defun file-name-quote (name &optional top)
+  "Add the quotation prefix \"/:\" to file 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."
+  (let ((file-name-handler-alist (unless top file-name-handler-alist)))
+    (if (compat--file-name-quoted-p name top)
+        name
+      (concat (file-remote-p name) "/:" (compat--file-local-name name)))))
+
 ;;* UNTESTED
 (compat-defun temporary-file-directory ()
   "The directory for writing temporary files.
diff --git a/compat-tests.el b/compat-tests.el
index 1ae907a644..c4089831bd 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1588,5 +1588,16 @@ being compared against."
   (ought t "/ssh::/:a")
   (ought nil "/ssh:/:a"))
 
+(compat-deftest file-name-quote
+  (ought "/:" "")
+  (ought "/::" ":")
+  (ought "/:/" "/")
+  (ought "/:" "/:")
+  (ought "/:a" "a")
+  (ought "/::a" ":a")
+  (ought "/:/a" "/a")
+  (ought "/:a" "/:a")
+  (ought (concat "/ssh:" (system-name) ":/:a") "/ssh::a"))
+
 (provide 'compat-tests)
 ;;; compat-tests.el ends here