From: Michael Albinus <michael.albinus@gmx.de>
Date: Wed, 28 Jul 2010 10:08:16 +0000 (+0200)
Subject: * progmodes/gud.el (gud-common-init): Check for remoteness of
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~49^2~117
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b21d3ceb6fb97875725c03b79670cf8c78544b53;p=emacs.git

* progmodes/gud.el (gud-common-init): Check for remoteness of
`file', and not of `default-directory'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6d329d663ab..7f3fc15e753 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-28  Michael Albinus  <michael.albinus@gmx.de>
+
+	* progmodes/gud.el (gud-common-init): Check for remoteness of
+	`file', and not of `default-directory'.
+
 2010-07-28  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-methods): Move hostname to the end in all
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index da38a086782..d20a14682c7 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -145,7 +145,7 @@ Used to grey out relevant toolbar icons.")
            (gud-call "suspend"))
           ((eq gud-minor-mode 'gdbmi)
            (gud-call (gdb-gud-context-command "-exec-interrupt")))
-          (t 
+          (t
            (comint-interrupt-subjob)))))
 
 (easy-mmode-defmap gud-menu-map
@@ -2513,7 +2513,7 @@ comint mode, which see."
 	(setq w (cdr w)))
       (if w
  	  (setcar w
- 		  (if (file-remote-p default-directory)
+ 		  (if (file-remote-p file)
 		      ;; Tramp has already been loaded if we are here.
 		      (setq file (tramp-file-name-localname
 				  (tramp-dissect-file-name file)))