[Emacs-diffs] Changes to emacs/lisp/complete.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      07/03/05 14:55:05

Index: complete.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/complete.el,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -b -r1.59 -r1.60
--- complete.el 21 Jan 2007 03:53:12 -0000      1.59
+++ complete.el 5 Mar 2007 14:55:05 -0000       1.60
@@ -404,8 +404,15 @@
 
     ;; Check if buffer contents can already be considered complete
     (if (and (eq mode 'exit)
-            (test-completion-ignore-case str table pred))
-       'complete
+            (test-completion str table pred))
+       (progn
+         ;; If completion-ignore-case is non-nil, insert the
+         ;; completion string since that may have a different case.
+         (when completion-ignore-case
+           (setq str (try-completion str table pred))
+           (delete-region beg end)
+           (insert str))
+         'complete)
 
       ;; Do substitutions in directory names
       (and filename