# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 965660242 0
# Node ID 4706d5e2414176fcb4ccf5412ac758a7d29cb63f
# Parent  ce7385745191cc0b644b7eb495c9860c17bd96f7
(try-expand-line, try-expand-line-all-buffers): Only use comint-prompt-regexp
  if comint-use-prompt-regexp-instead-of-fields is non-nil.

diff -r ce7385745191 -r 4706d5e24141 lisp/hippie-exp.el
--- a/lisp/hippie-exp.el	Mon Aug 07 14:56:02 2000 +0000
+++ b/lisp/hippie-exp.el	Mon Aug 07 14:57:22 2000 +0000
@@ -634,6 +634,7 @@
 string).  It returns t if a new completion is found, nil otherwise."
   (let ((expansion ())
 	(strip-prompt (and (get-buffer-process (current-buffer))
+			   comint-use-prompt-regexp-instead-of-fields
 			   comint-prompt-regexp)))
     (if (not old)
 	(progn
@@ -680,6 +681,7 @@
 string).  It returns t if a new completion is found, nil otherwise."
   (let ((expansion ())
 	(strip-prompt (and (get-buffer-process (current-buffer))
+			   comint-use-prompt-regexp-instead-of-fields
 			   comint-prompt-regexp))
 	(buf (current-buffer))
 	(orig-case-fold-search case-fold-search))
@@ -706,6 +708,7 @@
 		      (widen))
 		  (goto-char he-search-loc)
 		  (setq strip-prompt (and (get-buffer-process (current-buffer))
+					  comint-use-prompt-regexp-instead-of-fields
 					  comint-prompt-regexp))
 		  (setq expansion 
 			(let ((case-fold-search orig-case-fold-search))