diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2015-09-22 13:16:11 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2015-09-22 13:16:11 +0300 |
| commit | 2e19cb4711e2869e7bb82d64b845ca8bf6fb57c8 (patch) | |
| tree | 40998d088d025cc7344afc66f5e06ed13a38c034 | |
| parent | 948059e564fc485fefa6e9277effa0b7c595745b (diff) | |
| download | emacs-2e19cb4711e2869e7bb82d64b845ca8bf6fb57c8.tar.gz | |
lisp/progmodes/gud.el (gud-format-command): Fix last commit
* lisp/progmodes/gud.el (gud-format-command): Don't use Tramp internal
functions 'tramp-file-name-localname' and 'tramp-dissect-file-name'.
| -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)) |