mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

* progmodes/gud.el (gud-common-init): Check for remoteness of

Browse Source 
`file', and not of `default-directory'.
This commit is contained in:
Michael Albinus 2010-07-28 12:08:16 +02:00
parent 8fbcce2d5a
commit b21d3ceb6f
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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

4
lisp/progmodes/gud.el
View File

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