mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Downcase host names in ansi-osc.el to match URL parsing behavior

Browse source 
* 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:
Brad Howes 2024-01-21 10:07:24 +01:00 • committed by Eli Zaretskii
parent 756daa93b3
commit fc70eced27
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ansi-osc.el
View file

@ -121,7 +121,8 @@ and `shell-dirtrack-mode'."
(let ((url (url-generic-parse-url text))) (let ((url (url-generic-parse-url text)))
(when (and (string= (url-type url) "file") (when (and (string= (url-type url) "file")
(or (null (url-host url)) (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 (ignore-errors
(cd-absolute (url-unhex-string (url-filename url))))))) (cd-absolute (url-unhex-string (url-filename url)))))))