diff options
| author | Michaël Cadilhac | 2007-08-26 19:20:20 +0000 |
|---|---|---|
| committer | Michaël Cadilhac | 2007-08-26 19:20:20 +0000 |
| commit | f8a3deedc67daa49179133d682718fe2e7f09c9a (patch) | |
| tree | da316b25b2337c05d4aff99032fb79c46e46b2ef /lisp/complete.el | |
| parent | 3300097f4d362f7fe413b06b73b602ee00ad9c65 (diff) | |
| download | emacs-f8a3deedc67daa49179133d682718fe2e7f09c9a.tar.gz emacs-f8a3deedc67daa49179133d682718fe2e7f09c9a.zip | |
(PC-do-completion): Make RET accept a non-unique but complete
expansion again.
Diffstat (limited to 'lisp/complete.el')
| -rw-r--r-- | lisp/complete.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/complete.el b/lisp/complete.el index 75774b65db0..01db126c5f8 100644 --- a/lisp/complete.el +++ b/lisp/complete.el | |||
| @@ -831,12 +831,12 @@ GOTO-END is non-nil, however, it instead replaces up to END." | |||
| 831 | (setq completion-base-size (if dirname | 831 | (setq completion-base-size (if dirname |
| 832 | dirlength | 832 | dirlength |
| 833 | (- beg prompt-end)))))) | 833 | (- beg prompt-end)))))) |
| 834 | (PC-temp-minibuffer-message " [Next char not unique]")))))) | 834 | (PC-temp-minibuffer-message " [Next char not unique]")) |
| 835 | ;; Expansion of filenames is not reversible, so just keep | 835 | ;; Expansion of filenames is not reversible, |
| 836 | ;; the prefix. | 836 | ;; so just keep the prefix. |
| 837 | (when (and abbreviated filename) | 837 | (when (and abbreviated filename) |
| 838 | (delete-region (point) end)) | 838 | (delete-region (point) end)) |
| 839 | nil) | 839 | nil))))) |
| 840 | 840 | ||
| 841 | ;; Only one possible completion | 841 | ;; Only one possible completion |
| 842 | (t | 842 | (t |