3324 |
(completing-read prompt alist nil nil member-name))) |
(completing-read prompt alist nil nil member-name))) |
3325 |
(completion-result (try-completion name alist))) |
(completion-result (try-completion name alist))) |
3326 |
;; Cannot rely on `try-completion' returning T for exact |
;; Cannot rely on `try-completion' returning T for exact |
3327 |
;; matches! it returns the the name as a string. |
;; matches! it returns the name as a string. |
3328 |
(unless (setq member-info (gethash name members)) |
(unless (setq member-info (gethash name members)) |
3329 |
(if (y-or-n-p "No exact match found. Try substrings? ") |
(if (y-or-n-p "No exact match found. Try substrings? ") |
3330 |
(setq name |
(setq name |