diff options
| author | Richard M. Stallman | 2004-04-21 19:17:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-04-21 19:17:03 +0000 |
| commit | c12bc1fbd8f23c97b5488066abc32416df06fcf0 (patch) | |
| tree | 8c42d66b151f03b896cfa903f83c825125f6338f | |
| parent | f15466c5d8d18cacfaa82870b5fe4a97f489d4ae (diff) | |
| download | emacs-c12bc1fbd8f23c97b5488066abc32416df06fcf0.tar.gz emacs-c12bc1fbd8f23c97b5488066abc32416df06fcf0.zip | |
(ctext-post-read-conversion): Use assoc-string, not assoc-ignore-case.
| -rw-r--r-- | lisp/international/mule.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 8c95becaf21..de9d3ef8e2c 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -1401,9 +1401,9 @@ Each element must be one of the names listed in the variable | |||
| 1401 | (let* ((M (char-after (+ pos 4))) | 1401 | (let* ((M (char-after (+ pos 4))) |
| 1402 | (L (char-after (+ pos 5))) | 1402 | (L (char-after (+ pos 5))) |
| 1403 | (encoding (match-string 2)) | 1403 | (encoding (match-string 2)) |
| 1404 | (encoding-info (assoc-ignore-case | 1404 | (encoding-info (assoc-string |
| 1405 | encoding | 1405 | encoding |
| 1406 | ctext-non-standard-encodings-alist)) | 1406 | ctext-non-standard-encodings-alist t)) |
| 1407 | (coding (if encoding-info | 1407 | (coding (if encoding-info |
| 1408 | (nth 1 encoding-info) | 1408 | (nth 1 encoding-info) |
| 1409 | (setq encoding (intern (downcase encoding))) | 1409 | (setq encoding (intern (downcase encoding))) |