mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(try-expand-line, try-expand-line-all-buffers): Only use comint-prompt-regexp

Browse source 
if comint-use-prompt-regexp-instead-of-fields is non-nil.
This commit is contained in:
Miles Bader 2000-08-07 14:57:22 +00:00
parent 3250010dd7
commit 69e773247b
1 changed files with 3 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/hippie-exp.el
View file

@ -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))