diff options
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 " |