Thanks for reading carefully. I need some coffee (it's early morning where I am).



On Mon, Feb 10, 2025 at 6:21 AM Visuwesh <visuweshm@gmail.com> wrote:
[திங்கள் பிப்ரவரி 10, 2025] Ship Mints wrote:

> * lisp/ansi-osc.el (ansi-osc-directory-tracker):
> If 'default-directory' is a Tramp remote-file form, retain that form
> when 'default-directory' changes are detected.
> ---
>  etc/NEWS         | 6 ++++++
>  lisp/ansi-osc.el | 9 ++++++++-
>  2 files changed, 14 insertions(+), 1 deletion(-)
>
> diff --git a/etc/NEWS b/etc/NEWS
> index acaa88d5574..052d4666b24 100644
> --- a/etc/NEWS
> +++ b/etc/NEWS
> @@ -533,6 +533,12 @@ It removes all the buttons in the specified region.
>  'comint-complete-input-ring' ('C-x <up>') is like 'minibuffer-complete-history'
>  but completes on comint inputs.

> +---
> +*** ansi-osc-directory-tracker now respects Tramp remote files.
> +Tramp remote forms are now retained when changes to 'default-directory'
> +are detected by this filter.  Previously, /ssh:hostname:/home/username
> +would be stripped to just /home/username.
> +
>  ** Eshell

>  ---
> diff --git a/lisp/ansi-osc.el b/lisp/ansi-osc.el
> index bbd75033ba0..30b7d1ad738 100644
> --- a/lisp/ansi-osc.el
> +++ b/lisp/ansi-osc.el
> @@ -106,6 +106,9 @@ ansi-osc-window-title-handler
>  (declare-function url-host "url/url-parse.el")
>  (declare-function url-type "url/url-parse.el")
>  (declare-function url-filename "url/url-parse.el")
> +(declare-function tramp-tramp-file-p "tramp")
> +(declare-function tramp-make-tramp-file-name "tramp")
> +(declare-function tramp-dissect-file-name "tramp")
>  (defun ansi-osc-directory-tracker (_ text)
>    "Update `default-directory' from OSC 7 escape sequences.

This hunk can be removed now right?