diff options
| author | Richard M. Stallman | 1993-05-30 04:17:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-05-30 04:17:38 +0000 |
| commit | 4edde99838ea37a5c0b9f569c1d41adf8b6bac9b (patch) | |
| tree | 8d5d9939d067cdd439a04c2685ef1f0443d5d3eb | |
| parent | a85b2c8c1f400c6a3115b929b00e668af73eddee (diff) | |
| download | emacs-4edde99838ea37a5c0b9f569c1d41adf8b6bac9b.tar.gz emacs-4edde99838ea37a5c0b9f569c1d41adf8b6bac9b.zip | |
Make RCS warnings stop.
| -rw-r--r-- | lisp/iso8859-1.el | 4 |
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 @@ | |||
| 30 | 30 | ||
| 31 | (require 'case-table) | 31 | (require 'case-table) |
| 32 | 32 | ||
| 33 | (let ((table (standard-case-table))) | 33 | (let ((table (car (standard-case-table)))) |
| 34 | (set-case-syntax 160 " " table) ; NBSP (no-break space) | 34 | (set-case-syntax 160 " " table) ; NBSP (no-break space) |
| 35 | (set-case-syntax 161 "." table) ; inverted exclamation mark | 35 | (set-case-syntax 161 "." table) ; inverted exclamation mark |
| 36 | (set-case-syntax 162 "w" table) ; cent sign | 36 | (set-case-syntax 162 "w" table) ; cent sign |
| @@ -97,7 +97,7 @@ | |||
| 97 | (set-case-syntax 223 "w" table) ; small sharp s, German | 97 | (set-case-syntax 223 "w" table) ; small sharp s, German |
| 98 | (set-case-syntax 247 "_" table) ; division sign | 98 | (set-case-syntax 247 "_" table) ; division sign |
| 99 | (set-case-syntax 255 "w" table) ; small y with diaeresis or umlaut mark | 99 | (set-case-syntax 255 "w" table) ; small y with diaeresis or umlaut mark |
| 100 | (set-standard-case-table (list (car table)))) | 100 | (set-standard-case-table (list table))) |
| 101 | 101 | ||
| 102 | (provide 'iso8859-1) | 102 | (provide 'iso8859-1) |
| 103 | 103 | ||