* lisp/ansi-osc.el (ansi-osc-directory-tracker): Don't check host name.

1 files changed, 7 insertions, 10 deletions

diff --git a/lisp/ansi-osc.el b/lisp/ansi-osc.el
index 2a93b582479..97d6f6c8754 100644
--- a/lisp/ansi-osc.el
+++ b/lisp/ansi-osc.el
@@ -116,19 +116,16 @@ such as with the following command:
 
     printf \"\\e]7;file://%s%s\\e\\\\\" \"$HOSTNAME\" \"$PWD\"
 
-`default-directory' remote file name forms are maintained.
+A remote `default-directory' is maintained.
 
 This functionality serves as an alternative to `dirtrack-mode'
 and `shell-dirtrack-mode'."
-  (let ((url (url-generic-parse-url text)))
-    (when (and (string= (url-type url) "file")
-               (or (null (url-host url))
-                   ;; Use `downcase' to match `url-generic-parse-url' behavior
-                   (string= (url-host url) (downcase (system-name)))))
-      (ignore-errors
-        (cd-absolute
-         (concat (file-remote-p default-directory
-                                (url-unhex-string (url-filename url)))))))))
+  (when-let* ((url (url-generic-parse-url text))
+              ((string= (url-type url) "file")))
+    (ignore-errors
+      (cd-absolute
+       (concat (file-remote-p default-directory)
+               (url-unhex-string (url-filename url)))))))
 
 ;; Hyperlink handling (OSC 8)