Commit d7210472 authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(try-expand-line, try-expand-line-all-buffers):

`comint-use-prompt-regexp-instead-of-fields' has been renamed to
`comint-use-prompt-regexp'.
parent 03a610f7
...@@ -634,7 +634,7 @@ for subsequent calls (for further possible completions of the same ...@@ -634,7 +634,7 @@ for subsequent calls (for further possible completions of the same
string). It returns t if a new completion is found, nil otherwise." string). It returns t if a new completion is found, nil otherwise."
(let ((expansion ()) (let ((expansion ())
(strip-prompt (and (get-buffer-process (current-buffer)) (strip-prompt (and (get-buffer-process (current-buffer))
comint-use-prompt-regexp-instead-of-fields comint-use-prompt-regexp
comint-prompt-regexp))) comint-prompt-regexp)))
(if (not old) (if (not old)
(progn (progn
...@@ -681,7 +681,7 @@ for subsequent calls (for further possible completions of the same ...@@ -681,7 +681,7 @@ for subsequent calls (for further possible completions of the same
string). It returns t if a new completion is found, nil otherwise." string). It returns t if a new completion is found, nil otherwise."
(let ((expansion ()) (let ((expansion ())
(strip-prompt (and (get-buffer-process (current-buffer)) (strip-prompt (and (get-buffer-process (current-buffer))
comint-use-prompt-regexp-instead-of-fields comint-use-prompt-regexp
comint-prompt-regexp)) comint-prompt-regexp))
(buf (current-buffer)) (buf (current-buffer))
(orig-case-fold-search case-fold-search)) (orig-case-fold-search case-fold-search))
...@@ -708,7 +708,7 @@ string). It returns t if a new completion is found, nil otherwise." ...@@ -708,7 +708,7 @@ string). It returns t if a new completion is found, nil otherwise."
(widen)) (widen))
(goto-char he-search-loc) (goto-char he-search-loc)
(setq strip-prompt (and (get-buffer-process (current-buffer)) (setq strip-prompt (and (get-buffer-process (current-buffer))
comint-use-prompt-regexp-instead-of-fields comint-use-prompt-regexp
comint-prompt-regexp)) comint-prompt-regexp))
(setq expansion (setq expansion
(let ((case-fold-search orig-case-fold-search)) (let ((case-fold-search orig-case-fold-search))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment