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