Commit 19be6241 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

If set-case-syntax-set-multibyte is non-nil, define syntax

for multibyte characters, and don't do `provide'.
parent e4874521
...@@ -3,7 +3,9 @@ ...@@ -3,7 +3,9 @@
;; Copyright (C) 1995 Free Software Foundation, Inc. ;; Copyright (C) 1995 Free Software Foundation, Inc.
;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at) ;; Author: Michael Gschwind (mike@vlsivie.tuwien.ac.at)
;; Maintainer: FSF
;; Keywords: i18n ;; Keywords: i18n
;; Was formerly named iso02-syn.el.
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -32,7 +34,7 @@ ...@@ -32,7 +34,7 @@
(let ((downcase (standard-case-table)) (let ((downcase (standard-case-table))
(set-case-syntax-offset (set-case-syntax-offset
(if enable-multibyte-characters (if set-case-syntax-set-multibyte
(- (make-char 'latin-iso8859-2) 128) (- (make-char 'latin-iso8859-2) 128)
0))) 0)))
(set-case-syntax 160 " " downcase) ; NBSP (no-break space) (set-case-syntax 160 " " downcase) ; NBSP (no-break space)
...@@ -93,6 +95,9 @@ ...@@ -93,6 +95,9 @@
(set-case-syntax 255 "w" downcase) ; dot accent (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 ;;; latin-2.el ends here
...@@ -33,7 +33,7 @@ ...@@ -33,7 +33,7 @@
(let ((downcase (standard-case-table)) (let ((downcase (standard-case-table))
(set-case-syntax-offset (set-case-syntax-offset
(if enable-multibyte-characters (if set-case-syntax-set-multibyte
(- (make-char 'latin-iso8859-3) 128) (- (make-char 'latin-iso8859-3) 128)
0))) 0)))
(set-case-syntax 160 " " downcase) ; NBSP (no-break space) (set-case-syntax 160 " " downcase) ; NBSP (no-break space)
...@@ -99,7 +99,10 @@ ...@@ -99,7 +99,10 @@
(set-case-syntax 255 "w" downcase) ; dot accent (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 ;;; latin-3.el ends here
;;; 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. ;; Copyright (C) 1988,1997 Free Software Foundation, Inc.
...@@ -33,7 +33,7 @@ ...@@ -33,7 +33,7 @@
(let ((tbl (standard-case-table)) (let ((tbl (standard-case-table))
(set-case-syntax-offset (set-case-syntax-offset
(if enable-multibyte-characters (if set-case-syntax-set-multibyte
(- (make-char 'latin-iso8859-4) 128) (- (make-char 'latin-iso8859-4) 128)
0))) 0)))
(set-case-syntax 160 "w" tbl) ;NO-BREAK SPACE (set-case-syntax 160 "w" tbl) ;NO-BREAK SPACE
...@@ -93,6 +93,9 @@ ...@@ -93,6 +93,9 @@
(set-case-syntax 247 "_" tbl) ;DIVISION SIGN (set-case-syntax 247 "_" tbl) ;DIVISION SIGN
(set-case-syntax 255 "w" tbl)) ;DOT ABOVE (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 ;;; latin-4.el ends here
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment