Defvar completing-read-function