procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix setting breakpoints when remote-debugging

Browse source 
* lisp/progmodes/gud.el (gud-format-command): Send localized file
names to the debugger running on the remote.  (Bug#13304)
This commit is contained in:
Dima Kogan 2015-09-21 13:54:21 +03:00 • committed by Eli Zaretskii
parent 0a893f0cfa
commit 127bafdc6d
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/gud.el
View file

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