[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master fc78519: Replace 8-bit-specific case-manipulation
From: |
Mattias Engdegård |
Subject: |
[Emacs-diffs] master fc78519: Replace 8-bit-specific case-manipulation |
Date: |
Thu, 21 Feb 2019 04:29:40 -0500 (EST) |
branch: master
commit fc78519b5e909d849ede63b537f58af8db53ceff
Author: Mattias Engdegård <address@hidden>
Commit: Mattias Engdegård <address@hidden>
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(-)
diff --git a/lisp/completion.el b/lisp/completion.el
index 14ecc9b..1073ae8 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master fc78519: Replace 8-bit-specific case-manipulation,
Mattias Engdegård <=