Mercurial > emacs
comparison lisp/language/european.el @ 19577:b931375072b2
(setup-8-bit-environment): Load the latin-N file again each time.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 27 Aug 1997 17:27:38 +0000 |
| parents | 619697797214 |
| children | 8cde4cefae44 |
comparison
equal
deleted
inserted
replaced
| 19576:b0bd0bd48893 | 19577:b931375072b2 |
|---|---|
| 54 | 54 |
| 55 (if input-method | 55 (if input-method |
| 56 (setq default-input-method input-method)) | 56 (setq default-input-method input-method)) |
| 57 | 57 |
| 58 ;; If this is a Latin-N character set, set up syntax for it in | 58 ;; If this is a Latin-N character set, set up syntax for it in |
| 59 ;; single-byte mode. | 59 ;; single-byte mode. We can't use require because the file |
| 60 ;; must be eval'd each time. | |
| 60 (if (string-match "^Latin-\\([1-9]\\)$" language) | 61 (if (string-match "^Latin-\\([1-9]\\)$" language) |
| 61 (require (intern (downcase language))))) | 62 (load (downcase language)))) |
| 62 | 63 |
| 63 ;; Latin-1 (ISO-8859-1) | 64 ;; Latin-1 (ISO-8859-1) |
| 64 | 65 |
| 65 (make-coding-system | 66 (make-coding-system |
| 66 'iso-latin-1 2 ?1 | 67 'iso-latin-1 2 ?1 |