mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues 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))