From 69e773247b4fac5a7430f8446fe280b36850fb7a Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 7 Aug 2000 14:57:22 +0000 Subject: [PATCH] (try-expand-line, try-expand-line-all-buffers): Only use comint-prompt-regexp if comint-use-prompt-regexp-instead-of-fields is non-nil. --- lisp/hippie-exp.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/hippie-exp.el b/lisp/hippie-exp.el index 747b5d6a61d..830f6480322 100644 --- a/lisp/hippie-exp.el +++ b/lisp/hippie-exp.el @@ -634,6 +634,7 @@ for subsequent calls (for further possible completions of the same 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 @@ for subsequent calls (for further possible completions of the same 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 @@ string). It returns t if a new completion is found, nil otherwise." (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)) -- 2.39.2