diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2008-08-23 15:46:54 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2008-08-23 15:46:54 +0000 |
| commit | 7131d2616670d2541e4ea165c98a57038be5da87 (patch) | |
| tree | 3c1547620d9185319b67e5c90339412e74122151 /lisp | |
| parent | 631582299ff6ae2d42faf8d3ce7968679729b421 (diff) | |
| download | emacs-7131d2616670d2541e4ea165c98a57038be5da87.tar.gz | |
(gud-common-init): Use absolute file so that
perldb works with tramp (sudo).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/gud.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 7c1970f7aa2..f5e6218a432 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -2502,7 +2502,9 @@ comint mode, which see." (if w (setcar w (if (file-remote-p default-directory) - (setq file (file-name-nondirectory file)) + ;; Tramp has already been loaded if we are here. + (setq file (tramp-file-name-localname + (tramp-dissect-file-name file))) file)))) (apply 'make-comint (concat "gud" filepart) program nil (if massage-args (funcall massage-args file args) args)) |