Mercurial > emacs
changeset 17971:621d1db5845b
If set-case-syntax-set-multibyte is non-nil, define syntax
for multibyte characters, and don't do `provide'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 27 May 1997 15:37:53 +0000 |
| parents | 720d1f98ae42 |
| children | 79911e7f54fe |
| files | lisp/international/latin-2.el lisp/international/latin-3.el lisp/international/latin-4.el |
| diffstat | 3 files changed, 18 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/latin-2.el Tue May 27 15:32:03 1997 +0000 +++ b/lisp/international/latin-2.el Tue May 27 15:37:53 1997 +0000 @@ -3,7 +3,9 @@ ;; Copyright (C) 1995 Free Software Foundation, Inc. ;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at) +;; Maintainer: FSF ;; Keywords: i18n +;; Was formerly named iso02-syn.el. ;; This file is part of GNU Emacs. @@ -32,7 +34,7 @@ (let ((downcase (standard-case-table)) (set-case-syntax-offset - (if enable-multibyte-characters + (if set-case-syntax-set-multibyte (- (make-char 'latin-iso8859-2) 128) 0))) (set-case-syntax 160 " " downcase) ; NBSP (no-break space) @@ -93,6 +95,9 @@ (set-case-syntax 255 "w" downcase) ; dot accent ) -(provide 'latin-2) +;; 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-2)) ;;; latin-2.el ends here
--- a/lisp/international/latin-3.el Tue May 27 15:32:03 1997 +0000 +++ b/lisp/international/latin-3.el Tue May 27 15:37:53 1997 +0000 @@ -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
--- a/lisp/international/latin-4.el Tue May 27 15:32:03 1997 +0000 +++ b/lisp/international/latin-4.el Tue May 27 15:37:53 1997 +0000 @@ -1,4 +1,4 @@ -;;; latin-4.el --- support for ISO Latin 4 (ISO 8859-4) +;;; latin-4.el --- define syntax and case conversion for Latin 4 (ISO 8859-4). ;; Copyright (C) 1988,1997 Free Software Foundation, Inc. @@ -33,7 +33,7 @@ (let ((tbl (standard-case-table)) (set-case-syntax-offset - (if enable-multibyte-characters + (if set-case-syntax-set-multibyte (- (make-char 'latin-iso8859-4) 128) 0))) (set-case-syntax 160 "w" tbl) ;NO-BREAK SPACE @@ -93,6 +93,9 @@ (set-case-syntax 247 "_" tbl) ;DIVISION SIGN (set-case-syntax 255 "w" tbl)) ;DOT ABOVE -(provide 'latin-4) +;; 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-4)) ;;; latin-4.el ends here