diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/hippie-exp.el | 3 |
1 files changed, 3 insertions, 0 deletions
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)) |