[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 127bafd: Fix setting breakpoints when remote-debugg
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master 127bafd: Fix setting breakpoints when remote-debugging |
Date: |
Mon, 21 Sep 2015 10:55:25 +0000 |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 127bafd: Fix setting breakpoints when remote-debugging,
Eli Zaretskii <=