[Emacs-diffs] Changes to emacs/lisp/hippie-exp.el

[Luc Teirlinck]

Index: emacs/lisp/hippie-exp.el
diff -c emacs/lisp/hippie-exp.el:1.26 emacs/lisp/hippie-exp.el:1.27
*** emacs/lisp/hippie-exp.el:1.26       Mon Sep  1 15:45:12 2003
--- emacs/lisp/hippie-exp.el    Tue Apr 26 23:13:46 2005
***************
*** 634,640 ****
  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
--- 634,640 ----
  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
                           comint-prompt-regexp)))
      (if (not old)
        (progn
***************
*** 681,687 ****
  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))
--- 681,687 ----
  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
                           comint-prompt-regexp))
        (buf (current-buffer))
        (orig-case-fold-search case-fold-search))
***************
*** 708,714 ****
                      (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))
--- 708,714 ----
                      (widen))
                  (goto-char he-search-loc)
                  (setq strip-prompt (and (get-buffer-process (current-buffer))
!                                         comint-use-prompt-regexp
                                          comint-prompt-regexp))
                  (setq expansion
                        (let ((case-fold-search orig-case-fold-search))