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

[Juri Linkov]

Index: emacs/lisp/emacs-lisp/crm.el
diff -c emacs/lisp/emacs-lisp/crm.el:1.6 emacs/lisp/emacs-lisp/crm.el:1.7
*** emacs/lisp/emacs-lisp/crm.el:1.6    Fri Jul  1 01:10:42 2005
--- emacs/lisp/emacs-lisp/crm.el        Mon Jul  4 01:04:32 2005
***************
*** 214,220 ****
        (progn
        ;;
        (setq crm-beginning-of-element (match-beginning 1))
!       (setq crm-end-of-element end-index)
        ;; string to the left of the current element
        (setq crm-left-of-element
              (substring target-string 0 (match-beginning 1)))
--- 214,220 ----
        (progn
        ;;
        (setq crm-beginning-of-element (match-beginning 1))
!       (setq crm-end-of-element (+ end-index prompt-end))
        ;; string to the left of the current element
        (setq crm-left-of-element
              (substring target-string 0 (match-beginning 1)))
***************
*** 482,488 ****
        (setq result
            (catch 'crm-exit
  
!             (if (eq (point-min) (point-max))
                  (throw 'crm-exit t))
  
              ;; TODO: this test is suspect?
--- 482,488 ----
        (setq result
            (catch 'crm-exit
  
!             (if (eq (minibuffer-prompt-end) (point-max))
                  (throw 'crm-exit t))
  
              ;; TODO: this test is suspect?
***************
*** 508,514 ****
          nil
        (if (equal result "check")
            (let ((check-strings
!                  (crm-strings-completed-p (buffer-string))))
              ;; check all of minibuffer
              (if (eq check-strings t)
                  (throw 'exit nil)
--- 508,515 ----
          nil
        (if (equal result "check")
            (let ((check-strings
!                  (crm-strings-completed-p
!                   (buffer-substring (minibuffer-prompt-end) (point-max)))))
              ;; check all of minibuffer
              (if (eq check-strings t)
                  (throw 'exit nil)