procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Michael Albinus 2025-02-10 16:37:25 +01:00
parent 55ffbeaab1
commit 0c7214dc97
1 changed files with 7 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/ansi-osc.el
View file

@ -116,19 +116,16 @@ such as with the following command:
printf \"\\e]7;file://%s%s\\e\\\\\" \"$HOSTNAME\" \"$PWD\" 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' This functionality serves as an alternative to `dirtrack-mode'
and `shell-dirtrack-mode'." and `shell-dirtrack-mode'."
(let ((url (url-generic-parse-url text))) (when-let* ((url (url-generic-parse-url text))
(when (and (string= (url-type url) "file") ((string= (url-type url) "file")))
(or (null (url-host url)) (ignore-errors
;; Use `downcase' to match `url-generic-parse-url' behavior (cd-absolute
(string= (url-host url) (downcase (system-name))))) (concat (file-remote-p default-directory)
(ignore-errors (url-unhex-string (url-filename url)))))))
(cd-absolute
(concat (file-remote-p default-directory
(url-unhex-string (url-filename url)))))))))
;; Hyperlink handling (OSC 8) ;; Hyperlink handling (OSC 8)