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
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-use-prompt-regexp
comint-prompt-regexp)))
(if (not old)
(progn
......@@ -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."
(let ((expansion ())
(strip-prompt (and (get-buffer-process (current-buffer))
comint-use-prompt-regexp-instead-of-fields
comint-use-prompt-regexp
comint-prompt-regexp))
(buf (current-buffer))
(orig-case-fold-search case-fold-search))
......@@ -708,7 +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-use-prompt-regexp
comint-prompt-regexp))
(setq expansion
(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