summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1993-05-30 04:17:38 +0000
committerRichard M. Stallman <rms@gnu.org>1993-05-30 04:17:38 +0000
commite6f2dbf0e94d8ab6815789076d12339abdadb5e4 (patch)
treeaad8966a14ad3cb71e5e5bbeb3bb4ee1095172c4 /lisp
parentd04336b3d2cc062a5cbcbe42362b3ec37cab0d68 (diff)
downloademacs-e6f2dbf0e94d8ab6815789076d12339abdadb5e4.tar.gz
Make RCS warnings stop.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/=iso8859-1.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/=iso8859-1.el b/lisp/=iso8859-1.el
index 04a4e2bfcd3..34d0ac0d368 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)