martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lisp/progmodes/gud.el (gud-format-command): Fix last commit

Browse Source 
* lisp/progmodes/gud.el (gud-format-command): Don't use Tramp internal
functions 'tramp-file-name-localname' and 'tramp-dissect-file-name'.
This commit is contained in:
Eli Zaretskii
2015-09-22 13:16:11 +03:00
parent 948059e564
commit 2e19cb4711
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/progmodes/gud.el
View File

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