aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorMichael Albinus <[email protected]>2010-08-06 15:53:59 +0200
committerMichael Albinus <[email protected]>2010-08-06 15:53:59 +0200
commit942415f397bd75cdc9eaf567a29cb64b96eecc5e (patch)
tree97c31694ac6211eabc226fe1e6ebb0b893ed87e5 /lisp
parent686b968e01ce0e5f3a87416af11bf27cd7892d12 (diff)
* comint.el (comint-mode): Make directory tracking functions
functional on remote files. (Bug#6764)
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/comint.el3
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4e09f857af..67ff0d9207 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-08-06 Jürgen Hötzel <[email protected]>
+
+ * comint.el (comint-mode): Make directory tracking functions
+ functional on remote files. (Bug#6764)
+
2010-08-06 Dan Nicolaescu <[email protected]>
* vc/diff-mode.el (diff-mode-shared-map): Bind g to revert-buffer.
diff --git a/lisp/comint.el b/lisp/comint.el
index 071537ffd8..128965fc11 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)