[Emacs-diffs] master 127bafd: Fix setting breakpoints when remote-debugging

[Eli Zaretskii]

branch: master
commit 127bafdc6dcbcf4b11bff7ec52960bd941613a1c
Author: Dima Kogan <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    Fix setting breakpoints when remote-debugging
    
    * lisp/progmodes/gud.el (gud-format-command): Send localized file
    names to the debugger running on the remote.  (Bug#13304)
---
 lisp/progmodes/gud.el |   11 ++++++++---
 1 files changed, 8 insertions(+), 3 deletions(-)

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)))
        result)
     (while (and str
                (let ((case-fold-search nil))
@@ -2864,15 +2869,15 @@ Obeying it means displaying in another window the 
specified file and line."
        (cond
         ((eq key ?f)
          (setq subst (file-name-nondirectory (if insource
-                                                 (buffer-file-name)
+                                                 buffer-file-name-localized
                                                (car frame)))))
         ((eq key ?F)
          (setq subst (file-name-base (if insource
-                                          (buffer-file-name)
+                                          buffer-file-name-localized
                                         (car frame)))))
         ((eq key ?d)
          (setq subst (file-name-directory (if insource
-                                              (buffer-file-name)
+                                              buffer-file-name-localized
                                             (car frame)))))
         ((eq key ?l)
          (setq subst (int-to-string