From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 22 Sep 2015 10:16:11 +0000 (+0300)
Subject: lisp/progmodes/gud.el (gud-format-command): Fix last commit
X-Git-Tag: emacs-25.0.90~1224^2~44
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e19cb4711e2869e7bb82d64b845ca8bf6fb57c8;p=emacs.git

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'.
---

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