From 942415f397bd75cdc9eaf567a29cb64b96eecc5e Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 6 Aug 2010 15:53:59 +0200 Subject: [PATCH] * comint.el (comint-mode): Make directory tracking functions functional on remote files. (Bug#6764) --- lisp/ChangeLog | 5 +++++ lisp/comint.el | 3 +++ 2 files changed, 8 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e09f857af0..67ff0d92079 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-08-06 Jürgen Hötzel + + * comint.el (comint-mode): Make directory tracking functions + functional on remote files. (Bug#6764) + 2010-08-06 Dan Nicolaescu * vc/diff-mode.el (diff-mode-shared-map): Bind g to revert-buffer. diff --git a/lisp/comint.el b/lisp/comint.el index 071537ffd89..128965fc11f 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -674,6 +674,9 @@ Entry to this mode runs the hooks on `comint-mode-hook'." (make-local-variable 'comint-process-echoes) (make-local-variable 'comint-file-name-chars) (make-local-variable 'comint-file-name-quote-list) + ;; dir tracking on remote files + (set (make-local-variable 'comint-file-name-prefix) + (or (file-remote-p default-directory) "")) (make-local-variable 'comint-accum-marker) (setq comint-accum-marker (make-marker)) (make-local-variable 'font-lock-defaults) -- 2.39.2