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 | d998ff3cadccae8d4565c1de7186e4cdd92e6fb5 (patch) | |
tree | 4d649514ddcc43a402c13fd39df775bcdc027d2f /lisp/case-table.el | |
parent | 816d8aad86124edaeadb740fd27b1d5e7baace6a (diff) | |
download | emacs-d998ff3cadccae8d4565c1de7186e4cdd92e6fb5.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 " |