Re: master 127bafd: Fix setting breakpoints when remote-debugging

[Michael Albinus]

Eli Zaretskii <address@hidden> writes:

> diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
> index 9ab0667..8b5d490 100644
> --- a/lisp/progmodes/gud.el
> +++ b/lisp/progmodes/gud.el
> @@ -2855,6 +2855,11 @@ Obeying it means displaying in another window the 
> specified file and line."
>  (defun gud-format-command (str arg)
>    (let ((insource (not (eq (current-buffer) gud-comint-buffer)))
>       (frame (or gud-last-frame gud-last-last-frame))
> +     (buffer-file-name-localized
> +      (if (and (buffer-file-name) (file-remote-p (buffer-file-name)))
> +          (tramp-file-name-localname (tramp-dissect-file-name
> +                                      (buffer-file-name) t))
> +        (buffer-file-name)))

Better would be

(buffer-file-name-localized
 (and (buffer-file-name)
      (or (file-remote-p (buffer-file-name) 'localname)
          (buffer-file-name))))

Tramp internal function calls shall be avoided.

Best regards, Michael.