# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1280311696 -7200
# Node ID ff640a48b3139c66734ee2aeaa6c986fed2f95cd
# Parent  35f14a2258f34ddb59a9d9870116793eda3f607c
* progmodes/gud.el (gud-common-init): Check for remoteness of
`file', and not of `default-directory'.

diff -r 35f14a2258f3 -r ff640a48b313 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jul 28 12:02:18 2010 +0200
+++ b/lisp/ChangeLog	Wed Jul 28 12:08:16 2010 +0200
@@ -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 -r 35f14a2258f3 -r ff640a48b313 lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Wed Jul 28 12:02:18 2010 +0200
+++ b/lisp/progmodes/gud.el	Wed Jul 28 12:08:16 2010 +0200
@@ -145,7 +145,7 @@
            (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 @@
 	(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)))