1 files changed, 1 insertions, 4 deletions

diff --git a/lisp/completion.el b/lisp/completion.el
index 14ecc9b83dc..1073ae89156 100644
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -409,10 +409,7 @@ Used to decide whether to save completions.")
 (defun cmpl-coerce-string-case (string case-type)
   (cond ((eq case-type :down) (downcase string))
         ((eq case-type :up) (upcase string))
-        ((eq case-type :capitalized)
-         (setq string (downcase string))
-         (aset string 0 (logand ?\337 (aref string 0)))
-         string)
+        ((eq case-type :capitalized) (capitalize string))
         (t string)))
 
 (defun cmpl-merge-string-cases (string-to-coerce given-string)