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 () |