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)