home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1129 < prev    next >
Internet Message Format  |  1990-12-28  |  46KB
  1. From: howard@hasse.ericsson.se (Howard Gayle)
  2. Newsgroups: alt.sources
  3. Subject: GNU Emacs 8-bit mods part 02 of 12
  4. Message-ID: <1990Apr5.133248.8636@ericsson.se>
  5. Date: 5 Apr 90 13:32:48 GMT
  6.  
  7. #! /bin/sh
  8. # This is a shell archive.  Remove anything before this line, then feed it
  9. # into a shell via "sh file" or similar.  To overwrite existing files,
  10. # type "sh file -c".
  11. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  12. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  13. # If this archive is complete, you will see the following message at the end:
  14. #        "End of archive 2 (of 4)."
  15. # Contents:  lisp/el.abe lisp/iso8859-1-insert.el
  16. #   lisp/iso8859-1-swedish.el src/transtab.c
  17. # Wrapped by howard@hasse on Thu Apr  5 15:28:03 1990
  18. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  19. if test -f 'lisp/el.abe' -a "${1}" != "-c" ; then 
  20.   echo shar: Will not clobber existing file \"'lisp/el.abe'\"
  21. else
  22. echo shar: Extracting \"'lisp/el.abe'\" \(12955 characters\)
  23. sed "s/^X//" >'lisp/el.abe' <<'END_OF_FILE'
  24. X;ABE ASCII-Binary-Encoding (by Brad Templeton)
  25. X;Use 'sort' and/or 'dabe' to decode
  26. XT./.$$filecount=2
  27. XT.0O##S1000,1000,1000,ABE2
  28. XT.1N$$blocking=false
  29. XT.2V$$uname=iso8859-1.el
  30. XT.3f$$os=unix
  31. XT.4G$$fname=iso8859-1.el
  32. XT.5p$$owner=howard
  33. XT.6v$$date=632217388
  34. XT.7.$$perm=33188
  35. XT.8E$$size=5560
  36. XT.9l"".zDDEFDGHDIJDKzA/L1MNDOPDQYCRSDTUDVWDXYDZXCijDklD
  37. XT.Aw""/.W0mnDpqDrjAMK.stDZJ.X//01.23.45.67.89.uVAvwDxQA
  38. XT.B5""0UA6BC.DE.FG.HI.JK3LM/NO.PQ/RS.TU.VW2XY2Zg5edDcbD
  39. XT.C9""1aaAbc.de.fg.hi.jk2lm.no.pq.rs.tu.vw.xy.zC5A9D87D
  40. XT.DQ""2yZC65D43D21D0/D.9CAB8CD8EF8GH8IJ8KL8MN8OP8QR8ST8
  41. XT.Ej""30V4ohDfBDab8cd8ef8gh8ij8kl8mn8op8qr8st8uv8wx8yz8
  42. XT.Fw""48786584382180y7xw3vu3/t7sr3qp3on3ml3ki3hg3fd3cb3
  43. XT.GB""5aY3WU3TS3RP3ON3LI3eG3HF3ED3BA39C3873653433213..4
  44. XT.HuVV.Set.up.caseZ.sortZ.transZ.and.syntax.tables.for.ISO.8859+/1.ch
  45. XT.Iiaracter.setX/VV.Copyright.MCK.1987.Free.Software.FoundationZ.IncX
  46. XT.Jf//VV.This.file.is.part.of.GNU.EmacsX//VV.GNU.Emacs.is.distributed
  47. XT.Kt.in.the.hope.that.it.will.be.usefulZ/VV.but.WITHOUT.ANY.WARRANTYX
  48. XT.Ls..No.author.or.distributor/VV.accepts.responsibility.to.anyone.fo
  49. XT.M5r.the.consequences.of.using.it/VV.or.for.whether.it.serves.any.pa
  50. XT.Ngrticular.purpose.or.works.at.allZ/VV.unless.he.says.so.in.writing
  51. XT.OyX..Refer.to.the.GNU.Emacs.General.Public/VV.License.for.full.deta
  52. XT.PdilsX//VV.Everyone.is.granted.permission.to.copyZ.modify.and.redis
  53. XT.Qptribute/VV.GNU.EmacsZ.but.only.under.the.conditions.described.in.
  54. XT.Rvthe/VV.GNU.Emacs.General.Public.LicenseX...A.copy.of.this.license
  55. XT.Sw.is/VV.supposed.to.have.been.given.to.you.along.with.GNU.Emacs.so
  56. XT.TL.you/VV.can.know.your.rights.and.responsibilitiesX..It.should.be.
  57. XT.UJin.a/VV.file.named.COPYINGX..Among.other.thingsZ.the.copyright.no
  58. XT.Vptice/VV.and.this.notice.must.be.preserved.on.all.copiesX///VV.Wri
  59. XT.Witten.by.Howard.GayleX..See.caseJtableXel.for.detailsX//Mrequire.j
  60. XT.XucaseJtableK/Mrequire.jsortJtableK//MstandardJcaseJsyntaxJwhite..1
  61. XT.YF60K.....V.NBSP.MnoJbreak.spaceK/MstandardJcaseJsyntaxJpunct..161K
  62. XT.Zo.....V.inverted.exclamation.mark/MstandardJcaseJsyntaxJword...162
  63. XT.a6K.....V.cent.sign/MstandardJcaseJsyntaxJword...163K.....V.pound.s
  64. XT.bMign/MstandardJcaseJsyntaxJword...164K.....V.general.currency.sign
  65. XT.ch/MstandardJcaseJsyntaxJword...165K.....V.yen.sign/MstandardJcaseJ
  66. XT.dmsyntaxJsymb...166K.....V.broken.vertical.line/MstandardJcaseJsynt
  67. XT.efaxJword...167K.....V.section.sign/MstandardJcaseJsyntaxJword...16
  68. XT.f28K.....V.diaeresis/MstandardJcaseJsyntaxJsymb...169K.....V.copyri
  69. XT.g3ght.sign/MstandardJcaseJsyntaxJword...170K.....V.ordinal.indicato
  70. XT.hzrZ.feminine/MstandardJcaseJsyntaxJdelims.171.187K.V.angle.quotati
  71. XT.iGon.marks/MstandardJcaseJsyntaxJsymb...172K.....V.not.sign/Mstanda
  72. XT.jirdJcaseJsyntaxJsymb...173K.....V.soft.hyphen/MstandardJcaseJsynta
  73. XT.kNxJsymb...174K.....V.registered.sign/MstandardJcaseJsyntaxJword...
  74. XT.lm175K.....V.macron/MstandardJcaseJsyntaxJsymb...176K.....V.degree.
  75. XT.m.sign/MstandardJcaseJsyntaxJsymb...177K.....V.plus.or.minus.sign/M
  76. XT.nkstandardJcaseJsyntaxJword...178K.....V.superscript.two/MstandardJ
  77. XT.oacaseJsyntaxJword...179K.....V.superscript.three/MstandardJcaseJsy
  78. XT.puntaxJword...180K.....V.acute.accent/MstandardJcaseJsyntaxJsymb...
  79. XT.qF181K.....V.micro.sign/MstandardJcaseJsyntaxJword...182K.....V.pil
  80. XT.rkcrow/MstandardJcaseJsyntaxJsymb...183K.....V.middle.dot/Mstandard
  81. XT.slJcaseJsyntaxJword...184K.....V.cedilla/MstandardJcaseJsyntaxJword
  82. XT.t9...185K.....V.superscript.one/MstandardJcaseJsyntaxJword...186K..
  83. XT.uq...V.ordinal.indicatorZ.masculine/VV....z.......z.....z.....187..
  84. XT.vM....V.See.171.aboveX/MstandardJcaseJsyntaxJsymb...188K.....V.frac
  85. XT.wMtion.oneJquarter/MstandardJcaseJsyntaxJsymb...189K.....V.fraction
  86. XT.xx.oneJhalf/MstandardJcaseJsyntaxJsymb...190K.....V.fraction.threeJ
  87. XT.yIquarters/MstandardJcaseJsyntaxJpunct..191K.....V.inverted.questio
  88. XT.zUn.mark/MstandardJcaseJsyntaxJpair...192.224K.V.A.with.grave.accen
  89. XT/.Xt/MstandardJcaseJsyntaxJpair...193.225K.V.A.with.acute.accent/Mst
  90. XT//iandardJcaseJsyntaxJpair...194.226K.V.A.with.circumflex.accent/Mst
  91. XT/0CandardJcaseJsyntaxJpair...195.227K.V.A.with.tilde/MstandardJcaseJ
  92. XT/1rsyntaxJpair...196.228K.V.A.with.diaeresis.or.umlaut.mark/Mstandar
  93. XT/2FdJcaseJsyntaxJpair...197.229K.V.A.with.ring/MstandardJcaseJsyntax
  94. XT/3EJpair...198.230K.V.AE.diphthong/MstandardJcaseJsyntaxJpair...199.
  95. XT/4S231K.V.C.with.cedilla/MstandardJcaseJsyntaxJpair...200.232K.V.E.w
  96. XT/5Qith.grave.accent/MstandardJcaseJsyntaxJpair...201.233K.V.E.with.a
  97. XT/6dcute.accent/MstandardJcaseJsyntaxJpair...202.234K.V.E.with.circum
  98. XT/7Eflex.accent/MstandardJcaseJsyntaxJpair...203.235K.V.E.with.diaere
  99. XT/8ksis.or.umlaut.mark/MstandardJcaseJsyntaxJpair...204.236K.V.I.with
  100. XT/9j.grave.accent/MstandardJcaseJsyntaxJpair...205.237K.V.I.with.acut
  101. XT/AUe.accent/MstandardJcaseJsyntaxJpair...206.238K.V.I.with.circumfle
  102. XT/Box.accent/MstandardJcaseJsyntaxJpair...207.239K.V.I.with.diaeresis
  103. XT/Ck.or.umlaut.mark/MstandardJcaseJsyntaxJpair...208.240K.V.D.with.st
  104. XT/DprokeZ.Icelandic.eth/MstandardJcaseJsyntaxJpair...209.241K.V.N.wit
  105. XT/EMh.tilde/MstandardJcaseJsyntaxJpair...210.242K.V.O.with.grave.acce
  106. XT/FWnt/MstandardJcaseJsyntaxJpair...211.243K.V.O.with.acute.accent/Ms
  107. XT/GntandardJcaseJsyntaxJpair...212.244K.V.O.with.circumflex.accent/Ms
  108. XT/HxtandardJcaseJsyntaxJpair...213.245K.V.O.with.tilde/MstandardJcase
  109. XT/IIJsyntaxJpair...214.246K.V.O.with.diaeresis.or.umlaut.mark/Mstanda
  110. XT/JlrdJcaseJsyntaxJsymb...215K.....V.multiplication.sign/MstandardJca
  111. XT/KgseJsyntaxJpair...216.248K.V.O.with.slash/MstandardJcaseJsyntaxJpa
  112. XT/L9ir...217.249K.V.U.with.grave.accent/MstandardJcaseJsyntaxJpair...
  113. XT/MM218.250K.V.U.with.acute.accent/MstandardJcaseJsyntaxJpair...219.2
  114. XT/Nq51K.V.U.with.circumflex.accent/MstandardJcaseJsyntaxJpair...220.2
  115. XT/O.52K.V.U.with.diaeresis.or.umlaut.mark/MstandardJcaseJsyntaxJpair.
  116. XT/PD..221.253K.V.Y.with.acute.accent/MstandardJcaseJsyntaxJpair...222
  117. XT/Qp.254K.V.thornZ.Icelandic/MstandardJcaseJsyntaxJword...223K.....V.
  118. XT/Rksmall.sharp.sZ.German/MstandardJcaseJsyntaxJsymb...247K.....V.div
  119. XT/S0ision.sign/MstandardJcaseJsyntaxJword...255K.....V.small.y.with.d
  120. XT/TRiaeresis.or.umlaut.mark//MsetJstandardJcaseJfoldJtable.MnewJsortJ
  121. XT/Uutable.jM/M0.X.31K/M32.Q+0K/M33.X.64K/MQA.QaK/MQ,8.Q+aK/MQ,7.Q+YK/
  122. XT/VMMQ,6.Q+WK/MQ,5.Q+UK/MQ,4.Q+TK/MQ,3.Q+SK/MQ,2.Q+RK/MQB.QbK/MQC.QcK
  123. XT/WX/MQ,1.Q+PK/MQD.QdK/MQE.QeK/MQ,0.Q+OK/MQ+y.Q+NK/MQ+x.Q+LK/MQ+w.Q+I
  124. XT/XpK/MQF.QfK/MQG.QgK/MQH.QhK/MQI.QiK/MQ+v.Q+eK/MQ+u.Q+GK/MQ,/.Q+HK/M
  125. XT/YIQ+t.Q+FK/MQ+s.Q+EK/MQ+J.Q+jK/MQ+K.QkK/MQL.QlK/MQ+M.QmK/MQN.QnK/MQ
  126. XT/Zi+r.Q+DK/MQO.QoK/MQ+q.Q+BK/MQ+p.Q+AK/MQ+o.Q+9K/MQ+n.Q+CK/MQ+m.Q+8K
  127. XT/ak/MQ+k.Q+6K/MQP.QpK/MQ+Q.QqK/MQR.QrK/MQS.QsK/MQT.QtK/MQU.QuK/MQ+i.
  128. XT/beQ+5K/MQ+h.Q+4K/MQ+g.Q+3K/MQ+f.Q+2K/MQ+V.QvK/MQW.QwK/MQ+X.QxK/MQY.
  129. XT/cxQyK/MQ+d.Q+1K/MQ+c.Q+.K/Q+b/Q,./MQ+Z.Q+zK/M91.X.96K/M123.X.159K/M
  130. XT/dJ161.X.191K/Q+l/Q+7/KKK//Mprovide.jiso8859J1K/
  131. XT/e/$$end_file=iso8859-1.el
  132. XT/fD$$filecrc32=3836774007
  133. XT/gM##E31898
  134. X;End of ABE encoding
  135. XT/hO##S1000,1000,1000,ABE2
  136. XT/iN$$blocking=false
  137. XT/jF$$uname=swedish.el
  138. XT/kf$$os=unix
  139. XT/l0$$fname=swedish.el
  140. XT/mp$$owner=howard
  141. XT/nn$$date=632218460
  142. XT/o.$$perm=33188
  143. XT/pM$$size=4794
  144. XT/qQ"".zKDLMDNODPQDRSD/T1UVDWXDYZDabDcdDefDghDijDkmDnoD
  145. XT/ru""/.p1Vq1Jr9sXAJD.Ct9ZB.K//01.23.45.67/89.GQ6uvDw7A
  146. XT/sa""0KA6BC2DE2FG.HI.JK3LM.NO.PQ0RS.TU.VW2XY2ZI4zB0El9
  147. XT/tD""1Da6bc.de.fg.hi.jk.lm.no.pq.rs.tu.vw.xy.z.3H07FJ9
  148. XT/up""2yIDHGDFEDDCDBAD98D76D54D32D10D/.DWU8LM8NO8PR8ST8
  149. XT/vY""3nV4xXCYZ8ab8cd8ef8gh8ij8kl8mn8op8qr8st8uv8wx8yz8
  150. XT/wk""4ov3wx3568798A483881u7ts3m24l04/y7iQ3Or3qp3MF3C93
  151. XT/x2""5kj36h3gf3ed3cb3aY3WU3TS3RP3NL3IH3GE3A835433231.4
  152. XT/yIQQ.Miscellaneous.functions.for.dealing.with.SwedishK/QQ.Copyright
  153. XT/zn.JCD.198+7Z.1990.Free.Software.FoundationZ.IncK//QQ.This.file.is.
  154. XT0.Npart.of.GNU.EmacsK//QQ.GNU.Emacs.is.distributed.in.the.hope.that.
  155. XT0/Sit.will.be.usefulZ/QQ.but.WITHOUT.ANY.WARRANTYK..No.author.or.dis
  156. XT00mtributor/QQ.accepts.responsibility.to.anyone.for.the.consequences
  157. XT01V.of.using.it/QQ.or.for.whether.it.serves.any.particular.purpose.o
  158. XT02/r.works.at.allZ/QQ.unless.he.says.so.in.writingK..Refer.to.the.GN
  159. XT033U.Emacs.General.Public/QQ.License.for.full.detailsK//QQ.Everyone.
  160. XT04zis.granted.permission.to.copyZ.modify.and.redistribute/QQ.GNU.Ema
  161. XT05scsZ.but.only.under.the.conditions.described.in.the/QQ.GNU.Emacs.G
  162. XT06veneral.Public.LicenseK...A.copy.of.this.license.is/QQ.supposed.to
  163. XT07p.have.been.given.to.you.along.with.GNU.Emacs.so.you/QQ.can.know.y
  164. XT08cour.rights.and.responsibilitiesK..It.should.be.in.a/QQ.file.named
  165. XT09T.COPYINGK..Among.other.thingsZ.the.copyright.notice/QQ.and.this.n
  166. XT0AVotice.must.be.preserved.on.all.copiesK///QQ.Written.by.Howard.Gay
  167. XT0BlleK..See.caseBtableKel.for.detailsK//QQ.See.iso8859B1BswedishKel.
  168. XT0CJfor.a.description.of.the.character.setK//Jrequire.Xiso8859B1D/Jre
  169. XT0Dqquire.XsortBtableD/Jrequire.XtextBmodeD//Jdefvar.8859BtoBswasciiB
  170. XT0Eptrans.nil.V8859.to.SWASCII.trans.tableKVD/Jif.8859BtoBswasciiBtra
  171. XT0F1ns.nil/...Jsetq.8859BtoBswasciiBtrans.JmakeBtransBtableDD/...Jset
  172. XT0GlBtransBtableBto.164.7,J..8859BtoBswasciiBtransD/...JsetBtransBtab
  173. XT0H0leBto.196.7,I..8859BtoBswasciiBtransD/...JsetBtransBtableBto.19+7
  174. XT0II.7,B..8859BtoBswasciiBtransD/...JsetBtransBtableBto.201.7,K..8859
  175. XT0JoBtoBswasciiBtransD/...JsetBtransBtableBto.214.7zz.8859BtoBswascii
  176. XT0KvBtransD/...JsetBtransBtableBto.220.7,E..8859BtoBswasciiBtransD/..
  177. XT0Lh.JsetBtransBtableBto.228.7+...8859BtoBswasciiBtransD/...JsetBtran
  178. XT0MLsBtableBto.229.7+0..8859BtoBswasciiBtransD/...JsetBtransBtableBto
  179. XT0N2.233.7,D..8859BtoBswasciiBtransD/...JsetBtransBtableBto.246.7,H..
  180. XT0Or8859BtoBswasciiBtransD/...JsetBtransBtableBto.252.7,F..8859BtoBsw
  181. XT0PyasciiBtransD/D//Jdefun.8859BtoBswasciiBbuffer.JD/...VConvert.char
  182. XT0Qaacters.in.buffer.from.ISO.8859+/1.to/Swedish+/Finnish.version.of.
  183. XT0RtISO.646KV/...Jinteractive.V,CVD/...JtranslateBregion.JpointBminD.
  184. XT0SiJpointBmaxD.8859BtoBswasciiBtransD/D//Jsetq.mailBsendBhook..X8859
  185. XT0TyBtoBswasciiBbufferD//Jsetq.swedishBcaseBdistinctBtable.JnewBsortB
  186. XT0U7table.XJ/J0.K.31D/J32.7+nD/J33.K.64D/J7A.7+o.7+v.7+w.7+xD/7,7/7+B
  187. XT0V0/7+D/7+m/J7E..7,A..7,4..7,3..7,8D/J7F.K.7HD/J7I.7,1.7+u.7+t.7+sD/
  188. XT0W37+J/J7C.7,9.7+KD/7L/7M/J7N.7,2D/J7O.7+l.7,0.7,/.7+yD/J7P.K.7TD/7+C
  189. XT0X5/J7U.7+r.7+q.7+p.7+MD/J7+V.7WD/7+X/J7Y.7+FD/7+Z/7,6/7,5/J7+i.7+OD
  190. XT0Y2/J91.K.96D/J7a.7+k.7+j.7+6.7+hD/7+e/7b/7d/7+R/J7e.7+c.7+b.7+a.7+Y
  191. XT0ZKD/J7f.K.7hD/J7i.7+W.7+U.7+T.7+SD/7j/J7c.7+d.7kD/7l/7m/J7n.7+PD/J7
  192. XT0a8o.7+N.7+L.7+I.7+HD/J7p.K.7sD/7+9/7t/7+1/J7u.7+8.7+5.7+4.7+3D/J7v.
  193. XT0bT7wD/7x/J7y.7+2.7,.D/7+z/7+f/7+g/J7+G.7+AD/J123.K.159D/J161.K.191D
  194. XT0cP/7+Q/7+E/DDD//Jsetq.swedishBcaseBfoldBtable.JnewBsortBtable.XJ/J0
  195. XT0dZ.K.31D/J32.7+nD/J33.K.64D/J7A.7+o.7+v.7+w.7+x.7a.7+k.7+j.7+6.7+hD
  196. XT0eY/J7,7.7+eD/J7+B.7bD/J7+D.7dD/J7+m.7+RD/J7E.7,A.7,4.7,3.7,8.7e.7+c
  197. XT0fD.7+b.7+a.7+YD/J7F.7fD/J7G.7gD/J7H.7hD/J7I.7,1.7+u.7+t.7+s.7i.7+W.
  198. XT0gm7+U.7+T.7+SD/J7+J.7jD/J7C.7,9.7c.7+d.7+K.7kD/J7L.7lD/J7M.7mD/J7N.
  199. XT0h67,2.7n.7+PD/J7O.7+l.7,0.7,/.7+y.7o.7+N.7+L.7+I.7+HD/J7P.7pD/J7,Q.
  200. XT0iX7qD/J7R.7rD/J7S.7sD/7+9/J7T.7tD/J7+C.7+1D/J7U.7+r.7+q.7+p.7+M.7u.
  201. XT0jR7+8.7+5.7+4.7+3D/J7+V.7v.7W.7wD/J7+X.7xD/J7Y.7+F.7y.7+2.7,.D/J7+Z
  202. XT0k9.7+zD/J7,6.7+fD/J7,5.7+gD/J7+i.7+O.7+G.7+AD/J91.K.96D/J123.K.159D
  203. XT0l0/J161.K.191D/7+Q/7+E/DDD//Jdefvar.swedishBmodeBabbrevBtable.nil/.
  204. XT0mz..VAbbrev.table.used.while.in.swedish.modeKVD/JdefineBabbrevBtabl
  205. XT0nTe.XswedishBmodeBabbrevBtable.JDD//Jdefun.swedishBmode.JD/...VMajo
  206. XT0oLr.mode.for.editing.Swedish.text.intended.for.humans.to/readK..Spe
  207. XT0pscial.commands,Gzz+.textBmodeBmap+0/Turning.on.swedishBmode.calls.
  208. XT0qRthe.value.of.the.variable/textBmodeBhookZ.if.that.value.is.nonBni
  209. XT0r5lKV/...JinteractiveD/...JkillBallBlocalBvariablesD/...JuseBlocalB
  210. XT0sxmap.textBmodeBmapD/...Jsetq.modeBname.VSwedishVD/...Jsetq.majorBm
  211. XT0tVode.XswedishBmodeD/...Jsetq.localBabbrevBtable.swedishBmodeBabbre
  212. XT0uTvBtableD/...JsetBsyntaxBtable.textBmodeBsyntaxBtableD/...JsetBcas
  213. XT0vGeBdistinctBtable.swedishBcaseBdistinctBtableD/...JsetBcaseBfoldBt
  214. XT0wCable.swedishBcaseBfoldBtableD/...JrunBhooks.XtextBmodeBhookD/D//J
  215. XT0xSdefun.indentedBswedishBmode.JD/...VMajor.mode.for.editing.indente
  216. XT0yld.Swedish.text.intended.for/humans.to.readKzz+.indentedBtextBmode
  217. XT0z2Bmap+0/Turning.on.indentedBswedishBmode.calls.the.value.of.the/va
  218. XT1.5riable.textBmodeBhookZ.if.that.value.is.nonBnilKV/...Jinteractive
  219. XT1/YD/...JkillBallBlocalBvariablesD/...JuseBlocalBmap.textBmodeBmapD/
  220. XT10t...JdefineBabbrevBtable.XswedishBmodeBabbrevBtable.JDD/...Jsetq.l
  221. XT11hocalBabbrevBtable.swedishBmodeBabbrevBtableD/...JsetBsyntaxBtable
  222. XT122.textBmodeBsyntaxBtableD/...JmakeBlocalBvariable.XindentBlineBfun
  223. XT13UctionD/...Jsetq.indentBlineBfunction.XindentBrelativeBmaybeD/...J
  224. XT144useBlocalBmap.indentedBtextBmodeBmapD/...Jsetq.modeBname.VIndente
  225. XT15Od.SwedishVD/...Jsetq.majorBmode.XindentedBswedishBmodeD/...JsetBc
  226. XT16kaseBdistinctBtable.swedishBcaseBdistinctBtableD/...JsetBcaseBfold
  227. XT179Btable.swedishBcaseBfoldBtableD/...JrunBhooks.XtextBmodeBhookD/D/
  228. XT18W/Jprovide.XswedishD/
  229. XT19l$$end_file=swedish.el
  230. XT1Ax$$filecrc32=1026311166
  231. XT1B5##E25311
  232. X;End of ABE encoding
  233. END_OF_FILE
  234. if test 12955 -ne `wc -c <'lisp/el.abe'`; then
  235.     echo shar: \"'lisp/el.abe'\" unpacked with wrong size!
  236. fi
  237. # end of 'lisp/el.abe'
  238. fi
  239. if test -f 'lisp/iso8859-1-insert.el' -a "${1}" != "-c" ; then 
  240.   echo shar: Will not clobber existing file \"'lisp/iso8859-1-insert.el'\"
  241. else
  242. echo shar: Extracting \"'lisp/iso8859-1-insert.el'\" \(13707 characters\)
  243. sed "s/^X//" >'lisp/iso8859-1-insert.el' <<'END_OF_FILE'
  244. X;; Insert functions for ISO 8859/1.
  245. X;; Copyright (C) 1987 Free Software Foundation, Inc.
  246. X
  247. X;; This file is part of GNU Emacs.
  248. X
  249. X;; GNU Emacs is distributed in the hope that it will be useful,
  250. X;; but WITHOUT ANY WARRANTY.  No author or distributor
  251. X;; accepts responsibility to anyone for the consequences of using it
  252. X;; or for whether it serves any particular purpose or works at all,
  253. X;; unless he says so in writing.  Refer to the GNU Emacs General Public
  254. X;; License for full details.
  255. X
  256. X;; Everyone is granted permission to copy, modify and redistribute
  257. X;; GNU Emacs, but only under the conditions described in the
  258. X;; GNU Emacs General Public License.   A copy of this license is
  259. X;; supposed to have been given to you along with GNU Emacs so you
  260. X;; can know your rights and responsibilities.  It should be in a
  261. X;; file named COPYING.  Among other things, the copyright notice
  262. X;; and this notice must be preserved on all copies.
  263. X
  264. X
  265. X;; Written by Howard Gayle.  See case-table.el for details.
  266. X
  267. X(defun insert-no-break-space ()
  268. X   (interactive "*")
  269. X   (insert 160)
  270. X)
  271. X
  272. X(defun insert-inverted-exclamation-mark ()
  273. X   (interactive "*")
  274. X   (insert 161)
  275. X)
  276. X
  277. X(defun insert-cent-sign ()
  278. X   (interactive "*")
  279. X   (insert 162)
  280. X)
  281. X
  282. X(defun insert-pound-sign ()
  283. X   (interactive "*")
  284. X   (insert 163)
  285. X)
  286. X
  287. X(defun insert-general-currency-sign ()
  288. X   (interactive "*")
  289. X   (insert 164)
  290. X)
  291. X
  292. X(defun insert-yen-sign ()
  293. X   (interactive "*")
  294. X   (insert 165)
  295. X)
  296. X
  297. X(defun insert-broken-vertical-line ()
  298. X   (interactive "*")
  299. X   (insert 166)
  300. X)
  301. X
  302. X(defun insert-section-sign ()
  303. X   (interactive "*")
  304. X   (insert 167)
  305. X)
  306. X
  307. X(defun insert-diaeresis ()
  308. X   (interactive "*")
  309. X   (insert 168)
  310. X)
  311. X
  312. X(defun insert-copyright-sign ()
  313. X   (interactive "*")
  314. X   (insert 169)
  315. X)
  316. X
  317. X(defun insert-ordinal-indicator-feminine ()
  318. X   (interactive "*")
  319. X   (insert 170)
  320. X)
  321. X
  322. X(defun insert-angle-quotation-mark-left ()
  323. X   (interactive "*")
  324. X   (insert 171)
  325. X)
  326. X
  327. X(defun insert-not-sign ()
  328. X   (interactive "*")
  329. X   (insert 172)
  330. X)
  331. X
  332. X(defun insert-soft-hyphen ()
  333. X   (interactive "*")
  334. X   (insert 173)
  335. X)
  336. X
  337. X(defun insert-registered-sign ()
  338. X   (interactive "*")
  339. X   (insert 174)
  340. X)
  341. X
  342. X(defun insert-macron ()
  343. X   (interactive "*")
  344. X   (insert 175)
  345. X)
  346. X
  347. X(defun insert-degree-sign ()
  348. X   (interactive "*")
  349. X   (insert 176)
  350. X)
  351. X
  352. X(defun insert-plus-or-minus-sign ()
  353. X   (interactive "*")
  354. X   (insert 177)
  355. X)
  356. X
  357. X(defun insert-superscript-two ()
  358. X   (interactive "*")
  359. X   (insert 178)
  360. X)
  361. X
  362. X(defun insert-superscript-three ()
  363. X   (interactive "*")
  364. X   (insert 179)
  365. X)
  366. X
  367. X(defun insert-acute-accent ()
  368. X   (interactive "*")
  369. X   (insert 180)
  370. X)
  371. X
  372. X(defun insert-micro-sign ()
  373. X   (interactive "*")
  374. X   (insert 181)
  375. X)
  376. X
  377. X(defun insert-pilcrow ()
  378. X   (interactive "*")
  379. X   (insert 182)
  380. X)
  381. X
  382. X(defun insert-middle-dot ()
  383. X   (interactive "*")
  384. X   (insert 183)
  385. X)
  386. X
  387. X(defun insert-cedilla ()
  388. X   (interactive "*")
  389. X   (insert 184)
  390. X)
  391. X
  392. X(defun insert-superscript-one ()
  393. X   (interactive "*")
  394. X   (insert 185)
  395. X)
  396. X
  397. X(defun insert-ordinal-indicator-masculine ()
  398. X   (interactive "*")
  399. X   (insert 186)
  400. X)
  401. X
  402. X(defun insert-angle-quotation-mark-right ()
  403. X   (interactive "*")
  404. X   (insert 187)
  405. X)
  406. X
  407. X(defun insert-fraction-one-quarter ()
  408. X   (interactive "*")
  409. X   (insert 188)
  410. X)
  411. X
  412. X(defun insert-fraction-one-half ()
  413. X   (interactive "*")
  414. X   (insert 189)
  415. X)
  416. X
  417. X(defun insert-fraction-three-quarters ()
  418. X   (interactive "*")
  419. X   (insert 190)
  420. X)
  421. X
  422. X(defun insert-inverted-question-mark ()
  423. X   (interactive "*")
  424. X   (insert 191)
  425. X)
  426. X
  427. X(defun insert-A-grave ()
  428. X   (interactive "*")
  429. X   (insert 192)
  430. X)
  431. X
  432. X(defun insert-A-acute ()
  433. X   (interactive "*")
  434. X   (insert 193)
  435. X)
  436. X
  437. X(defun insert-A-circumflex ()
  438. X   (interactive "*")
  439. X   (insert 194)
  440. X)
  441. X
  442. X(defun insert-A-tilde ()
  443. X   (interactive "*")
  444. X   (insert 195)
  445. X)
  446. X
  447. X(defun insert-A-umlaut ()
  448. X   (interactive "*")
  449. X   (insert 196)
  450. X)
  451. X
  452. X(defun insert-A-ring ()
  453. X   (interactive "*")
  454. X   (insert 197)
  455. X)
  456. X
  457. X(defun insert-AE ()
  458. X   (interactive "*")
  459. X   (insert 198)
  460. X)
  461. X
  462. X(defun insert-C-cedilla ()
  463. X   (interactive "*")
  464. X   (insert 199)
  465. X)
  466. X
  467. X(defun insert-E-grave ()
  468. X   (interactive "*")
  469. X   (insert 200)
  470. X)
  471. X
  472. X(defun insert-E-acute ()
  473. X   (interactive "*")
  474. X   (insert 201)
  475. X)
  476. X
  477. X(defun insert-E-circumflex ()
  478. X   (interactive "*")
  479. X   (insert 202)
  480. X)
  481. X
  482. X(defun insert-E-umlaut ()
  483. X   (interactive "*")
  484. X   (insert 203)
  485. X)
  486. X
  487. X(defun insert-I-grave ()
  488. X   (interactive "*")
  489. X   (insert 204)
  490. X)
  491. X
  492. X(defun insert-I-acute ()
  493. X   (interactive "*")
  494. X   (insert 205)
  495. X)
  496. X
  497. X(defun insert-I-circumflex ()
  498. X   (interactive "*")
  499. X   (insert 206)
  500. X)
  501. X
  502. X(defun insert-I-umlaut ()
  503. X   (interactive "*")
  504. X   (insert 207)
  505. X)
  506. X
  507. X(defun insert-D-stroke ()
  508. X   (interactive "*")
  509. X   (insert 208)
  510. X)
  511. X
  512. X(defun insert-N-tilde ()
  513. X   (interactive "*")
  514. X   (insert 209)
  515. X)
  516. X
  517. X(defun insert-O-grave ()
  518. X   (interactive "*")
  519. X   (insert 210)
  520. X)
  521. X
  522. X(defun insert-O-acute ()
  523. X   (interactive "*")
  524. X   (insert 211)
  525. X)
  526. X
  527. X(defun insert-O-circumflex ()
  528. X   (interactive "*")
  529. X   (insert 212)
  530. X)
  531. X
  532. X(defun insert-O-tilde ()
  533. X   (interactive "*")
  534. X   (insert 213)
  535. X)
  536. X
  537. X(defun insert-O-umlaut ()
  538. X   (interactive "*")
  539. X   (insert 214)
  540. X)
  541. X
  542. X(defun insert-multiplication-sign ()
  543. X   (interactive "*")
  544. X   (insert 215)
  545. X)
  546. X
  547. X(defun insert-O-slash ()
  548. X   (interactive "*")
  549. X   (insert 216)
  550. X)
  551. X
  552. X(defun insert-U-grave ()
  553. X   (interactive "*")
  554. X   (insert 217)
  555. X)
  556. X
  557. X(defun insert-U-acute ()
  558. X   (interactive "*")
  559. X   (insert 218)
  560. X)
  561. X
  562. X(defun insert-U-circumflex ()
  563. X   (interactive "*")
  564. X   (insert 219)
  565. X)
  566. X
  567. X(defun insert-U-umlaut ()
  568. X   (interactive "*")
  569. X   (insert 220)
  570. X)
  571. X
  572. X(defun insert-Y-acute ()
  573. X   (interactive "*")
  574. X   (insert 221)
  575. X)
  576. X
  577. X(defun insert-THORN ()
  578. X   (interactive "*")
  579. X   (insert 222)
  580. X)
  581. X
  582. X(defun insert-ss ()
  583. X   (interactive "*")
  584. X   (insert 223)
  585. X)
  586. X
  587. X(defun insert-a-grave ()
  588. X   (interactive "*")
  589. X   (insert 224)
  590. X)
  591. X
  592. X(defun insert-a-acute ()
  593. X   (interactive "*")
  594. X   (insert 225)
  595. X)
  596. X
  597. X(defun insert-a-circumflex ()
  598. X   (interactive "*")
  599. X   (insert 226)
  600. X)
  601. X
  602. X(defun insert-a-tilde ()
  603. X   (interactive "*")
  604. X   (insert 227)
  605. X)
  606. X
  607. X(defun insert-a-umlaut ()
  608. X   (interactive "*")
  609. X   (insert 228)
  610. X)
  611. X
  612. X(defun insert-a-ring ()
  613. X   (interactive "*")
  614. X   (insert 229)
  615. X)
  616. X
  617. X(defun insert-ae ()
  618. X   (interactive "*")
  619. X   (insert 230)
  620. X)
  621. X
  622. X(defun insert-c-cedilla ()
  623. X   (interactive "*")
  624. X   (insert 231)
  625. X)
  626. X
  627. X(defun insert-e-grave ()
  628. X   (interactive "*")
  629. X   (insert 232)
  630. X)
  631. X
  632. X(defun insert-e-acute ()
  633. X   (interactive "*")
  634. X   (insert 233)
  635. X)
  636. X
  637. X(defun insert-e-circumflex ()
  638. X   (interactive "*")
  639. X   (insert 234)
  640. X)
  641. X
  642. X(defun insert-e-umlaut ()
  643. X   (interactive "*")
  644. X   (insert 235)
  645. X)
  646. X
  647. X(defun insert-i-grave ()
  648. X   (interactive "*")
  649. X   (insert 236)
  650. X)
  651. X
  652. X(defun insert-i-acute ()
  653. X   (interactive "*")
  654. X   (insert 237)
  655. X)
  656. X
  657. X(defun insert-i-circumflex ()
  658. X   (interactive "*")
  659. X   (insert 238)
  660. X)
  661. X
  662. X(defun insert-i-umlaut ()
  663. X   (interactive "*")
  664. X   (insert 239)
  665. X)
  666. X
  667. X(defun insert-d-stroke ()
  668. X   (interactive "*")
  669. X   (insert 240)
  670. X)
  671. X
  672. X(defun insert-n-tilde ()
  673. X   (interactive "*")
  674. X   (insert 241)
  675. X)
  676. X
  677. X(defun insert-o-grave ()
  678. X   (interactive "*")
  679. X   (insert 242)
  680. X)
  681. X
  682. X(defun insert-o-acute ()
  683. X   (interactive "*")
  684. X   (insert 243)
  685. X)
  686. X
  687. X(defun insert-o-circumflex ()
  688. X   (interactive "*")
  689. X   (insert 244)
  690. X)
  691. X
  692. X(defun insert-o-tilde ()
  693. X   (interactive "*")
  694. X   (insert 245)
  695. X)
  696. X
  697. X(defun insert-o-umlaut ()
  698. X   (interactive "*")
  699. X   (insert 246)
  700. X)
  701. X
  702. X(defun insert-division-sign ()
  703. X   (interactive "*")
  704. X   (insert 247)
  705. X)
  706. X
  707. X(defun insert-o-slash ()
  708. X   (interactive "*")
  709. X   (insert 248)
  710. X)
  711. X
  712. X(defun insert-u-grave ()
  713. X   (interactive "*")
  714. X   (insert 249)
  715. X)
  716. X
  717. X(defun insert-u-acute ()
  718. X   (interactive "*")
  719. X   (insert 250)
  720. X)
  721. X
  722. X(defun insert-u-circumflex ()
  723. X   (interactive "*")
  724. X   (insert 251)
  725. X)
  726. X
  727. X(defun insert-u-umlaut ()
  728. X   (interactive "*")
  729. X   (insert 252)
  730. X)
  731. X
  732. X(defun insert-y-acute ()
  733. X   (interactive "*")
  734. X   (insert 253)
  735. X)
  736. X
  737. X(defun insert-thorn ()
  738. X   (interactive "*")
  739. X   (insert 254)
  740. X)
  741. X
  742. X(defun insert-y-umlaut ()
  743. X   (interactive "*")
  744. X   (insert 255)
  745. X)
  746. X
  747. X(defvar 8859-1-map nil "Keymap for ISO 8859/1 character insertion.")
  748. X(if 8859-1-map nil
  749. X   (setq 8859-1-map (make-keymap))
  750. X   (define-key 8859-1-map " "    'insert-no-break-space)
  751. X   (define-key 8859-1-map "!"    'insert-inverted-exclamation-mark)
  752. X   (define-key 8859-1-map "\""   (make-sparse-keymap))
  753. X   (define-key 8859-1-map "\"\"" 'insert-diaeresis)
  754. X   (define-key 8859-1-map "\"A"  'insert-A-umlaut)
  755. X   (define-key 8859-1-map "\"E"  'insert-E-umlaut)
  756. X   (define-key 8859-1-map "\"I"  'insert-I-umlaut)
  757. X   (define-key 8859-1-map "\"O"  'insert-O-umlaut)
  758. X   (define-key 8859-1-map "\"U"  'insert-U-umlaut)
  759. X   (define-key 8859-1-map "\"a"  'insert-a-umlaut)
  760. X   (define-key 8859-1-map "\"e"  'insert-e-umlaut)
  761. X   (define-key 8859-1-map "\"i"  'insert-i-umlaut)
  762. X   (define-key 8859-1-map "\"o"  'insert-o-umlaut)
  763. X   (define-key 8859-1-map "\"u"  'insert-u-umlaut)
  764. X   (define-key 8859-1-map "\"y"  'insert-y-umlaut)
  765. X   (define-key 8859-1-map "'"    (make-sparse-keymap))
  766. X   (define-key 8859-1-map "''"   'insert-acute-accent)
  767. X   (define-key 8859-1-map "'A"   'insert-A-acute)
  768. X   (define-key 8859-1-map "'E"   'insert-E-acute)
  769. X   (define-key 8859-1-map "'I"   'insert-I-acute)
  770. X   (define-key 8859-1-map "'O"   'insert-O-acute)
  771. X   (define-key 8859-1-map "'U"   'insert-U-acute)
  772. X   (define-key 8859-1-map "'Y"   'insert-Y-acute)
  773. X   (define-key 8859-1-map "'a"   'insert-a-acute)
  774. X   (define-key 8859-1-map "'e"   'insert-e-acute)
  775. X   (define-key 8859-1-map "'i"   'insert-i-acute)
  776. X   (define-key 8859-1-map "'o"   'insert-o-acute)
  777. X   (define-key 8859-1-map "'u"   'insert-u-acute)
  778. X   (define-key 8859-1-map "'y"   'insert-y-acute)
  779. X   (define-key 8859-1-map "$"    'insert-general-currency-sign)
  780. X   (define-key 8859-1-map "+"    'insert-plus-or-minus-sign)
  781. X   (define-key 8859-1-map ","    (make-sparse-keymap))
  782. X   (define-key 8859-1-map ",,"   'insert-cedilla)
  783. X   (define-key 8859-1-map ",C"   'insert-C-cedilla)
  784. X   (define-key 8859-1-map ",c"   'insert-c-cedilla)
  785. X   (define-key 8859-1-map "-"    'insert-soft-hyphen)
  786. X   (define-key 8859-1-map "."    'insert-middle-dot)
  787. X   (define-key 8859-1-map "/"    (make-sparse-keymap))
  788. X   (define-key 8859-1-map "//"   'insert-division-sign)
  789. X   (define-key 8859-1-map "/O"   'insert-O-slash)
  790. X   (define-key 8859-1-map "/o"   'insert-o-slash)
  791. X   (define-key 8859-1-map "1"    (make-sparse-keymap))
  792. X   (define-key 8859-1-map "1/"   (make-sparse-keymap))
  793. X   (define-key 8859-1-map "1/2"  'insert-fraction-one-half)
  794. X   (define-key 8859-1-map "1/4"  'insert-fraction-one-quarter)
  795. X   (define-key 8859-1-map "3"    (make-sparse-keymap))
  796. X   (define-key 8859-1-map "3/"   (make-sparse-keymap))
  797. X   (define-key 8859-1-map "3/4"  'insert-fraction-three-quarters)
  798. X   (define-key 8859-1-map "<"    'insert-angle-quotation-mark-left)
  799. X   (define-key 8859-1-map "="    'insert-macron)
  800. X   (define-key 8859-1-map ">"    'insert-angle-quotation-mark-right)
  801. X   (define-key 8859-1-map "?"    'insert-inverted-question-mark)
  802. X   (define-key 8859-1-map "A"    (make-sparse-keymap))
  803. X   (define-key 8859-1-map "AA"   'insert-A-ring)
  804. X   (define-key 8859-1-map "AE"   'insert-AE)
  805. X   (define-key 8859-1-map "C"    'insert-copyright-sign)
  806. X   (define-key 8859-1-map "D"    'insert-D-stroke)
  807. X   (define-key 8859-1-map "L"    'insert-pound-sign)
  808. X   (define-key 8859-1-map "P"    'insert-pilcrow)
  809. X   (define-key 8859-1-map "R"    'insert-registered-sign)
  810. X   (define-key 8859-1-map "S"    'insert-section-sign)
  811. X   (define-key 8859-1-map "T"    'insert-THORN)
  812. X   (define-key 8859-1-map "Y"    'insert-yen-sign)
  813. X   (define-key 8859-1-map "^"    (make-sparse-keymap))
  814. X   (define-key 8859-1-map "^1"   'insert-superscript-one)
  815. X   (define-key 8859-1-map "^2"   'insert-superscript-two)
  816. X   (define-key 8859-1-map "^3"   'insert-superscript-three)
  817. X   (define-key 8859-1-map "^A"   'insert-A-circumflex)
  818. X   (define-key 8859-1-map "^E"   'insert-E-circumflex)
  819. X   (define-key 8859-1-map "^I"   'insert-I-circumflex)
  820. X   (define-key 8859-1-map "^O"   'insert-O-circumflex)
  821. X   (define-key 8859-1-map "^U"   'insert-U-circumflex)
  822. X   (define-key 8859-1-map "^a"   'insert-a-circumflex)
  823. X   (define-key 8859-1-map "^e"   'insert-e-circumflex)
  824. X   (define-key 8859-1-map "^i"   'insert-i-circumflex)
  825. X   (define-key 8859-1-map "^o"   'insert-o-circumflex)
  826. X   (define-key 8859-1-map "^u"   'insert-u-circumflex)
  827. X   (define-key 8859-1-map "_"    (make-sparse-keymap))
  828. X   (define-key 8859-1-map "_a"   'insert-ordinal-indicator-feminine)
  829. X   (define-key 8859-1-map "_o"   'insert-ordinal-indicator-masculine)
  830. X   (define-key 8859-1-map "`"    (make-sparse-keymap))
  831. X   (define-key 8859-1-map "`A"   'insert-A-grave)
  832. X   (define-key 8859-1-map "`E"   'insert-E-grave)
  833. X   (define-key 8859-1-map "`I"   'insert-I-grave)
  834. X   (define-key 8859-1-map "`O"   'insert-O-grave)
  835. X   (define-key 8859-1-map "`U"   'insert-U-grave)
  836. X   (define-key 8859-1-map "`a"   'insert-a-grave)
  837. X   (define-key 8859-1-map "`e"   'insert-e-grave)
  838. X   (define-key 8859-1-map "`i"   'insert-i-grave)
  839. X   (define-key 8859-1-map "`o"   'insert-o-grave)
  840. X   (define-key 8859-1-map "`u"   'insert-u-grave)
  841. X   (define-key 8859-1-map "a"    (make-sparse-keymap))
  842. X   (define-key 8859-1-map "aa"   'insert-a-ring)
  843. X   (define-key 8859-1-map "ae"   'insert-ae)
  844. X   (define-key 8859-1-map "c"    'insert-cent-sign)
  845. X   (define-key 8859-1-map "d"    'insert-d-stroke)
  846. X   (define-key 8859-1-map "o"    'insert-degree-sign)
  847. X   (define-key 8859-1-map "s"    'insert-ss)
  848. X   (define-key 8859-1-map "t"    'insert-thorn)
  849. X   (define-key 8859-1-map "u"    'insert-micro-sign)
  850. X   (define-key 8859-1-map "x"    'insert-multiplication-sign)
  851. X   (define-key 8859-1-map "|"    'insert-broken-vertical-line)
  852. X   (define-key 8859-1-map "~"    (make-sparse-keymap))
  853. X   (define-key 8859-1-map "~A"   'insert-A-tilde)
  854. X   (define-key 8859-1-map "~N"   'insert-N-tilde)
  855. X   (define-key 8859-1-map "~O"   'insert-O-tilde)
  856. X   (define-key 8859-1-map "~a"   'insert-a-tilde)
  857. X   (define-key 8859-1-map "~n"   'insert-n-tilde)
  858. X   (define-key 8859-1-map "~o"   'insert-o-tilde)
  859. X   (define-key 8859-1-map "~~"   'insert-not-sign)
  860. X   (if (not (lookup-key global-map "\C-x8"))
  861. X      (define-key global-map "\C-x8" 8859-1-map))
  862. X)
  863. X
  864. X(provide 'iso8859-1-insert)
  865. END_OF_FILE
  866. if test 13707 -ne `wc -c <'lisp/iso8859-1-insert.el'`; then
  867.     echo shar: \"'lisp/iso8859-1-insert.el'\" unpacked with wrong size!
  868. fi
  869. # end of 'lisp/iso8859-1-insert.el'
  870. fi
  871. if test -f 'lisp/iso8859-1-swedish.el' -a "${1}" != "-c" ; then 
  872.   echo shar: Will not clobber existing file \"'lisp/iso8859-1-swedish.el'\"
  873. else
  874. echo shar: Extracting \"'lisp/iso8859-1-swedish.el'\" \(7172 characters\)
  875. sed "s/^X//" >'lisp/iso8859-1-swedish.el' <<'END_OF_FILE'
  876. X;; Set up char tables for ISO 8859/1 for Swedish/Finnish terminals.
  877. X;; Copyright (C) 1987 Free Software Foundation, Inc.
  878. X
  879. X;; This file is part of GNU Emacs.
  880. X
  881. X;; GNU Emacs is distributed in the hope that it will be useful,
  882. X;; but WITHOUT ANY WARRANTY.  No author or distributor
  883. X;; accepts responsibility to anyone for the consequences of using it
  884. X;; or for whether it serves any particular purpose or works at all,
  885. X;; unless he says so in writing.  Refer to the GNU Emacs General Public
  886. X;; License for full details.
  887. X
  888. X;; Everyone is granted permission to copy, modify and redistribute
  889. X;; GNU Emacs, but only under the conditions described in the
  890. X;; GNU Emacs General Public License.   A copy of this license is
  891. X;; supposed to have been given to you along with GNU Emacs so you
  892. X;; can know your rights and responsibilities.  It should be in a
  893. X;; file named COPYING.  Among other things, the copyright notice
  894. X;; and this notice must be preserved on all copies.
  895. X
  896. X
  897. X;; Written by Howard Gayle.  See case-table.el for details.
  898. X
  899. X;; This code sets up backslash-char-table and
  900. X;; ctl-arrow-char-table to display ISO 8859/1 characters on
  901. X;; terminals that have ASCII in the G0 set and a Swedish/Finnish
  902. X;; version of ISO 646 in the G1 set.  The G1 set differs from
  903. X;; ASCII as follows:
  904. X;; 
  905. X;; ASCII G1
  906. X;;     $ general currency sign
  907. X;;     @ capital E with acute accent
  908. X;;     [ capital A with diaeresis or umlaut mark
  909. X;;     \ capital O with diaeresis or umlaut mark
  910. X;;     ] capital A with ring
  911. X;;     ^ capital U with diaeresis or umlaut mark
  912. X;;     ` small e with acute accent
  913. X;;     { small a with diaeresis or umlaut mark
  914. X;;     | small o with diaeresis or umlaut mark
  915. X;;     } small a with ring
  916. X;;     ~ small u with diaeresis or umlaut mark
  917. X
  918. X(require 'char-table)
  919. X
  920. X(standard-char-ascii 160 "{_}")   ; NBSP (no-break space)
  921. X(standard-char-ascii 161 "{!}")   ; inverted exclamation mark
  922. X(standard-char-ascii 162 "{c}")   ; cent sign
  923. X(standard-char-ascii 163 "{GBP}") ; pound sign
  924. X(standard-char-g1    164 ?$)      ; general currency sign
  925. X(standard-char-ascii 165 "{JPY}") ; yen sign
  926. X(standard-char-ascii 166 "{|}")   ; broken vertical line
  927. X(standard-char-ascii 167 "{S}")   ; section sign
  928. X(standard-char-ascii 168 "{\"}")  ; diaeresis
  929. X(standard-char-ascii 169 "{C}")   ; copyright sign
  930. X(standard-char-ascii 170 "{_a}")  ; ordinal indicator, feminine
  931. X(standard-char-ascii 171 "{<<}")  ; left angle quotation mark
  932. X(standard-char-ascii 172 "{~}")   ; not sign
  933. X(standard-char-ascii 173 "{-}")   ; soft hyphen
  934. X(standard-char-ascii 174 "{R}")   ; registered sign
  935. X(standard-char-ascii 175 "{=}")   ; macron
  936. X(standard-char-ascii 176 "{o}")   ; degree sign
  937. X(standard-char-ascii 177 "{+-}")  ; plus or minus sign
  938. X(standard-char-ascii 178 "{2}")   ; superscript two
  939. X(standard-char-ascii 179 "{3}")   ; superscript three
  940. X(standard-char-ascii 180 "{'}")   ; acute accent
  941. X(standard-char-ascii 181 "{u}")   ; micro sign
  942. X(standard-char-ascii 182 "{P}")   ; pilcrow
  943. X(standard-char-ascii 183 "{.}")   ; middle dot
  944. X(standard-char-ascii 184 "{,}")   ; cedilla
  945. X(standard-char-ascii 185 "{1}")   ; superscript one
  946. X(standard-char-ascii 186 "{_o}")  ; ordinal indicator, masculine
  947. X(standard-char-ascii 187 "{>>}")  ; right angle quotation mark
  948. X(standard-char-ascii 188 "{1/4}") ; fraction one-quarter
  949. X(standard-char-ascii 189 "{1/2}") ; fraction one-half
  950. X(standard-char-ascii 190 "{3/4}") ; fraction three-quarters
  951. X(standard-char-ascii 191 "{?}")   ; inverted question mark
  952. X(standard-char-ascii 192 "{`A}")  ; A with grave accent
  953. X(standard-char-ascii 193 "{'A}")  ; A with acute accent
  954. X(standard-char-ascii 194 "{^A}")  ; A with circumflex accent
  955. X(standard-char-ascii 195 "{~A}")  ; A with tilde
  956. X(standard-char-g1    196 ?[)      ; A with diaeresis or umlaut mark
  957. X(standard-char-g1    197 ?])      ; A with ring
  958. X(standard-char-ascii 198 "{AE}")  ; AE diphthong
  959. X(standard-char-ascii 199 "{,C}")  ; C with cedilla
  960. X(standard-char-ascii 200 "{`E}")  ; E with grave accent
  961. X(standard-char-g1    201 ?@)      ; E with acute accent
  962. X(standard-char-ascii 202 "{^E}")  ; E with circumflex accent
  963. X(standard-char-ascii 203 "{\"E}") ; E with diaeresis or umlaut mark
  964. X(standard-char-ascii 204 "{`I}")  ; I with grave accent
  965. X(standard-char-ascii 205 "{'I}")  ; I with acute accent
  966. X(standard-char-ascii 206 "{^I}")  ; I with circumflex accent
  967. X(standard-char-ascii 207 "{\"I}") ; I with diaeresis or umlaut mark
  968. X(standard-char-ascii 208 "{-D}")  ; D with stroke, Icelandic eth
  969. X(standard-char-ascii 209 "{~N}")  ; N with tilde
  970. X(standard-char-ascii 210 "{`O}")  ; O with grave accent
  971. X(standard-char-ascii 211 "{'O}")  ; O with acute accent
  972. X(standard-char-ascii 212 "{^O}")  ; O with circumflex accent
  973. X(standard-char-ascii 213 "{~O}")  ; O with tilde
  974. X(standard-char-g1    214 ?\\)     ; O with diaeresis or umlaut mark
  975. X(standard-char-ascii 215 "{x}")   ; multiplication sign
  976. X(standard-char-ascii 216 "{/O}")  ; O with slash
  977. X(standard-char-ascii 217 "{`U}")  ; U with grave accent
  978. X(standard-char-ascii 218 "{'U}")  ; U with acute accent
  979. X(standard-char-ascii 219 "{^U}")  ; U with circumflex accent
  980. X(standard-char-g1    220 ?^)      ; U with diaeresis or umlaut mark
  981. X(standard-char-ascii 221 "{'Y}")  ; Y with acute accent
  982. X(standard-char-ascii 222 "{TH}")  ; capital thorn, Icelandic
  983. X(standard-char-ascii 223 "{ss}")  ; small sharp s, German
  984. X(standard-char-ascii 224 "{`a}")  ; a with grave accent
  985. X(standard-char-ascii 225 "{'a}")  ; a with acute accent
  986. X(standard-char-ascii 226 "{^a}")  ; a with circumflex accent
  987. X(standard-char-ascii 227 "{~a}")  ; a with tilde
  988. X(standard-char-g1    228 ?{)      ; a with diaeresis or umlaut mark
  989. X(standard-char-g1    229 ?})      ; a with ring
  990. X(standard-char-ascii 230 "{ae}")  ; ae diphthong
  991. X(standard-char-ascii 231 "{,c}")  ; c with cedilla
  992. X(standard-char-ascii 232 "{`e}")  ; e with grave accent
  993. X(standard-char-g1    233 ?`)      ; e with acute accent
  994. X(standard-char-ascii 234 "{^e}")  ; e with circumflex accent
  995. X(standard-char-ascii 235 "{\"e}") ; e with diaeresis or umlaut mark
  996. X(standard-char-ascii 236 "{`i}")  ; i with grave accent
  997. X(standard-char-ascii 237 "{'i}")  ; i with acute accent
  998. X(standard-char-ascii 238 "{^i}")  ; i with circumflex accent
  999. X(standard-char-ascii 239 "{\"i}") ; i with diaeresis or umlaut mark
  1000. X(standard-char-ascii 240 "{-d}")  ; d with stroke, Icelandic eth
  1001. X(standard-char-ascii 241 "{~n}")  ; n with tilde
  1002. X(standard-char-ascii 242 "{`o}")  ; o with grave accent
  1003. X(standard-char-ascii 243 "{'o}")  ; o with acute accent
  1004. X(standard-char-ascii 244 "{^o}")  ; o with circumflex accent
  1005. X(standard-char-ascii 245 "{~o}")  ; o with tilde
  1006. X(standard-char-g1    246 ?|)      ; o with diaeresis or umlaut mark
  1007. X(standard-char-ascii 247 "{/}")   ; division sign
  1008. X(standard-char-ascii 248 "{/o}")  ; o with slash
  1009. X(standard-char-ascii 249 "{`u}")  ; u with grave accent
  1010. X(standard-char-ascii 250 "{'u}")  ; u with acute accent
  1011. X(standard-char-ascii 251 "{^u}")  ; u with circumflex accent
  1012. X(standard-char-g1    252 ?~)      ; u with diaeresis or umlaut mark
  1013. X(standard-char-ascii 253 "{'y}")  ; y with acute accent
  1014. X(standard-char-ascii 254 "{th}")  ; small thorn, Icelandic
  1015. X(standard-char-ascii 255 "{\"y}") ; small y with diaeresis or umlaut mark
  1016. X
  1017. X(provide 'iso8859-1-swedish)
  1018. END_OF_FILE
  1019. if test 7172 -ne `wc -c <'lisp/iso8859-1-swedish.el'`; then
  1020.     echo shar: \"'lisp/iso8859-1-swedish.el'\" unpacked with wrong size!
  1021. fi
  1022. # end of 'lisp/iso8859-1-swedish.el'
  1023. fi
  1024. if test -f 'src/transtab.c' -a "${1}" != "-c" ; then 
  1025.   echo shar: Will not clobber existing file \"'src/transtab.c'\"
  1026. else
  1027. echo shar: Extracting \"'src/transtab.c'\" \(7540 characters\)
  1028. sed "s/^X//" >'src/transtab.c' <<'END_OF_FILE'
  1029. X/* GNU Emacs routines to deal with trans tables.
  1030. X   Copyright (C) 1987 Free Software Foundation, Inc.
  1031. X
  1032. XThis file is part of GNU Emacs.
  1033. X
  1034. XGNU Emacs is distributed in the hope that it will be useful,
  1035. Xbut WITHOUT ANY WARRANTY.  No author or distributor
  1036. Xaccepts responsibility to anyone for the consequences of using it
  1037. Xor for whether it serves any particular purpose or works at all,
  1038. Xunless he says so in writing.  Refer to the GNU Emacs General Public
  1039. XLicense for full details.
  1040. X
  1041. XEveryone is granted permission to copy, modify and redistribute
  1042. XGNU Emacs, but only under the conditions described in the
  1043. XGNU Emacs General Public License.   A copy of this license is
  1044. Xsupposed to have been given to you along with GNU Emacs so you
  1045. Xcan know your rights and responsibilities.  It should be in a
  1046. Xfile named COPYING.  Among other things, the copyright notice
  1047. Xand this notice must be preserved on all copies.  */
  1048. X
  1049. X/* Written by Howard Gayle.  See chartab.c for details. */
  1050. X
  1051. X#include "config.h"
  1052. X#include "lisp.h"
  1053. X#include "buffer.h"
  1054. X#include "etctab.h"
  1055. X#include "transtab.h"
  1056. X
  1057. XLisp_Object Qtrans_table_p;
  1058. XDEFUN ("trans-table-p", Ftrans_table_p, Strans_table_p, 1, 1, 0,
  1059. X   "Return t iff ARG is a trans table.")
  1060. X(obj)
  1061. XLisp_Object obj;
  1062. X{
  1063. Xreturn ((XTYPE (obj) == Lisp_Transtab) ? Qt : Qnil);
  1064. X}
  1065. X
  1066. Xstatic Lisp_Object
  1067. Xcheck_trans_table (obj)
  1068. XLisp_Object obj;
  1069. X{
  1070. Xregister Lisp_Object tem;
  1071. X
  1072. Xwhile (tem = Ftrans_table_p (obj), NULL (tem))
  1073. X   obj = wrong_type_argument (Qtrans_table_p, obj, 0);
  1074. Xreturn (obj);
  1075. X}   
  1076. X
  1077. X/* Convert the given Lisp_Transtab to a Lisp_Object. */
  1078. Xstatic Lisp_Object
  1079. Xenlisp_trans_table (sp)
  1080. Xstruct Lisp_Transtab *sp;
  1081. X{
  1082. Xregister Lisp_Object z; /* Return. */
  1083. X
  1084. XXSET (z, Lisp_Transtab, sp);
  1085. Xreturn (z);
  1086. X}
  1087. X
  1088. XDEFUN ("downcase-table", Fdowncase_table, Sdowncase_table, 0, 0, 0,
  1089. X   "Return the lower case conversion trans table of the current buffer.")
  1090. X()
  1091. X{
  1092. Xreturn (enlisp_trans_table (bf_cur->downcase_table_v));
  1093. X}
  1094. X
  1095. XDEFUN ("upcase-table", Fupcase_table, Supcase_table, 0, 0, 0,
  1096. X   "Return the upper case conversion trans table of the current buffer.")
  1097. X()
  1098. X{
  1099. Xreturn (enlisp_trans_table (bf_cur->upcase_table_v));
  1100. X}
  1101. X
  1102. XDEFUN ("standard-downcase-table", Fstandard_downcase_table,
  1103. X   Sstandard_downcase_table, 0, 0, 0,
  1104. X   "Return the standard lower case conversion trans table.\n\
  1105. XThis is the one used for new buffers.")
  1106. X()
  1107. X{
  1108. Xreturn (enlisp_trans_table (buffer_defaults.downcase_table_v));
  1109. X}
  1110. X
  1111. XDEFUN ("standard-upcase-table", Fstandard_upcase_table,
  1112. X   Sstandard_upcase_table, 0, 0, 0,
  1113. X   "Return the standard upper case conversion trans table.\n\
  1114. XThis is the one used for new buffers.")
  1115. X()
  1116. X{
  1117. Xreturn (enlisp_trans_table (buffer_defaults.upcase_table_v));
  1118. X}
  1119. X
  1120. X/* Store a trans table.  Check for errors. */
  1121. Xstatic Lisp_Object
  1122. Xset_trans_table (p, t)
  1123. Xstruct Lisp_Transtab **p; /* Points to where to store the trans table. */
  1124. Xregister Lisp_Object t;   /* The trans table as a Lisp object. */
  1125. X{
  1126. Xt = check_trans_table (t);
  1127. X*p = XTRANSTAB (t);
  1128. Xreturn (t);
  1129. X}
  1130. X
  1131. XDEFUN ("set-downcase-table", Fset_downcase_table, Sset_downcase_table, 1, 1, 0,
  1132. X   "Select a new lower case conversion trans table for the current buffer.\n\
  1133. XOne argument, a trans table.")
  1134. X(table)
  1135. XLisp_Object table;
  1136. X{
  1137. Xreturn (set_trans_table (&bf_cur->downcase_table_v, table));
  1138. X}
  1139. X
  1140. XDEFUN ("set-upcase-table", Fset_upcase_table, Sset_upcase_table, 1, 1, 0,
  1141. X   "Select a new lower case conversion trans table for the current buffer.\n\
  1142. XOne argument, a trans table.")
  1143. X(table)
  1144. XLisp_Object table;
  1145. X{
  1146. Xreturn (set_trans_table (&bf_cur->upcase_table_v, table));
  1147. X}
  1148. X
  1149. XDEFUN ("set-standard-downcase-table",
  1150. X   Fset_standard_downcase_table, Sset_standard_downcase_table, 1, 1, 0,
  1151. X   "Select a new standard lower case conversion trans table.\n\
  1152. XThis does not change the trans tables of any existing buffers.\n\
  1153. XOne argument, a trans table.")
  1154. X(table)
  1155. XLisp_Object table;
  1156. X{
  1157. Xreturn (set_trans_table (&buffer_defaults.downcase_table_v, table));
  1158. X}
  1159. X
  1160. XDEFUN ("set-standard-upcase-table",
  1161. X   Fset_standard_upcase_table, Sset_standard_upcase_table, 1, 1, 0,
  1162. X   "Select a new standard upper case conversion trans table.\n\
  1163. XThis does not change the trans tables of any existing buffers.\n\
  1164. XOne argument, a trans table.")
  1165. X(table)
  1166. XLisp_Object table;
  1167. X{
  1168. Xreturn (set_trans_table (&buffer_defaults.upcase_table_v, table));
  1169. X}
  1170. X
  1171. XDEFUN ("translate-region",
  1172. X   Ftranslate_region, Stranslate_region, 3, 4, 0,
  1173. X   "From START to END, translate characters according to trans\n\
  1174. Xtable TABLE.  If optional arg NOUNDO is non-nil, don't record\n\
  1175. Xthis change for undo and don't mark the buffer as really\n\
  1176. Xchanged.  Returns the number of characters changed.")
  1177. X(start, end, table, noundo)
  1178. XLisp_Object start;
  1179. XLisp_Object end;
  1180. Xregister Lisp_Object table;
  1181. XLisp_Object noundo;
  1182. X{
  1183. Xregister int pos, stop; /* Limits of the region. */
  1184. Xregister int rec; /* Flag set iff noundo is nil. */
  1185. Xregister char_t *tt; /* Trans table. */
  1186. Xregister char_t oc; /* Old character. */
  1187. Xregister char_t nc; /* New character. */
  1188. Xregister int cnt; /* Number of changes made. */
  1189. Xregister Lisp_Object z; /* Return. */
  1190. X
  1191. Xvalidate_region (&start, &end);
  1192. Xtable = check_trans_table (table);
  1193. Xtt = XTRANSTAB (table)->trt_to;
  1194. Xpos = XINT (start);
  1195. Xstop = XINT (end);
  1196. Xmodify_region (pos, stop);
  1197. Xrec = NULL (noundo);
  1198. Xif (!rec) bf_modified--;
  1199. Xcnt = 0;
  1200. Xfor (; pos < stop; ++pos)
  1201. X   {
  1202. X   oc = CharAt (pos);
  1203. X   nc = tt[oc];
  1204. X   if (nc != oc)
  1205. X      {
  1206. X      if (rec) record_change (pos, 1);
  1207. X      CharAt (pos) = nc;
  1208. X      ++cnt;
  1209. X      }
  1210. X   }
  1211. XXFASTINT (z) = cnt;
  1212. Xreturn (z);
  1213. X}
  1214. X
  1215. XDEFUN ("make-trans-table", Fmake_trans_table, Smake_trans_table, 0, 0, 0,
  1216. X   "Return a new identity trans table.")
  1217. X()
  1218. X{
  1219. Xregister struct Lisp_Transtab *nt; /* New trans table. */
  1220. Xregister int                      i;
  1221. Xregister Lisp_Object           z;  /* Return. */
  1222. X
  1223. Xz = make_etc_table (sizeof (struct Lisp_Transtab), Lisp_Transtab);
  1224. Xnt = XTRANSTAB (z);
  1225. Xfor (i = 0; i <= 255; ++i)
  1226. X   nt->trt_to[i] = (char_t) i;
  1227. Xreturn (z);
  1228. X}
  1229. X
  1230. XDEFUN ("get-trans-table-to",
  1231. X   Fget_trans_table_to, Sget_trans_table_to, 2, 2, 0,
  1232. X   "Return the character to which character FROM is translated\n\
  1233. Xin trans table TABLE.")
  1234. X(fromc, table)
  1235. XLisp_Object fromc;
  1236. Xregister Lisp_Object table;
  1237. X{
  1238. Xregister Lisp_Object z;
  1239. X
  1240. Xtable = check_trans_table (table);
  1241. XXFASTINT (z) = XTRANSTAB (table)->trt_to[get_char_arg (fromc)];
  1242. Xreturn (z);
  1243. X}
  1244. X
  1245. XDEFUN ("set-trans-table-to",
  1246. X   Fset_trans_table_to, Sset_trans_table_to, 3, 3, 0,
  1247. X   "Set the translation from character FROM to character TO in\n\
  1248. Xtrans table TABLE.")
  1249. X(fromc, toc, table)
  1250. XLisp_Object fromc;
  1251. XLisp_Object toc;
  1252. Xregister Lisp_Object table;
  1253. X{
  1254. Xregister char_t f = get_char_arg (fromc);
  1255. Xregister char_t t = get_char_arg (toc);
  1256. X
  1257. Xtable = check_trans_table (table);
  1258. XXTRANSTAB (table)->trt_to[f] = t;
  1259. Xreturn (table);
  1260. X}
  1261. X
  1262. Xinit_trans_table_once ()
  1263. X{
  1264. Xregister int i;
  1265. Xregister char_t *p;
  1266. X
  1267. XFset_standard_downcase_table (Fmake_trans_table ());
  1268. Xp = buffer_defaults.downcase_table_v->trt_to;
  1269. Xfor (i = 'A'; i <= 'Z'; ++i)
  1270. X   p[i] = (char_t) (i + 'a' - 'A');
  1271. X
  1272. XFset_standard_upcase_table (Fmake_trans_table ());
  1273. Xp = buffer_defaults.upcase_table_v->trt_to;
  1274. Xfor (i = 'a'; i <= 'z'; ++i)
  1275. X   p[i] = (char_t) (i - 'a' + 'A');
  1276. X}
  1277. X
  1278. Xsyms_of_trans_table ()
  1279. X{
  1280. XQtrans_table_p = intern ("trans-table-p");
  1281. Xstaticpro (&Qtrans_table_p);
  1282. X
  1283. Xdefsubr (&Strans_table_p);
  1284. Xdefsubr (&Sdowncase_table);
  1285. Xdefsubr (&Supcase_table);
  1286. Xdefsubr (&Sstandard_downcase_table);
  1287. Xdefsubr (&Sstandard_upcase_table);
  1288. Xdefsubr (&Sset_downcase_table);
  1289. Xdefsubr (&Sset_upcase_table);
  1290. Xdefsubr (&Sset_standard_downcase_table);
  1291. Xdefsubr (&Sset_standard_upcase_table);
  1292. Xdefsubr (&Stranslate_region);
  1293. Xdefsubr (&Smake_trans_table);
  1294. Xdefsubr (&Sget_trans_table_to);
  1295. Xdefsubr (&Sset_trans_table_to);
  1296. X}
  1297. END_OF_FILE
  1298. if test 7540 -ne `wc -c <'src/transtab.c'`; then
  1299.     echo shar: \"'src/transtab.c'\" unpacked with wrong size!
  1300. fi
  1301. # end of 'src/transtab.c'
  1302. fi
  1303. echo shar: End of archive 2 \(of 4\).
  1304. cp /dev/null ark2isdone
  1305. MISSING=""
  1306. for I in 1 2 3 4 ; do
  1307.     if test ! -f ark${I}isdone ; then
  1308.     MISSING="${MISSING} ${I}"
  1309.     fi
  1310. done
  1311. if test "${MISSING}" = "" ; then
  1312.     echo You have unpacked all 4 archives.
  1313.     rm -f ark[1-9]isdone
  1314. else
  1315.     echo You still need to unpack the following archives:
  1316.     echo "        " ${MISSING}
  1317. fi
  1318. ##  End of shell archive.
  1319. exit 0
  1320.