changeset 3291:b64e3832b6de

Make RCS warnings stop.
author Richard M. Stallman <rms@gnu.org>
date Sun, 30 May 1993 04:17:38 +0000
parents 1064f75f0d34
children 6209d0e98e35
files lisp/=iso8859-1.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)