From: Mattias Engdegård Date: Wed, 20 Feb 2019 14:15:35 +0000 (+0100) Subject: Replace 8-bit-specific case-manipulation X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~3952 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=fc78519b5e909d849ede63b537f58af8db53ceff;p=emacs.git 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. --- 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)