martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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))