changeset 109658:8865dff431b0

* comint.el (comint-mode): Make directory tracking functions functional on remote files. (Bug#6764)
author Michael Albinus <michael.albinus@gmx.de>
date Fri, 06 Aug 2010 15:53:59 +0200
parents c77053470716
children 6387fbfcb44d
files lisp/ChangeLog lisp/comint.el
diffstat 2 files changed, 8 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Aug 06 14:35:00 2010 +0200
+++ b/lisp/ChangeLog	Fri Aug 06 15:53:59 2010 +0200
@@ -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.
--- a/lisp/comint.el	Fri Aug 06 14:35:00 2010 +0200
+++ b/lisp/comint.el	Fri Aug 06 15:53:59 2010 +0200
@@ -674,6 +674,9 @@
   (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)