diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2019-02-20 15:15:35 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2019-02-21 10:28:10 +0100 |
| commit | fc78519b5e909d849ede63b537f58af8db53ceff (patch) | |
| tree | fe0f9b9f2e1af91fc4f4ba6e04ded85f95240d53 /lisp/completion.el | |
| parent | c124d5323c05a4010db9b2d330575d029936ade1 (diff) | |
| download | emacs-fc78519b5e909d849ede63b537f58af8db53ceff.tar.gz | |
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.
Diffstat (limited to 'lisp/completion.el')
| -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) |