From: Po Lu <luangruo@yahoo.com>
Date: Mon, 25 Jul 2022 02:08:37 +0000 (+0800)
Subject: Fix typo in x-dnd-tests.el
X-Git-Tag: emacs-29.0.90~1447^2~761
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a85545f2dcd5526f20d42a50995ebc328f969cd;p=emacs.git

Fix typo in x-dnd-tests.el

* test/lisp/x-dnd-tests.el (x-begin-drag): Avoid extra leading /
in file names.  (bug#56712)
---

diff --git a/test/lisp/x-dnd-tests.el b/test/lisp/x-dnd-tests.el
index ef9c8aada28..55994e9b724 100644
--- a/test/lisp/x-dnd-tests.el
+++ b/test/lisp/x-dnd-tests.el
@@ -124,8 +124,8 @@ Return the result of the selection."
                      (format "file://%s%s" (system-name)
                              (expand-file-name x-dnd-tests-xds-property-value
                                                x-dnd-tests-xds-target-dir))
-                   (concat "file:///" (expand-file-name x-dnd-tests-xds-property-value
-                                                        x-dnd-tests-xds-target-dir)))))
+                   (concat "file://" (expand-file-name x-dnd-tests-xds-property-value
+                                                       x-dnd-tests-xds-target-dir)))))
         (setq x-dnd-tests-xds-property-value
               (encode-coding-string (url-encode-url uri)
                                     'raw-text)))