[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2e19cb4: lisp/progmodes/gud.el (gud-format-command)
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master 2e19cb4: lisp/progmodes/gud.el (gud-format-command): Fix last commit |
Date: |
Tue, 22 Sep 2015 10:17:14 +0000 |
branch: master
commit 2e19cb4711e2869e7bb82d64b845ca8bf6fb57c8
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
lisp/progmodes/gud.el (gud-format-command): Fix last commit
* lisp/progmodes/gud.el (gud-format-command): Don't use Tramp internal
functions 'tramp-file-name-localname' and 'tramp-dissect-file-name'.
---
lisp/progmodes/gud.el | 7 +++----
1 files changed, 3 insertions(+), 4 deletions(-)
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 8b5d490..1284ef2 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -2856,10 +2856,9 @@ Obeying it means displaying in another window the
specified file and line."
(let ((insource (not (eq (current-buffer) gud-comint-buffer)))
(frame (or gud-last-frame gud-last-last-frame))
(buffer-file-name-localized
- (if (and (buffer-file-name) (file-remote-p (buffer-file-name)))
- (tramp-file-name-localname (tramp-dissect-file-name
- (buffer-file-name) t))
- (buffer-file-name)))
+ (and (buffer-file-name)
+ (or (file-remote-p (buffer-file-name) 'localname)
+ (buffer-file-name))))
result)
(while (and str
(let ((case-fold-search nil))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2e19cb4: lisp/progmodes/gud.el (gud-format-command): Fix last commit,
Eli Zaretskii <=