diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-05-28 03:35:35 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-05-28 03:35:35 +0000 |
| commit | adfb70a19a0070f62c53628241b5124380a835d3 (patch) | |
| tree | cb8d3fab6e9f426318272ff51b22d9cf801632f3 /lisp/case-table.el | |
| parent | 77e94796fdaf34ab3f6c124ff021d5e7bac77959 (diff) | |
| download | emacs-adfb70a19a0070f62c53628241b5124380a835d3.tar.gz | |
(describe-buffer-case-table): Use aref instead of
set-char-table-range.
Diffstat (limited to 'lisp/case-table.el')
| -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 @@ (let ((description (make-char-table 'case-table))) (map-char-table (function (lambda (key value) - (set-char-table-range + (aset description key - (cond ((null key) + (cond ((not (natnump value)) "case-invariant") ((/= key (downcase key)) (concat "uppercase, matches " |