Mercurial > emacs
comparison lisp/comint.el @ 4426:fe5912b3526a
(comint-dynamic-completion): Say "Sole completion", not "Unique
completion".
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Mon, 02 Aug 1993 22:56:58 +0000 |
| parents | 37a37a8300c4 |
| children | 4d19c2b7b6e1 |
comparison
equal
deleted
inserted
replaced
| 4425:1b48826df9cb | 4426:fe5912b3526a |
|---|---|
| 1188 (or pathdir default-directory)))) | 1188 (or pathdir default-directory)))) |
| 1189 (cond ((null completion) | 1189 (cond ((null completion) |
| 1190 (message "No completions of %s" pathname) | 1190 (message "No completions of %s" pathname) |
| 1191 (ding)) | 1191 (ding)) |
| 1192 ((eql completion t) | 1192 ((eql completion t) |
| 1193 (message "Unique completion")) | 1193 (message "Sole completion")) |
| 1194 (t ; this means a string was returned. | 1194 (t ; this means a string was returned. |
| 1195 (goto-char (match-end 0)) | 1195 (goto-char (match-end 0)) |
| 1196 (insert (substring completion (length pathnondir))))))) | 1196 (insert (substring completion (length pathnondir))))))) |
| 1197 | 1197 |
| 1198 (defun comint-dynamic-list-completions () | 1198 (defun comint-dynamic-list-completions () |