From b21d3ceb6fb97875725c03b79670cf8c78544b53 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 28 Jul 2010 12:08:16 +0200 Subject: [PATCH] * progmodes/gud.el (gud-common-init): Check for remoteness of `file', and not of `default-directory'. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/gud.el | 4 ++-- 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,3 +1,8 @@ +2010-07-28 Michael Albinus + + * progmodes/gud.el (gud-common-init): Check for remoteness of + `file', and not of `default-directory'. + 2010-07-28 Michael Albinus * 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))) -- 2.39.2