diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | 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 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 |