ido-completing-read minimun example

(defun my-test-elisp ()
  (interactive)
  (let (start end)
    (save-excursion
      (backward-sentence)
      (setq start (point))
      (forward-sentence)
      (setq end (point))      
      (setf (buffer-substring start end)
	    (ido-completing-read 
	     "select Ctr-s:"
	     (list (buffer-substring-no-properties start end) 
		   "aaaaaa" "bbbb" "cc c cc"))))))

M-x my-test-elisp