* progmodes/gud.el (gud-common-init): Check for remoteness of

`file', and not of `default-directory'.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6d329d663ab..7f3fc15e753 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 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
         ssh `tramp-login-args'.
         (tramp-verbose): Describe verbose level 9.
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)))