diff options
| -rw-r--r-- | lisp/progmodes/gud.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 8b5d4901b28..1284ef2857a 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -2856,10 +2856,9 @@ Obeying it means displaying in another window the specified file and line." (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))) + (and (buffer-file-name) + (or (file-remote-p (buffer-file-name) 'localname) + (buffer-file-name)))) result) (while (and str (let ((case-fold-search nil)) |