From: Dima Kogan <dima@secretsauce.net>
Date: Mon, 21 Sep 2015 10:54:21 +0000 (+0300)
Subject: Fix setting breakpoints when remote-debugging
X-Git-Tag: emacs-25.0.90~1224^2~58
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=127bafdc6dcbcf4b11bff7ec52960bd941613a1c;p=emacs.git

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)
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 9ab0667b5ba..8b5d4901b28 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