diff options
| author | Kenichi Handa | 1997-05-28 03:35:35 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1997-05-28 03:35:35 +0000 |
| commit | adfb70a19a0070f62c53628241b5124380a835d3 (patch) | |
| tree | cb8d3fab6e9f426318272ff51b22d9cf801632f3 /lisp | |
| parent | 77e94796fdaf34ab3f6c124ff021d5e7bac77959 (diff) | |
| download | emacs-adfb70a19a0070f62c53628241b5124380a835d3.tar.gz emacs-adfb70a19a0070f62c53628241b5124380a835d3.zip | |
(describe-buffer-case-table): Use aref instead of
set-char-table-range.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/case-table.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/case-table.el b/lisp/case-table.el index 823fa44abf3..c66f76919ae 100644 --- a/lisp/case-table.el +++ b/lisp/case-table.el | |||
| @@ -45,9 +45,9 @@ | |||
| 45 | (let ((description (make-char-table 'case-table))) | 45 | (let ((description (make-char-table 'case-table))) |
| 46 | (map-char-table | 46 | (map-char-table |
| 47 | (function (lambda (key value) | 47 | (function (lambda (key value) |
| 48 | (set-char-table-range | 48 | (aset |
| 49 | description key | 49 | description key |
| 50 | (cond ((null key) | 50 | (cond ((not (natnump value)) |
| 51 | "case-invariant") | 51 | "case-invariant") |
| 52 | ((/= key (downcase key)) | 52 | ((/= key (downcase key)) |
| 53 | (concat "uppercase, matches " | 53 | (concat "uppercase, matches " |