/[emacs]/emacs/lisp/emacs-lisp/crm.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/crm.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by rms, Fri Jul 1 01:10:42 2005 UTC revision 1.7 by jurta, Mon Jul 4 01:04:32 2005 UTC
# Line 214  and return t." Line 214  and return t."
214        (progn        (progn
215          ;;          ;;
216          (setq crm-beginning-of-element (match-beginning 1))          (setq crm-beginning-of-element (match-beginning 1))
217          (setq crm-end-of-element end-index)          (setq crm-end-of-element (+ end-index prompt-end))
218          ;; string to the left of the current element          ;; string to the left of the current element
219          (setq crm-left-of-element          (setq crm-left-of-element
220                (substring target-string 0 (match-beginning 1)))                (substring target-string 0 (match-beginning 1)))
# Line 482  This function is modeled after `minibuff Line 482  This function is modeled after `minibuff
482        (setq result        (setq result
483              (catch 'crm-exit              (catch 'crm-exit
484    
485                (if (eq (point-min) (point-max))                (if (eq (minibuffer-prompt-end) (point-max))
486                    (throw 'crm-exit t))                    (throw 'crm-exit t))
487    
488                ;; TODO: this test is suspect?                ;; TODO: this test is suspect?
# Line 508  This function is modeled after `minibuff Line 508  This function is modeled after `minibuff
508            nil            nil
509          (if (equal result "check")          (if (equal result "check")
510              (let ((check-strings              (let ((check-strings
511                     (crm-strings-completed-p (buffer-string))))                     (crm-strings-completed-p
512                        (buffer-substring (minibuffer-prompt-end) (point-max)))))
513                ;; check all of minibuffer                ;; check all of minibuffer
514                (if (eq check-strings t)                (if (eq check-strings t)
515                    (throw 'exit nil)                    (throw 'exit nil)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26