* 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 6d329d663abb5d6dbfd73db6113c732a709d222a..7f3fc15e7535862a0f7bbcd21c17468613c0b5ea 100644 (file)
--- 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 da38a086782e296ac2e1d59eb03cef5bef27b9a8..d20a14682c7a8b89e3084fbbcea4250833df14dd 100644 (file)
--- 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)))