Make RCS warnings stop.

diff --git a/lisp/iso8859-1.el b/lisp/iso8859-1.el
index 04a4e2bfcd3d9de64d853f9f909de3cc640c182d..34d0ac0d3684a32b9d933cf99b2000d4541a4ce0 100644 (file)
--- a/lisp/iso8859-1.el
+++ b/lisp/iso8859-1.el
@@ -30,7 +30,7 @@
 
 (require 'case-table)
 
-(let ((table (standard-case-table)))
+(let ((table (car (standard-case-table))))
   (set-case-syntax 160 " " table)      ; NBSP (no-break space)
   (set-case-syntax 161 "." table)      ; inverted exclamation mark
   (set-case-syntax 162 "w" table)      ; cent sign
@@ -97,7 +97,7 @@
   (set-case-syntax 223 "w" table)      ; small sharp s, German
   (set-case-syntax 247 "_" table)      ; division sign
   (set-case-syntax 255 "w" table)      ; small y with diaeresis or umlaut mark
-  (set-standard-case-table (list (car table))))
+  (set-standard-case-table (list table)))
 
 (provide 'iso8859-1)