view lisp/international/latin-8.el @ 34097:0225d8e15f2c

(coordinates_in_window): Handle computations for positions on the vertical bar and fringes differently for window-system frames. Consider some pixels near the vertical bar as on the bar if the frame doesn't have vertical scroll bars. Associate positions between mode or header lines with the right window, the left one.

;;; latin-8.el --- set up case-conversion and syntax tables for ISO Latin-8

;; Copyright (C) 1988,1997, 1999 Free Software Foundation, Inc.

;; Author: Dave Love
;; Maintainer: FSF
;; Keywords: i18n

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; Case-conversion and syntax tables for ISO-8859-14 (Latin-8),
;; adapted from latin-1.el.

;; <URL:http://czyborra.com/charsets/iso8859.html>:
;; Latin8 adds the last Gaelic and Welsh (cy) letters to Latin1 to cover
;; all Celtic languages.

;; The differences from Latin-1 are starred in the comments below.

;; This is now ISO/IEC 8859-8:1999.    As of 1999-05, there was a `final
;; proof' at <URL:http://www.indigo.ie/egt/standards/iso8859/8859-14-en.pdf>.
;; See also <URL:http://www.itscj.ipsj.or.jp/ISO-IR/199.pdf>.

;;; Code:

(require 'case-table)

(let ((tbl (standard-case-table))
      (set-case-syntax-offset
       (if set-case-syntax-set-multibyte
	   (- (make-char 'latin-iso8859-14) 128)
	 0)))
  (set-case-syntax-pair 161 162 tbl)	;latin letter b with dot above *
  (set-case-syntax 163 "w" tbl)		;pound sign
  (set-case-syntax-pair 164 165 tbl)	;latin letter c with dot above *
  (set-case-syntax-pair 166 171 tbl)	;latin letter d with dot above *
  (set-case-syntax 167 "." tbl)		;section sign
  (set-case-syntax-pair 168 184 tbl)	;latin letter w with grave *
  (set-case-syntax 169 "_" tbl)		;copyright sign
  (set-case-syntax-pair 170 186 tbl)	;latin letter w with acute *
  (set-case-syntax-pair 172 188 tbl)	;latin letter y with grave *
  (set-case-syntax 173 "_" tbl)		;soft hyphen
  (set-case-syntax 174 "_" tbl)		;registered sign
  (set-case-syntax-pair 175 255 tbl)	;latin letter y with diaeresis *
  (set-case-syntax-pair 176 177 tbl)	;capital f with dot above *
  (set-case-syntax-pair 178 179 tbl)	;latin letter g with dot above *
  (set-case-syntax-pair 180 181 tbl)	;latin letter m with dot above *
  (set-case-syntax 182 "w" tbl)		;pilcrow sign
  (set-case-syntax-pair 183 185 tbl)	;latin letter p with dot above *
  (set-case-syntax-pair 187 191 tbl)	;latin letter s with dot above *
  (set-case-syntax-pair 189 190 tbl)	;latin letter w with diaeresis *
  (set-case-syntax-pair 192 224 tbl)	;latin letter a with grave
  (set-case-syntax-pair 193 225 tbl)	;latin letter a with acute
  (set-case-syntax-pair 194 226 tbl)	;latin letter a with circumflex
  (set-case-syntax-pair 195 227 tbl)	;latin letter a with tilde
  (set-case-syntax-pair 196 228 tbl)	;latin letter a with diaeresis
  (set-case-syntax-pair 197 229 tbl)	;latin letter a with ring above
  (set-case-syntax-pair 198 230 tbl)	;latin letter ae
  (set-case-syntax-pair 199 231 tbl)	;latin letter c with cedilla
  (set-case-syntax-pair 200 232 tbl)	;latin letter e with grave
  (set-case-syntax-pair 201 233 tbl)	;latin letter e with acute
  (set-case-syntax-pair 202 234 tbl)	;latin letter e with circumflex
  (set-case-syntax-pair 203 235 tbl)	;latin letter e with diaeresis
  (set-case-syntax-pair 204 236 tbl)	;latin letter i with grave
  (set-case-syntax-pair 205 237 tbl)	;latin letter i with acute
  (set-case-syntax-pair 206 238 tbl)	;latin letter i with circumflex
  (set-case-syntax-pair 207 239 tbl)	;latin letter i with diaeresis
  (set-case-syntax-pair 208 240 tbl)	;latin letter w with circumflex *
  (set-case-syntax-pair 209 241 tbl)	;latin letter n with tilde
  (set-case-syntax-pair 210 242 tbl)	;latin letter o with grave
  (set-case-syntax-pair 211 243 tbl)	;latin letter o with acute
  (set-case-syntax-pair 212 244 tbl)	;latin letter o with circumflex
  (set-case-syntax-pair 213 245 tbl)	;latin letter o with tilde
  (set-case-syntax-pair 214 246 tbl)	;latin letter o with diaeresis
  (set-case-syntax-pair 215 247 tbl)	;latin letter t with dot above *
  (set-case-syntax-pair 216 248 tbl)	;latin letter o with stroke
  (set-case-syntax-pair 217 249 tbl)	;latin letter u with grave
  (set-case-syntax-pair 218 250 tbl)	;latin letter u with acute
  (set-case-syntax-pair 219 251 tbl)	;latin letter u with circumflex
  (set-case-syntax-pair 220 252 tbl)	;latin letter u with diaeresis
  (set-case-syntax-pair 221 253 tbl)	;latin letter y with acute
  (set-case-syntax-pair 222 254 tbl)	;latin letter y with circumflex *
  (set-case-syntax 223 "w" tbl))	;latin small letter sharp s

;; 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-8))

;;; latin-8.el ends here