From adfb70a19a0070f62c53628241b5124380a835d3 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 28 May 1997 03:35:35 +0000 Subject: [PATCH] (describe-buffer-case-table): Use aref instead of set-char-table-range. --- lisp/case-table.el | 4 ++-- 1 file 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 " -- 2.39.5