From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 30 May 1993 04:17:38 +0000 (+0000)
Subject: Make RCS warnings stop.
X-Git-Tag: emacs-19.34~12560
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/4edde99838ea37a5c0b9f569c1d41adf8b6bac9b

Make RCS warnings stop.
---

diff --git a/lisp/iso8859-1.el b/lisp/iso8859-1.el
index 04a4e2bfcd..34d0ac0d36 100644
--- 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)