X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/a1d15b3e90794065a51431f87f82b466a5b413b1..9f803d0d12548c2e5facc359846598f0a5c01271:/lisp/iso8859-1.el

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)