;;; iso-insert.el --- insert functions for ISO 8859/1.;; Copyright (C) 1987, 1994 Free Software Foundation, Inc.;; Author: Howard Gayle;; Maintainer: FSF;; Keywords: i18n;; This file is part of XEmacs.;; XEmacs 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.;; XEmacs 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 XEmacs; see the file COPYING. If not, write to the;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,;; Boston, MA 02111-1307, USA.;;; Synched up with: FSF 19.34.;;; Commentary:;; Written by Howard Gayle. See case-table.el for details.;;; #### I think there may be some functionality overlap between this file;;; and x-compose.el. Should think about integrating.;;; Code:(defuninsert-no-break-space()(interactive"*")(insert160))(defuninsert-inverted-exclamation-mark()(interactive"*")(insert161))(defuninsert-cent-sign()(interactive"*")(insert162))(defuninsert-pound-sign()(interactive"*")(insert163))(defuninsert-general-currency-sign()(interactive"*")(insert164))(defuninsert-yen-sign()(interactive"*")(insert165))(defuninsert-broken-vertical-line()(interactive"*")(insert166))(defuninsert-section-sign()(interactive"*")(insert167))(defuninsert-diaeresis()(interactive"*")(insert168))(defuninsert-copyright-sign()(interactive"*")(insert169))(defuninsert-ordinal-indicator-feminine()(interactive"*")(insert170))(defuninsert-angle-quotation-mark-left()(interactive"*")(insert171))(defuninsert-not-sign()(interactive"*")(insert172))(defuninsert-soft-hyphen()(interactive"*")(insert173))(defuninsert-registered-sign()(interactive"*")(insert174))(defuninsert-macron()(interactive"*")(insert175))(defuninsert-degree-sign()(interactive"*")(insert176))(defuninsert-plus-or-minus-sign()(interactive"*")(insert177))(defuninsert-superscript-two()(interactive"*")(insert178))(defuninsert-superscript-three()(interactive"*")(insert179))(defuninsert-acute-accent()(interactive"*")(insert180))(defuninsert-micro-sign()(interactive"*")(insert181))(defuninsert-pilcrow()(interactive"*")(insert182))(defuninsert-middle-dot()(interactive"*")(insert183))(defuninsert-cedilla()(interactive"*")(insert184))(defuninsert-superscript-one()(interactive"*")(insert185))(defuninsert-ordinal-indicator-masculine()(interactive"*")(insert186))(defuninsert-angle-quotation-mark-right()(interactive"*")(insert187))(defuninsert-fraction-one-quarter()(interactive"*")(insert188))(defuninsert-fraction-one-half()(interactive"*")(insert189))(defuninsert-fraction-three-quarters()(interactive"*")(insert190))(defuninsert-inverted-question-mark()(interactive"*")(insert191))(defuninsert-A-grave()(interactive"*")(insert192))(defuninsert-A-acute()(interactive"*")(insert193))(defuninsert-A-circumflex()(interactive"*")(insert194))(defuninsert-A-tilde()(interactive"*")(insert195))(defuninsert-A-umlaut()(interactive"*")(insert196))(defuninsert-A-ring()(interactive"*")(insert197))(defuninsert-AE()(interactive"*")(insert198))(defuninsert-C-cedilla()(interactive"*")(insert199))(defuninsert-E-grave()(interactive"*")(insert200))(defuninsert-E-acute()(interactive"*")(insert201))(defuninsert-E-circumflex()(interactive"*")(insert202))(defuninsert-E-umlaut()(interactive"*")(insert203))(defuninsert-I-grave()(interactive"*")(insert204))(defuninsert-I-acute()(interactive"*")(insert205))(defuninsert-I-circumflex()(interactive"*")(insert206))(defuninsert-I-umlaut()(interactive"*")(insert207))(defuninsert-D-stroke()(interactive"*")(insert208))(defuninsert-N-tilde()(interactive"*")(insert209))(defuninsert-O-grave()(interactive"*")(insert210))(defuninsert-O-acute()(interactive"*")(insert211))(defuninsert-O-circumflex()(interactive"*")(insert212))(defuninsert-O-tilde()(interactive"*")(insert213))(defuninsert-O-umlaut()(interactive"*")(insert214))(defuninsert-multiplication-sign()(interactive"*")(insert215))(defuninsert-O-slash()(interactive"*")(insert216))(defuninsert-U-grave()(interactive"*")(insert217))(defuninsert-U-acute()(interactive"*")(insert218))(defuninsert-U-circumflex()(interactive"*")(insert219))(defuninsert-U-umlaut()(interactive"*")(insert220))(defuninsert-Y-acute()(interactive"*")(insert221))(defuninsert-THORN()(interactive"*")(insert222))(defuninsert-ss()(interactive"*")(insert223))(defuninsert-a-grave()(interactive"*")(insert224))(defuninsert-a-acute()(interactive"*")(insert225))(defuninsert-a-circumflex()(interactive"*")(insert226))(defuninsert-a-tilde()(interactive"*")(insert227))(defuninsert-a-umlaut()(interactive"*")(insert228))(defuninsert-a-ring()(interactive"*")(insert229))(defuninsert-ae()(interactive"*")(insert230))(defuninsert-c-cedilla()(interactive"*")(insert231))(defuninsert-e-grave()(interactive"*")(insert232))(defuninsert-e-acute()(interactive"*")(insert233))(defuninsert-e-circumflex()(interactive"*")(insert234))(defuninsert-e-umlaut()(interactive"*")(insert235))(defuninsert-i-grave()(interactive"*")(insert236))(defuninsert-i-acute()(interactive"*")(insert237))(defuninsert-i-circumflex()(interactive"*")(insert238))(defuninsert-i-umlaut()(interactive"*")(insert239))(defuninsert-d-stroke()(interactive"*")(insert240))(defuninsert-n-tilde()(interactive"*")(insert241))(defuninsert-o-grave()(interactive"*")(insert242))(defuninsert-o-acute()(interactive"*")(insert243))(defuninsert-o-circumflex()(interactive"*")(insert244))(defuninsert-o-tilde()(interactive"*")(insert245))(defuninsert-o-umlaut()(interactive"*")(insert246))(defuninsert-division-sign()(interactive"*")(insert247))(defuninsert-o-slash()(interactive"*")(insert248))(defuninsert-u-grave()(interactive"*")(insert249))(defuninsert-u-acute()(interactive"*")(insert250))(defuninsert-u-circumflex()(interactive"*")(insert251))(defuninsert-u-umlaut()(interactive"*")(insert252))(defuninsert-y-acute()(interactive"*")(insert253))(defuninsert-thorn()(interactive"*")(insert254))(defuninsert-y-umlaut()(interactive"*")(insert255))(defvar8859-1-mapnil"Keymap for ISO 8859/1 character insertion.")(if8859-1-mapnil(setq8859-1-map(make-keymap))(define-key8859-1-map" "'insert-no-break-space)(define-key8859-1-map"!"'insert-inverted-exclamation-mark)(define-key8859-1-map"\""(make-sparse-keymap))(define-key8859-1-map"\"\""'insert-diaeresis)(define-key8859-1-map"\"A"'insert-A-umlaut)(define-key8859-1-map"\"E"'insert-E-umlaut)(define-key8859-1-map"\"I"'insert-I-umlaut)(define-key8859-1-map"\"O"'insert-O-umlaut)(define-key8859-1-map"\"U"'insert-U-umlaut)(define-key8859-1-map"\"a"'insert-a-umlaut)(define-key8859-1-map"\"e"'insert-e-umlaut)(define-key8859-1-map"\"i"'insert-i-umlaut)(define-key8859-1-map"\"o"'insert-o-umlaut)(define-key8859-1-map"\"u"'insert-u-umlaut)(define-key8859-1-map"\"y"'insert-y-umlaut)(define-key8859-1-map"'"(make-sparse-keymap))(define-key8859-1-map"''"'insert-acute-accent)(define-key8859-1-map"'A"'insert-A-acute)(define-key8859-1-map"'E"'insert-E-acute)(define-key8859-1-map"'I"'insert-I-acute)(define-key8859-1-map"'O"'insert-O-acute)(define-key8859-1-map"'U"'insert-U-acute)(define-key8859-1-map"'Y"'insert-Y-acute)(define-key8859-1-map"'a"'insert-a-acute)(define-key8859-1-map"'e"'insert-e-acute)(define-key8859-1-map"'i"'insert-i-acute)(define-key8859-1-map"'o"'insert-o-acute)(define-key8859-1-map"'u"'insert-u-acute)(define-key8859-1-map"'y"'insert-y-acute)(define-key8859-1-map"$"'insert-general-currency-sign)(define-key8859-1-map"+"'insert-plus-or-minus-sign)(define-key8859-1-map","(make-sparse-keymap))(define-key8859-1-map",,"'insert-cedilla)(define-key8859-1-map",C"'insert-C-cedilla)(define-key8859-1-map",c"'insert-c-cedilla)(define-key8859-1-map"-"'insert-soft-hyphen)(define-key8859-1-map"."'insert-middle-dot)(define-key8859-1-map"/"(make-sparse-keymap))(define-key8859-1-map"//"'insert-division-sign)(define-key8859-1-map"/O"'insert-O-slash)(define-key8859-1-map"/o"'insert-o-slash)(define-key8859-1-map"1"(make-sparse-keymap))(define-key8859-1-map"1/"(make-sparse-keymap))(define-key8859-1-map"1/2"'insert-fraction-one-half)(define-key8859-1-map"1/4"'insert-fraction-one-quarter)(define-key8859-1-map"3"(make-sparse-keymap))(define-key8859-1-map"3/"(make-sparse-keymap))(define-key8859-1-map"3/4"'insert-fraction-three-quarters)(define-key8859-1-map"<"'insert-angle-quotation-mark-left)(define-key8859-1-map"="'insert-macron)(define-key8859-1-map">"'insert-angle-quotation-mark-right)(define-key8859-1-map"?"'insert-inverted-question-mark)(define-key8859-1-map"A"'insert-A-ring)(define-key8859-1-map"E"'insert-AE)(define-key8859-1-map"C"'insert-copyright-sign)(define-key8859-1-map"D"'insert-D-stroke)(define-key8859-1-map"L"'insert-pound-sign)(define-key8859-1-map"P"'insert-pilcrow)(define-key8859-1-map"R"'insert-registered-sign)(define-key8859-1-map"S"'insert-section-sign)(define-key8859-1-map"T"'insert-THORN)(define-key8859-1-map"Y"'insert-yen-sign)(define-key8859-1-map"^"(make-sparse-keymap))(define-key8859-1-map"^1"'insert-superscript-one)(define-key8859-1-map"^2"'insert-superscript-two)(define-key8859-1-map"^3"'insert-superscript-three)(define-key8859-1-map"^A"'insert-A-circumflex)(define-key8859-1-map"^E"'insert-E-circumflex)(define-key8859-1-map"^I"'insert-I-circumflex)(define-key8859-1-map"^O"'insert-O-circumflex)(define-key8859-1-map"^U"'insert-U-circumflex)(define-key8859-1-map"^a"'insert-a-circumflex)(define-key8859-1-map"^e"'insert-e-circumflex)(define-key8859-1-map"^i"'insert-i-circumflex)(define-key8859-1-map"^o"'insert-o-circumflex)(define-key8859-1-map"^u"'insert-u-circumflex)(define-key8859-1-map"_"(make-sparse-keymap))(define-key8859-1-map"_a"'insert-ordinal-indicator-feminine)(define-key8859-1-map"_o"'insert-ordinal-indicator-masculine)(define-key8859-1-map"`"(make-sparse-keymap))(define-key8859-1-map"`A"'insert-A-grave)(define-key8859-1-map"`E"'insert-E-grave)(define-key8859-1-map"`I"'insert-I-grave)(define-key8859-1-map"`O"'insert-O-grave)(define-key8859-1-map"`U"'insert-U-grave)(define-key8859-1-map"`a"'insert-a-grave)(define-key8859-1-map"`e"'insert-e-grave)(define-key8859-1-map"`i"'insert-i-grave)(define-key8859-1-map"`o"'insert-o-grave)(define-key8859-1-map"`u"'insert-u-grave)(define-key8859-1-map"a"'insert-a-ring)(define-key8859-1-map"e"'insert-ae)(define-key8859-1-map"c"'insert-cent-sign)(define-key8859-1-map"d"'insert-d-stroke)(define-key8859-1-map"o"'insert-degree-sign)(define-key8859-1-map"s"'insert-ss)(define-key8859-1-map"t"'insert-thorn)(define-key8859-1-map"u"'insert-micro-sign)(define-key8859-1-map"x"'insert-multiplication-sign)(define-key8859-1-map"|"'insert-broken-vertical-line)(define-key8859-1-map"~"(make-sparse-keymap))(define-key8859-1-map"~A"'insert-A-tilde)(define-key8859-1-map"~N"'insert-N-tilde)(define-key8859-1-map"~O"'insert-O-tilde)(define-key8859-1-map"~a"'insert-a-tilde)(define-key8859-1-map"~n"'insert-n-tilde)(define-key8859-1-map"~o"'insert-o-tilde)(define-key8859-1-map"~~"'insert-not-sign)(if(not(lookup-keyglobal-map"\C-x8"))(define-keyglobal-map"\C-x8"8859-1-map)))(provide'iso-insert);;; iso-insert.el ends here