[Emacs-diffs] /srv/bzr/emacs/trunk r100997: * comint.el (comint-mode): Make directory tracking functions

[Michael Albinus]

------------------------------------------------------------
revno: 100997
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2010-08-06 15:53:59 +0200
message:
  * comint.el (comint-mode): Make directory tracking functions
  functional on remote files.  (Bug#6764)
modified:
  lisp/ChangeLog
  lisp/comint.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-08-06 04:01:00 +0000
+++ b/lisp/ChangeLog    2010-08-06 13:53:59 +0000
@@ -1,3 +1,8 @@
+2010-08-06  Jürgen Hötzel  <address@hidden>
+
+       * comint.el (comint-mode): Make directory tracking functions
+       functional on remote files.  (Bug#6764)
+
 2010-08-06  Dan Nicolaescu  <address@hidden>
 
        * vc/diff-mode.el (diff-mode-shared-map): Bind g to revert-buffer.

=== modified file 'lisp/comint.el'
--- a/lisp/comint.el    2010-07-10 18:52:53 +0000
+++ b/lisp/comint.el    2010-08-06 13:53:59 +0000
@@ -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)