From fdfe2a28762cc7442e26371aa3b77bac5530366d Mon Sep 17 00:00:00 2001
From: Roland McGrath <roland@gnu.org>
Date: Wed, 8 Sep 1993 06:59:23 +0000
Subject: (comint-filename-prefix): New variable.
 (comint-replace-by-expanded-filename, comint-dynamic-complete,
 comint-dynamic-list-completions): Prepend it to absolute file names before
 completing.

---
 lisp/comint.el | 47 ++++++++++++++++++++++++++++++++++++-----------
 1 file changed, 36 insertions(+), 11 deletions(-)

(limited to 'lisp/comint.el')

diff --git a/lisp/comint.el b/lisp/comint.el
index 7670ae65265..216d622c1ae 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1148,6 +1148,10 @@ See `comint-prompt-regexp'."
     (substitute-in-file-name
      (buffer-substring (match-beginning 0) (match-end 0)))))
 
+(defvar comint-filename-prefix nil
+  "Prefix prepended to all absolute file names taken from process input.
+This is used by the completion functions, and by directory tracking in shell
+mode.")
 
 (defun comint-replace-by-expanded-filename ()
   "Expand the filename at point.
@@ -1162,8 +1166,18 @@ See functions `expand-file-name' and `substitute-in-file-name'.  See also
   (let* ((pathname (comint-match-partial-pathname))
 	 (pathdir (file-name-directory pathname))
 	 (pathnondir (file-name-nondirectory pathname))
-	 (completion (file-name-completion pathnondir
-					   (or pathdir default-directory))))
+	 (completion (file-name-completion
+		      pathnondir
+		      (if pathdir
+			  ;; It is important to expand PATHDIR because
+			  ;; default-directory might be a handled name, and
+			  ;; the unexpanded PATHDIR won't necessarily match
+			  ;; the handler regexp.
+			  (expand-file-name (concat
+					     (if (file-name-absolute-p pathdir)
+						 comint-filename-prefix)
+					     pathdir))
+			default-directory))))
     (cond ((null completion)
 	   (message "No completions of %s" pathname)
 	   (ding))
@@ -1189,12 +1203,15 @@ it just adds completion characters to the end of the filename."
 	   (pathnondir (file-name-nondirectory pathname))
 	   (completion (file-name-completion
 			pathnondir
-			;; It is important to expand PATHDIR because
-			;; default-directory might be a handled name, and the
-			;; unexpanded PATHDIR won't necessarily match the
-			;; handler regexp.
 			(if pathdir
-			    (expand-file-name pathdir)
+			    ;; It is important to expand PATHDIR because
+			    ;; default-directory might be a handled name, and
+			    ;; the unexpanded PATHDIR won't necessarily match
+			    ;; the handler regexp.
+			    (expand-file-name
+			     (concat (if (file-name-absolute-p pathdir)
+					 comint-filename-prefix)
+				     pathdir))
 			  default-directory))))
       (cond ((null completion)
 	     (message "No completions of %s" pathname)
@@ -1212,10 +1229,18 @@ it just adds completion characters to the end of the filename."
 	 (pathdir (file-name-directory pathname))
 	 (pathnondir (file-name-nondirectory pathname))
 	 (completions
-	  (file-name-all-completions pathnondir
-				     (if pathdir
-					 (expand-file-name pathdir)
-				       default-directory))))
+	  (file-name-all-completions 
+	   pathnondir
+	   (if pathdir
+	       ;; It is important to expand PATHDIR because
+	       ;; default-directory might be a handled name, and
+	       ;; the unexpanded PATHDIR won't necessarily match
+	       ;; the handler regexp.
+	       (expand-file-name
+		(concat (if (file-name-absolute-p pathdir)
+			    comint-filename-prefix)
+			pathdir))
+	     default-directory))))
     (cond ((null completions)
 	   (message "No completions of %s" pathname)
 	   (ding))
-- 
cgit v1.2.1