diff options
| author | Mattias Engdegård | 2019-02-20 15:15:35 +0100 |
|---|---|---|
| committer | Mattias Engdegård | 2019-02-21 10:28:10 +0100 |
| commit | fc78519b5e909d849ede63b537f58af8db53ceff (patch) | |
| tree | fe0f9b9f2e1af91fc4f4ba6e04ded85f95240d53 | |
| parent | c124d5323c05a4010db9b2d330575d029936ade1 (diff) | |
| download | emacs-fc78519b5e909d849ede63b537f58af8db53ceff.tar.gz emacs-fc78519b5e909d849ede63b537f58af8db53ceff.zip | |
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.
| -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.") | |||
| 409 | (defun cmpl-coerce-string-case (string case-type) | 409 | (defun cmpl-coerce-string-case (string case-type) |
| 410 | (cond ((eq case-type :down) (downcase string)) | 410 | (cond ((eq case-type :down) (downcase string)) |
| 411 | ((eq case-type :up) (upcase string)) | 411 | ((eq case-type :up) (upcase string)) |
| 412 | ((eq case-type :capitalized) | 412 | ((eq case-type :capitalized) (capitalize string)) |
| 413 | (setq string (downcase string)) | ||
| 414 | (aset string 0 (logand ?\337 (aref string 0))) | ||
| 415 | string) | ||
| 416 | (t string))) | 413 | (t string))) |
| 417 | 414 | ||
| 418 | (defun cmpl-merge-string-cases (string-to-coerce given-string) | 415 | (defun cmpl-merge-string-cases (string-to-coerce given-string) |