# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738735458 0
# Node ID b64e3832b6de48497b3e6cae58e4ca76d82315f2
# Parent  1064f75f0d34b167b80f38f25c5281b945058288
Make RCS warnings stop.

diff -r 1064f75f0d34 -r b64e3832b6de lisp/=iso8859-1.el
--- a/lisp/=iso8859-1.el	Sun May 30 03:47:06 1993 +0000
+++ b/lisp/=iso8859-1.el	Sun May 30 04:17:38 1993 +0000
@@ -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)