* comint.el (comint-mode): Make directory tracking functions

functional on remote files.  (Bug#6764)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4e09f857af0bc333852a604ce7e508ea8c59445d..67ff0d920790c105975901be38cee53cf8910aa7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-06  Jürgen Hötzel  <juergen@archlinux.org>
+
+       * comint.el (comint-mode): Make directory tracking functions
+       functional on remote files.  (Bug#6764)
+
 2010-08-06  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc/diff-mode.el (diff-mode-shared-map): Bind g to revert-buffer.

diff --git a/lisp/comint.el b/lisp/comint.el
index 071537ffd896bd56a9bf28de772e7d14bfbd0a24..128965fc11fc6d3968b354d0592e1bf8342f595c 100644 (file)
--- 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)