summaryrefslogtreecommitdiff
path: root/lisp/ansi-osc.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/ansi-osc.el')
-rw-r--r--lisp/ansi-osc.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ansi-osc.el b/lisp/ansi-osc.el
index 7e686193f69..8dbaeb45132 100644
--- a/lisp/ansi-osc.el
+++ b/lisp/ansi-osc.el
@@ -121,7 +121,8 @@ and `shell-dirtrack-mode'."
(let ((url (url-generic-parse-url text)))
(when (and (string= (url-type url) "file")
(or (null (url-host url))
- (string= (url-host url) (system-name))))
+ ;; Use `downcase' to match `url-generic-parse-url' behavior
+ (string= (url-host url) (downcase (system-name)))))
(ignore-errors
(cd-absolute (url-unhex-string (url-filename url)))))))