Mercurial > emacs
changeset 109564:ff640a48b313
* progmodes/gud.el (gud-common-init): Check for remoteness of
`file', and not of `default-directory'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Wed, 28 Jul 2010 12:08:16 +0200 |
| parents | 35f14a2258f3 |
| children | c8ed2af278ee |
| files | lisp/ChangeLog lisp/progmodes/gud.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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)))