git.chise.org Git - chise/xemacs-chise.git-/blob - lisp/iso8859-1.el

   1 ;;; iso8859-1.el --- Set case and syntax tables for Latin 1
   2
   3 ;; Copyright (C) 1992, 1997 Free Software Foundation, Inc.
   4
   5 ;; Author: Jamie Zawinski <jwz@jwz.org>
   6 ;; Created: 19-aug-92
   7 ;; Maintainer: XEmacs Development Team
   8 ;; Keywords: internal, dumped
   9
  10 ;; This file is part of XEmacs.
  11
  12 ;; XEmacs is free software; you can redistribute it and/or modify it
  13 ;; under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation; either version 2, or (at your option)
  15 ;; any later version.
  16
  17 ;; XEmacs is distributed in the hope that it will be useful, but
  18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  20 ;; General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  24 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  25 ;; 02111-1307, USA.
  26
  27 ;;; Synched up with:  Not synched
  28
  29 ;;; Commentary:
  30
  31 ;; created by jwz, 19-aug-92.
  32 ;; Sets the case and syntax tables for the ISO-8859/1 character set.
  33
  34 ;;; Code:
  35
  36 (let ((table (standard-syntax-table)))
  37   ;;
  38   ;; The symbol characters
  39   ;;
  40   (modify-syntax-entry ?\240 "_"     table)   ; nobreakspace
  41   (modify-syntax-entry ?\241 "."     table)   ; exclamdown
  42   (modify-syntax-entry ?\242 "_"     table)   ; cent
  43   (modify-syntax-entry ?\243 "_"     table)   ; sterling
  44   (modify-syntax-entry ?\244 "_"     table)   ; currency
  45   (modify-syntax-entry ?\245 "_"     table)   ; yen
  46   (modify-syntax-entry ?\246 "_"     table)   ; brokenbar
  47   (modify-syntax-entry ?\247 "_"     table)   ; section
  48   (modify-syntax-entry ?\250 "_"     table)   ; diaeresis
  49   (modify-syntax-entry ?\251 "_"     table)   ; copyright
  50   (modify-syntax-entry ?\252 "_"     table)   ; ordfeminine
  51   (modify-syntax-entry ?\253 "(\273" table)   ; guillemotleft
  52   (modify-syntax-entry ?\254 "_"     table)   ; notsign
  53   (modify-syntax-entry ?\255 "_"     table)   ; hyphen
  54   (modify-syntax-entry ?\256 "_"     table)   ; registered
  55   (modify-syntax-entry ?\257 "_"     table)   ; macron
  56   (modify-syntax-entry ?\260 "_"     table)   ; degree
  57   (modify-syntax-entry ?\261 "_"     table)   ; plusminus
  58   (modify-syntax-entry ?\262 "_"     table)   ; twosuperior
  59   (modify-syntax-entry ?\263 "_"     table)   ; threesuperior
  60   (modify-syntax-entry ?\264 "_"     table)   ; acute
  61   (modify-syntax-entry ?\265 "_"     table)   ; mu
  62   (modify-syntax-entry ?\266 "_"     table)   ; paragraph
  63   (modify-syntax-entry ?\267 "_"     table)   ; periodcentered
  64   (modify-syntax-entry ?\270 "_"     table)   ; cedilla
  65   (modify-syntax-entry ?\271 "_"     table)   ; onesuperior
  66   (modify-syntax-entry ?\272 "_"     table)   ; masculine
  67   (modify-syntax-entry ?\273 ")\253" table)   ; guillemotright
  68   (modify-syntax-entry ?\274 "_"     table)   ; onequarter
  69   (modify-syntax-entry ?\275 "_"     table)   ; onehalf
  70   (modify-syntax-entry ?\276 "_"     table)   ; threequarters
  71   (modify-syntax-entry ?\277 "_"     table)   ; questiondown
  72   ;;
  73   ;; the upper-case characters (plus "multiply" and "ssharp")
  74   ;;
  75   (modify-syntax-entry ?\300 "w" table)   ; Agrave
  76   (modify-syntax-entry ?\301 "w" table)   ; Aacute
  77   (modify-syntax-entry ?\302 "w" table)   ; Acircumflex
  78   (modify-syntax-entry ?\303 "w" table)   ; Atilde
  79   (modify-syntax-entry ?\304 "w" table)   ; Adiaeresis
  80   (modify-syntax-entry ?\305 "w" table)   ; Aring
  81   (modify-syntax-entry ?\306 "w" table)   ; AE
  82   (modify-syntax-entry ?\307 "w" table)   ; Ccedilla
  83   (modify-syntax-entry ?\310 "w" table)   ; Egrave
  84   (modify-syntax-entry ?\311 "w" table)   ; Eacute
  85   (modify-syntax-entry ?\312 "w" table)   ; Ecircumflex
  86   (modify-syntax-entry ?\313 "w" table)   ; Ediaeresis
  87   (modify-syntax-entry ?\314 "w" table)   ; Igrave
  88   (modify-syntax-entry ?\315 "w" table)   ; Iacute
  89   (modify-syntax-entry ?\316 "w" table)   ; Icircumflex
  90   (modify-syntax-entry ?\317 "w" table)   ; Idiaeresis
  91   (modify-syntax-entry ?\320 "w" table)   ; ETH
  92   (modify-syntax-entry ?\321 "w" table)   ; Ntilde
  93   (modify-syntax-entry ?\322 "w" table)   ; Ograve
  94   (modify-syntax-entry ?\323 "w" table)   ; Oacute
  95   (modify-syntax-entry ?\324 "w" table)   ; Ocircumflex
  96   (modify-syntax-entry ?\325 "w" table)   ; Otilde
  97   (modify-syntax-entry ?\326 "w" table)   ; Odiaeresis
  98   (modify-syntax-entry ?\327 "_" table)   ; multiply
  99   (modify-syntax-entry ?\330 "w" table)   ; Ooblique
 100   (modify-syntax-entry ?\331 "w" table)   ; Ugrave
 101   (modify-syntax-entry ?\332 "w" table)   ; Uacute
 102   (modify-syntax-entry ?\333 "w" table)   ; Ucircumflex
 103   (modify-syntax-entry ?\334 "w" table)   ; Udiaeresis
 104   (modify-syntax-entry ?\335 "w" table)   ; Yacute
 105   (modify-syntax-entry ?\336 "w" table)   ; THORN
 106   (modify-syntax-entry ?\337 "w" table)   ; ssharp
 107   ;;
 108   ;; the lower-case characters (plus "division" and "ydiaeresis")
 109   ;;
 110   (modify-syntax-entry ?\340 "w" table)   ; agrave
 111   (modify-syntax-entry ?\341 "w" table)   ; aacute
 112   (modify-syntax-entry ?\342 "w" table)   ; acircumflex
 113   (modify-syntax-entry ?\343 "w" table)   ; atilde
 114   (modify-syntax-entry ?\344 "w" table)   ; adiaeresis
 115   (modify-syntax-entry ?\345 "w" table)   ; aring
 116   (modify-syntax-entry ?\346 "w" table)   ; ae
 117   (modify-syntax-entry ?\347 "w" table)   ; ccedilla
 118   (modify-syntax-entry ?\350 "w" table)   ; egrave
 119   (modify-syntax-entry ?\351 "w" table)   ; eacute
 120   (modify-syntax-entry ?\352 "w" table)   ; ecircumflex
 121   (modify-syntax-entry ?\353 "w" table)   ; ediaeresis
 122   (modify-syntax-entry ?\354 "w" table)   ; igrave
 123   (modify-syntax-entry ?\355 "w" table)   ; iacute
 124   (modify-syntax-entry ?\356 "w" table)   ; icircumflex
 125   (modify-syntax-entry ?\357 "w" table)   ; idiaeresis
 126   (modify-syntax-entry ?\360 "w" table)   ; eth
 127   (modify-syntax-entry ?\361 "w" table)   ; ntilde
 128   (modify-syntax-entry ?\362 "w" table)   ; ograve
 129   (modify-syntax-entry ?\363 "w" table)   ; oacute
 130   (modify-syntax-entry ?\364 "w" table)   ; ocircumflex
 131   (modify-syntax-entry ?\365 "w" table)   ; otilde
 132   (modify-syntax-entry ?\366 "w" table)   ; odiaeresis
 133   (modify-syntax-entry ?\367 "_" table)   ; division
 134   (modify-syntax-entry ?\370 "w" table)   ; ooblique
 135   (modify-syntax-entry ?\371 "w" table)   ; ugrave
 136   (modify-syntax-entry ?\372 "w" table)   ; uacute
 137   (modify-syntax-entry ?\373 "w" table)   ; ucircumflex
 138   (modify-syntax-entry ?\374 "w" table)   ; udiaeresis
 139   (modify-syntax-entry ?\375 "w" table)   ; yacute
 140   (modify-syntax-entry ?\376 "w" table)   ; thorn
 141   (modify-syntax-entry ?\377 "w" table)   ; ydiaeresis
 142   )
 143
 144 \f
 145 (unless (featurep 'utf-2000)
 146 (defconst iso8859/1-case-table nil
 147   "The case table for ISO-8859/1 characters.")
 148
 149 ;;; This macro expands into
 150 ;;;  (setq iso8859/1-case-table (purecopy '("..." nil nil nil)))
 151 ;;; doing the computation of the case table at compile-time.
 152
 153 ((macro
 154   . (lambda (&rest pairs)
 155       (let ((downcase (make-string 256 0))
 156             (i 0))
 157         (while (< i 256)
 158           (aset downcase i (if (and (>= i ?A) (<= i ?Z)) (+ i 32) i))
 159           (setq i (1+ i)))
 160         (while pairs
 161           (aset downcase (car (car pairs)) (car (cdr (car pairs))))
 162           (setq pairs (cdr pairs)))
 163         (cons 'setq
 164               (cons 'iso8859/1-case-table
 165                     (list
 166                      (list 'quote
 167                            (list downcase nil nil nil))))))))
 168
 169  (?\300  ?\340)         ; Agrave
 170  (?\301  ?\341)         ; Aacute
 171  (?\302  ?\342)         ; Acircumflex
 172  (?\303  ?\343)         ; Atilde
 173  (?\304  ?\344)         ; Adiaeresis
 174  (?\305  ?\345)         ; Aring
 175  (?\306  ?\346)         ; AE
 176  (?\307  ?\347)         ; Ccedilla
 177  (?\310  ?\350)         ; Egrave
 178  (?\311  ?\351)         ; Eacute
 179  (?\312  ?\352)         ; Ecircumflex
 180  (?\313  ?\353)         ; Ediaeresis
 181  (?\314  ?\354)         ; Igrave
 182  (?\315  ?\355)         ; Iacute
 183  (?\316  ?\356)         ; Icircumflex
 184  (?\317  ?\357)         ; Idiaeresis
 185  (?\320  ?\360)         ; ETH
 186  (?\321  ?\361)         ; Ntilde
 187  (?\322  ?\362)         ; Ograve
 188  (?\323  ?\363)         ; Oacute
 189  (?\324  ?\364)         ; Ocircumflex
 190  (?\325  ?\365)         ; Otilde
 191  (?\326  ?\366)         ; Odiaeresis
 192  (?\330  ?\370)         ; Ooblique
 193  (?\331  ?\371)         ; Ugrave
 194  (?\332  ?\372)         ; Uacute
 195  (?\333  ?\373)         ; Ucircumflex
 196  (?\334  ?\374)         ; Udiaeresis
 197  (?\335  ?\375)         ; Yacute
 198  (?\336  ?\376)         ; THORN
 199  )
 200
 201 (set-standard-case-table (mapcar 'copy-sequence iso8859/1-case-table))
 202 )
 203
 204 (setq-default ctl-arrow 'iso-8859/1)
 205
 206 (provide 'iso8859-1)
 207
 208 ;;; iso8859-1.el ends here