From 127bafdc6dcbcf4b11bff7ec52960bd941613a1c Mon Sep 17 00:00:00 2001 From: Dima Kogan Date: Mon, 21 Sep 2015 13:54:21 +0300 Subject: [PATCH] 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 file changed, 8 insertions(+), 3 deletions(-) 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 -- 2.39.2