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