# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 864790535 0
# Node ID 43fa316b0eca901e5cb7ff974384f8b6909b414a
# Parent  601f43ce92b525caad5cc590f757632e4de5be69
(describe-buffer-case-table): Use aref instead of
set-char-table-range.

diff -r 601f43ce92b5 -r 43fa316b0eca lisp/case-table.el
--- 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 "