1650 |
((stringp completion) |
((stringp completion) |
1651 |
(if (equal word completion) |
(if (equal word completion) |
1652 |
(with-output-to-temp-buffer completions-buffer |
(with-output-to-temp-buffer completions-buffer |
1653 |
(display-completion-list (all-completions word choices))) |
(display-completion-list (all-completions word choices) |
1654 |
|
word)) |
1655 |
(ignore-errors |
(ignore-errors |
1656 |
(kill-buffer completions-buffer)) |
(kill-buffer completions-buffer)) |
1657 |
(delete-region begin end) |
(delete-region begin end) |