Index: complete.el =================================================================== RCS file: /cvsroot/emacs/emacs/lisp/complete.el,v retrieving revision 1.77 diff -p -u -w -r1.77 complete.el --- complete.el 7 Aug 2007 03:02:04 -0000 1.77 +++ complete.el 25 Aug 2007 21:20:27 -0000 @@ -831,12 +831,12 @@ GOTO-END is non-nil, however, it instead (setq completion-base-size (if dirname dirlength (- beg prompt-end)))))) - (PC-temp-minibuffer-message " [Next char not unique]")))))) - ;; Expansion of filenames is not reversible, so just keep - ;; the prefix. + (PC-temp-minibuffer-message " [Next char not unique]")) + ;; Expansion of filenames is not reversible, + ;; so just keep the prefix. (when (and abbreviated filename) (delete-region (point) end)) - nil) + nil))))) ;; Only one possible completion (t