Downcase host names in ansi-osc.el to match URL parsing behavior
* lisp/ansi-osc.el (ansi-osc-directory-tracker): Compare with 'system-name' case-insensitively. (Bug#68632) Copyright-paperwork-exempt: yes
This commit is contained in:
parent
756daa93b3
commit
fc70eced27
1 changed files with 2 additions and 1 deletions
|
@ -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)))))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue