[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r100922: * progmodes/gud.el (gud-comm
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r100922: * progmodes/gud.el (gud-common-init): Check for remoteness of |
Date: |
Wed, 28 Jul 2010 12:08:16 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 100922
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Wed 2010-07-28 12:08:16 +0200
message:
* progmodes/gud.el (gud-common-init): Check for remoteness of
`file', and not of `default-directory'.
modified:
lisp/ChangeLog
lisp/progmodes/gud.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-07-28 10:02:18 +0000
+++ b/lisp/ChangeLog 2010-07-28 10:08:16 +0000
@@ -1,5 +1,10 @@
2010-07-28 Michael Albinus <address@hidden>
+ * progmodes/gud.el (gud-common-init): Check for remoteness of
+ `file', and not of `default-directory'.
+
+2010-07-28 Michael Albinus <address@hidden>
+
* net/tramp.el (tramp-methods): Move hostname to the end in all
ssh `tramp-login-args'.
(tramp-verbose): Describe verbose level 9.
=== modified file 'lisp/progmodes/gud.el'
--- a/lisp/progmodes/gud.el 2010-03-27 13:27:43 +0000
+++ b/lisp/progmodes/gud.el 2010-07-28 10:08:16 +0000
@@ -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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100922: * progmodes/gud.el (gud-common-init): Check for remoteness of,
Michael Albinus <=