emacs-diffs
[Top][All Lists]
Advanced

[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)))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]