From: Kenichi Handa <handa@m17n.org>
Date: Wed, 28 May 1997 03:35:35 +0000 (+0000)
Subject: (describe-buffer-case-table): Use aref instead of
X-Git-Tag: emacs-20.1~1960
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=adfb70a19a0070f62c53628241b5124380a835d3;p=emacs.git

(describe-buffer-case-table): Use aref instead of
set-char-table-range.
---

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 "