diff options
| -rw-r--r-- | lisp/completion.el | 5 |
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) |