diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-27 15:37:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-27 15:37:53 +0000 |
| commit | 19be62416834d1173c5c505183940305530c1bfb (patch) | |
| tree | 0082affc128a4be83639888073db91b2075160dc /lisp/international/latin-3.el | |
| parent | e4874521bbcca929eda386b7e09090105497474e (diff) | |
| download | emacs-19be62416834d1173c5c505183940305530c1bfb.tar.gz | |
If set-case-syntax-set-multibyte is non-nil, define syntax
for multibyte characters, and don't do `provide'.
Diffstat (limited to 'lisp/international/latin-3.el')
| -rw-r--r-- | lisp/international/latin-3.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/international/latin-3.el b/lisp/international/latin-3.el index 48bf563478a..6b69c64a6ee 100644 --- a/lisp/international/latin-3.el +++ b/lisp/international/latin-3.el @@ -33,7 +33,7 @@ (let ((downcase (standard-case-table)) (set-case-syntax-offset - (if enable-multibyte-characters + (if set-case-syntax-set-multibyte (- (make-char 'latin-iso8859-3) 128) 0))) (set-case-syntax 160 " " downcase) ; NBSP (no-break space) @@ -99,7 +99,10 @@ (set-case-syntax 255 "w" downcase) ; dot accent ) -(provide 'latin-3.el) +;; When preloading this file, don't provide the feature. +;; Explicit `require' is used to load this for 8-bit characters. +(or set-case-syntax-set-multibyte + (provide 'latin-3.el)) ;;; latin-3.el ends here |