From fc78519b5e909d849ede63b537f58af8db53ceff Mon Sep 17 00:00:00 2001 From: Mattias Engdegård Date: Wed, 20 Feb 2019 15:15:35 +0100 Subject: Replace 8-bit-specific case-manipulation * lisp/completion.el (cmpl-coerce-string-case): Rewrite case-changing code written for ASCII or latin-1 but not valid in generally today. --- lisp/completion.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'lisp/completion.el') 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) -- cgit v1.2.3