Mercurial > emacs
changeset 17986:43fa316b0eca
(describe-buffer-case-table): Use aref instead of
set-char-table-range.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 28 May 1997 03:35:35 +0000 |
| parents | 601f43ce92b5 |
| children | 2d9818a04c36 |
| files | lisp/case-table.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/case-table.el Wed May 28 03:35:34 1997 +0000 +++ b/lisp/case-table.el Wed May 28 03:35:35 1997 +0000 @@ -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 "