  LinuxDoc+Emacs+Ispell-HOWTO
  Author: Philippe MARTIN (feloy@wanadoo.fr)
  Translator: Sebastien Blondeel (Sebastien.Blondeel@lifl.fr)

  v0.4, 27 February 1998
   m (cz8cb01@linux.or.jp)

  v0.00, 1999N 227

  ̃hLg Linux HOWTOA͑ Linux Documentation Pro-
  ject ̃hLg̒ҋyі|҂ΏۂƂĂ܂B̖͂̕ړI
  ͂̂悤ȕBɁAEmacs  Ispell Ȃǂƌc[̎g̃qg
  ^邱ƂłBi󒍁F ł "Emacs " ƂӖ\ꍇ
  ɁAunder Emacs  upon Emacs ƕ\LꂳĂ܂񂪈Ӗ
  Aׂ͂ "Emacs " ɓꂵĂ܂B܂͂̕Ƃƃt
  XŏApɖ|󂵂ɓ{ɖ|󂵂̂
  BłAtHgiISO-8859-1j܂܂Ă܂Arecode
  Ƃ\tg "recode latin1:texte t@C" Ǝw肵ċ^\ɕ
  Ă܂BiF cafe' ȂǁjȂ̃\tg̃\[X̂͂Ȃǂ
  肷邱Ƃł܂j

  ______________________________________________________________________

  ڎ

  1. 
     1.1 Copyright
     1.2 NWbg
     1.3 Rg
     1.4 Versions

  2. Cg_NV
     2.1 SGML
     2.2 LinuxDoc ^`
     2.3 SGML-Tools

  3. ͂߂ẴhLg
     3.1 eLXg`̃hLg

  4. Emacs ̐ݒ
     4.1 ANZgt̕
        4.1.1 8-bit ̕\
        4.1.2 8-bit ̓
           4.1.2.1 iso-acc Cu[
           4.1.2.2 ^L[
        4.1.3 8-bit SGML ̕\
     4.2 SGML [h
     4.3 PSGML [h
     4.4 ̑
        4.4.1 auto-fill [h

  5. Ispell
     5.1 ftHg̑I
     5.2 t@ČɑΉ̑I
     5.3 ̃Xy`FbN
     5.4 lp vs [Jt@C
     5.5 Xy`FbN

  6. ͋Z
     6.1 wb_[̎}
        6.1.1 t@C}ꍇ
        6.1.2 [`sꍇ

  A. insert-sgml-header ֐
  B. ҂Ƃ

  ______________________________________________________________________

  1.  

  1.1.  Copyright

  Copyright Philippe Martin 1998
  You may redistribute and/or modify this document as long as you comply
  with the terms of the GNU General Public Licence, version 2 or later.

  ̃hLg GNU General Public Licnce(GPL) Version 2 ȍ~ɏ]
  ĔzzCsĂ܂܂B

  1.2.  NWbg

  Se'bastien BlondeelɊӂ܂Bނ͈ӒnŁAx Emacs ̃Zbg
  AbvɂĎ₵Ă܂Bނ̂ǂɂ Emacs ɂ
  Ăm鎖łAĂ̒m͂̃hLgƂĂȂɓ`
  鎖ł܂B

  1.3.  Rg

  ̃hLgǂ邽߂̕ł΁AǂȂƂłɕ
  ĂBȂ̈ӌSĂɖڂʂ܂B̃hLg̃g
  sbNɂĂ̎ɂSOȂłB̃hLg
  邽߂̎ɓ鎖͊łB

  (-- itXꂩp̖|ҒFpɎM΁AɑĂ
  Ij
  ipꂩ{̖|ҒFpɎMĂAɑȂŉ
  :j--)

  1.4.  Versions

  ͈̕ȉ̃o[W̃\tgΏۂƂĂ܂B

  o  Sgml-tools version 0.99,

  o  Emacs version 19.34,

  o  Ispell version 3.1,

  o  ̒̕ŎQƂĂSĂ Emacs CúAVo[
     W Emacs ƈꏏɔzzĂ̂łBAXEmacs ƈ
     ɔzzĂ iso-sgml yђP̂̃Cu[ł psgml ͏
     ܂B

     i󒍁F ҂ł鎄ǵAWindows NT Ver.4.0  Mule for Win
     32 Version 1.22 (gt) (Emacs version 19.28.31x[XjŊmF܂
     Ão[WłiKvȃtHgȌjɖ
     ͖Ǝv܂BEmacs ̂ɂďĂꏊł́A\
     Ȍ Mule łmFĕ⑫Ă܂j

  2.  Cg_NV

  2.1.  SGML

  SGML(Standard Generalised Mark-up Language) ͕̌^`錾
  B

  ႦΕ̌^Vsƒ`ƁAԖڂ̕ōޗAԖڂŕt
  iAOԖڂŃP[L̏Ă̎菇AčŌɑfGȊGŏoオ
  ܂B

  ͕^`iDocument Type Definition DTDjƌĂ΂܂B
  ͍ŏIIɂǂ̂悤Ɍ邩ƌƂ`̂ł͂ȂA܂
  邩ƂƂ\܂B

  xgĂ݂܂傤B̃Vs̃ACfAǂނƁAȂ
  ͎Vs₠Ȃ̍DȗƂA邢̓ACfA
  pꂽƎv܂񂪁Aۂɂ͎̃ACfAƂȂ̃ACf
  A͈Ƃv̂łB̃Vs͗̌˒I̍̂
  ݂ĂĎv̂ŁAޗ́Av[ƃo[xL[
  Ԃɂ闠Ă鎞ɂ݂̂łBȂ̏ꍇ͂ǂł
  H

  W`(SGML)ɂāAŏIIɓǎ҂ɂǂ̂悤Ɍ邩ƂƂ
  ӎɃhLgƂł܂B

  2.2.  LinuxDoc ^`

  ̌^͂Ȃ̑zʂALinux Ɋ֌WhLg߂Ɏgp
  ܂B

  ̂悤ȃhLg͒ʏȉ̂悤ɍ\܂B|^CgŎn
  AҖAi|ҖjAo[WAētłBɊTvił
  ATĂ񂪊܂܂Ă邩ǂ𔻒fׂɂׂĂ
  ޕKv͂܂jꂩڎ܂̂ŁA}łꍇɂ͒ړ
  ݂ւƔׂ܂B

  ɏ́A߁iZNVjAiipOtj̃Xg܂B
  ̒ɃvO⃊Xg̑}sAtHgύXĒP╶
  iZeXjAhLg̑̕QƂ鎖Ȃǂ
  \łB

  ̂悤ȃhLgׂɕKvȂ̂͒PɁA^CgAҖA
  tAhLg̃o[WÁA߂Ȃǂ𐳂w肷邱ƂƂ̗vf
  ͉ł邩ƂłB

  2.3.  SGML-Tools

  SGML-Tools ́AhLg̎wi^OjȂړIƂŏII
  Ȍ`ɕϊ̂łBȂ̃hLglp̃Cu
  Ƃ̂ł΁APostScript Ił傤AE Web ŋ
  L̂ł HTML ɂȂł傤B Windows łǂ܂Ȃ
  ΂ȂȂ̂ł΁iǂĂ̂ł΁jRTF `ɕϊ
  āAǂȃ[v\tgłǂ߂悤ɂ邱Ƃł܂A
  ͋Cς邽߂ɏL̂R̃tH[}bgׂĂgƂ
  傤B

  SGML-Tool anonymous FTP  ftp://ftp.lip6.fr/pub/sgml-tools/ 
  ł܂B

  3.  ͂߂ẴhLg

  3.1.  eLXg`̃hLg

  eLXg`̃hLgAĩtH[}bgɂׂɁjSGML `
  ɕϊꍇÂ悤ɍs܂B

  1. 擪Ɏ̂悤ȍsǉ܂B

         <!doctype linuxdoc system>
              <article>
               <title>Ƀ^Cg܂</title>
               <author>ҖA҂e-maiAhXȂǂł</author>
               <date>o[WƓtł</date>

  2. hLg̊TvꍇÃpOt <abstract> 
     </abstract> ^Oň͂łB

  3. ꂩ <toc> ^O}ĉB Table Of Contentsi
     j̗łB

  4. e͂̎n߂́A͂̔ԍyу^Cĝ悤ɒuĂB

            <sect>͂̃^Cg

  āA</sect> ^O͂̍ŌɒǉĉB

  ӁFIɍs܂̂ŁA͔ԍtKv͂܂B

  5. ZNVɂĂAlɍsĂBԍ폜āA^Cg
      <sect1>  </sect1> Ń^OtKv܂B

  6.  <sectn>  </sectn> (n=2,3,4) gɂāAZNV
     łSx̃lXg`o܂B

  7. epOt̎n߂ɂ́A<p> ^O}ĉB

  8. ɂ́A <it>  </it>(C^bNjA <bf>  </bf>i{
     [hjA <tt>  </tt>i^CvC^[X^CjƂ^O
     gĉB

  9. Xg}邽߂ɂ́Â悤ɂ܂B

        ͂Ss̃Xgł:

              - ͂Psڂł
              - Qsڂł
              - Rsڂł
              - Ō̍sł

  ͂̂悤ɕ\܂B

     ͂Ss̃Xgł:

         <itemize>
         <item>͂Psڂł
         <item>Qsڂł
         <item>Rsڂł
         <item>Ō̍sł
         </itemize>

  10.
     ubNSĂvOïꕔjA͖ڗKv
     ꍇ́A

         <verb>
         10 REM _Ǎ͂Ȃł傤H
         20 REM iꂵ̂悤Ɍ󂯂܂
         30 PRINT "͖߂Ă";
         40 PRINT "E~ׂɁB"
         50 INPUT "Ȃ͂̎N𗊂܂H ",M$
         60 IF M$="Bill" THEN PRINT "͌lłB":GOTO PARADISE
         70 ELSE PRINT "͉Ăʁc":GOTO RICHMOND
         </verb>

  11.
     ܂ł̏ŁAȂ SGML tH[}bgɂXL͌Ⴆ
     Ɍサ܂BȂ̃hLgɖ̂ł
     A User's guide for SGML-Tools QƂĂB LinuxDoc h
     Lg^ɂāAڂĂ܂B

  4.  Emacs ̐ݒ

  4.1.  ANZgt̕

  hLgtX⑼̐[bp̌ŏꍇA
  8-bit KvɂȂ܂Bł͂̂悤ȕɂ͂ǂ̂悤
  Emacs ZbgAbv邩ɂĐ܂B

  4.1.1.  8-bit ̕\

  Emacs  8-bit \邽߂ɂ́Aȉ̂悤ȍs .emacs t@
  C̒ɕKvƂȂ܂B

         (standard-display-european 1)
         (load-library "iso-syntax")

  i󒍁F mule lłBΉtHgKvɂȂ܂j

  Emacs gpĂ^[~i 8-bit T|[gĂȂꍇA iso-
  ascii Cu[gp邱Ƃł܂B Emacs  8-bit 
  \ׂ̍ł߂włB iso-ascii Cu[gꍇA

          (load-library "iso-ascii")

  4.1.2.  8-bit ̓

  gĂL[{[hŃANZgtL̓͂͂łꍇA̖
  ܂BłȂꍇ͈ȉɂȂł傤B

  4.1.2.1.  iso-acc Cu[

  Emacs  iso-acc Cu[́A7-bit L[{[h 8-bit 
  ł悤ɂ܂B

  gpɂ́A̍s .emacs t@CɓĂB

        (load-library "iso-acc")

  ꂩGfBbgt@Cs Emacs ŃI[vA
  Meta-x iso-accents-mode ͂ĂB

  ΁AႦ΃tX̒Pł cafe  e A' ɑ e 
  ^Cv邱ƂɂA͂邱Ƃł܂BʓIɂ̓ANZgt
  ́A͂߂ɃANZgL(')AɃANZg̕t镶
  i啶Aj͂邱Ƃɂčs܂BȉɃANZg̗
  ܂B

  ` : Grave O[u

  ^ : Circumflex  VRtbNX

  " : Dieresis fBG[Y

  ~ : Tilde eBf, cedilla ZfB[, т̑̓̋L (iso-
  acc.el Q)

  / : ɎΐAȂǁB

  ANZgtLł͂ȂAL̋L̂͂ꍇAL̎
  Xy[XĂBႦ΁Al'elephant  l ' <spc> ' e l ' e
  ... Ɠ͂܂B

  SĂ̎gp\ȃRrl[V iso-acc.el t@C̒Ō鎖
  ł܂B

  4.1.2.2.  ^L[

  ̃^[~ił́A<Meta> i <Alt>jL[ 8-bit 
  ͂ł܂BႦ΁A<Meta>-i  e ͂ł܂B

   Emacs ł <Meta> L[͑̋@\ŎgĂ܂B܂AANZ
  gtL̓͂<Meta>L[ōsCu[͒m܂B

  ̂悤ȉ@܂B

        (global-set-key "\ei" '(lambda () (interactive) (insert ?\351)))
                           _                                      ___

  i󒍁FL̈Ӗ́Â悤ɂȂ܂B

  o  global-set-key : SẴ[hŋʂ̃L[oCh`

  o  \e  ESC L[\킵܂̂ŁA \ei  <ESC>+i ̎łB

  o  lambda : Xg̓_łB_̃Xg̓R}hƂĈ
     ܂B

  o  Xg : ()ň͂܂ꂽg()g̎XgƌĂт܂B

  o  (interactive) : R}hłAΘbIɁiL[͂j֐s
     Ƃ\܂B

  o  (insert ?\351) : R[h \351 iL[j͂̂ƓɂȂ
     ܂j

  ̂悤ȍs .emacs t@CɓƁAe  <Meta>-i œ͂ł
  ɂȂ܂B悤ɂĕKvȃL[Rrl[VAi  351 
  ύX邱ƂɂčĒ`邱Ƃł܂BiR[h ISO-8859-1
  LN^[Zbĝ̂łj

  ӁI ̃[J[hŃL[Rrl[VĒ`Ă
  ܂B

  4.1.3.  8-bit SGML ̕\

  SGML ł́AANZgtL}Nœ͂ł܂BႦ΁Ae 
  &eacute; łB| ʓIɂ́ASGML ǂޕKv̂AvP[V
  8-bit ǂގł܂̂ŁÂ悤ȃ}NgpKv͂
  ܂񂪁AǂނƂ̂łȂ̂邩܂B̏ꍇ̓}N
  gƂɂāA̖邱Ƃł܂B

  iso-sgml Cu[Ȃ悤 Emacs ŃANZgtL̓
  \ɂ܂A̓t@CfBXNɃZ[uƂɁA
  8-bit  SGML ̑̂ɕϊ܂B

  ̃Cu[̂Emacs ł̃hLg̓͂ҏWƂ͊
  PłA܂ 8-bit Ήł͂ȂAvP[VłȂ̃hL
  gł悤ɂȂ܂B

  ̃Cu[gׂɂ́A̍s .emacs ɒǉ邾łB

        (setq sgml-mode-hook
        '(lambda () "Defaults for SGML mode."
         (load-library "iso-sgml")))

  i󒍁F hook ɂẮAauto-fill mode̖󒍂ŃW[^}Ci[[
  hƋɐĂ܂j

  4.2.  SGML [h

  .sgml Ƃgqt@C[hƁAEmacs ͎I
  sgml [hɂȂ܂BłȂȂꍇA Meta-x sgml-mode
  ƂĎ蓮ōs܂B̏ꍇA̍s .emacs t@Cɒǉ邱
  ɂāAIɃ[h؂ς悤ɂł܂B

        (setq auto-mode-alist
        (append '(("\.sgml$"  . sgml-mode))
                  auto-mode-alist))

  i󒍁Fautoc-mode-alist ϐɂ́Aǂ݂񂾊gqɂĎIɕ
  X郂[hXg`œĂ܂BL̗ł .sgml Ƃg
  q̃t@Cǂ݂񂾏ꍇAsgml-mode Ƃ[hɎIɕς
  ɐݒ肵Ă܂Blɂđ̊gq̑̃[hǉł܂j

  ̃[h́AႦ΂ǂ̂悤 8-bit ͂邩Ił悤
  ɂ܂BMeta-x sgml-name-8bit-mode i܂̓j[ SGML/Toggle
  8-bit insertionjŁA8-bit ̂悤ɓ͂邩A܂ SGML
  tH[ŁA\}N Lq܂B

  ̃[hł́Asgml-tags-invisiblei܂̓j[ SGML/Toggle
  Tag Visibilityj SGML ^O̕\^\s܂B

  4.3.  PSGML [h

  PSGML [h́AEmacs ł SGML hLg̕ҏWyɂĂ
  B
  psgml-linuxdoc hLgɁÃ[h̃CXg[@ LinuxDoc
  ł̎gɂĂĂ܂B

  4.4.  ̑

  4.4.1.  auto-fill [h

  ʏ̃[hł́ApOt͎̓ɂ͍s̍Ō <Return> L[
  ĉsKv܂BsȂꍇApOt̑Ŝ
  ɁisjɂȂĂ܂܂Bs邽߂ <Return> gpꍇA
  E}[WłڂȃpOtɂȂĂ܂ł傤B

  K؂Ȓȏ̍śAGfB^[ɂĂ͌ȂȂĂ܂
  ܂B

  auto-fill [h́Â悤Ȗʓ|ȍƂĂ܂Bw̃J
  iftHgł 70jzꍇAIɉs܂B

  ̃[hgpɂ́Â悤ɍs܂Bł̓J80ɐݒ肵
  Ă܂B

         (setq sgml-mode-hook
                 '(lambda () "SGML [h̃ftHg"
                   (auto-fill-mode)
                   (setq fill-column 80)))

  i󒍁FEmacs/Mule ɂ́AW[[hƃ}Ci[[ĥQA
  sgml-mode ̓W[[hAauto-fill-mode ̓}Ci[[hłB}C
  i[[h͂ǂ̃W[[hƂɐݒł܂ił͂
  jBłAL̗Ⴞ sgml-mode ɂȂɓ auto-fill-
  mode }Ci[[hɂȂ悤Ɏw肵Ă܂Ã[hiႦ
  text-mode Ȃǁj auto-fill-mode w肷邱Ƃ\łBhook ́A
  iʏj̃[hɂȂ钼OɎs郋[`̎łBLł
  sgml-mode-hook ŋLqĂׁAsgml-mode ɂȂ̂80J
  auto-fill-mode ɂȂ悤ɂȂĂ܂AR}hƂĎs
  .emacs ȂǂɋLq鎖ɂđS[hʁ^W̐ݒs\
  łj

  5.  Ispell

  EmacsŃhLg̃Xy`FbNsꍇA Ispell pbP[
  WgƂ Emacs [hgp鎖ł܂B

  5.1.  ftHg̑I

  t@C̓ǂݍݎɁAIɑI悤Ɂi̎
  \j Emacs ZbgAbv邱Ƃł܂B܂Ԗڂ́Ałdv
  ̂ Ispell ƓɔzzĂ郁CłB̌i̎
  jI邱Ƃł܂BԖڂ͂Ȃlp̎ŁAC
  ɂȂAȂo^P̊i[łB

  Ispell ƓɔzzĂtX̎ftHgAz[
  fBNg .ispell-dico-perso t@ClpƂĎgp
  ꍇA.emacs t@CɈȉ̍sǉĂB
  i󒍁F̃̕IWi̓tXŏĂ܂Bdico 
  dictionnaireijAperso  personnelilj̗łBł
  Adico-perso ́AlpƂӖɂȂ܂j

         (setq sgml-mode-hook
           '(lambda () "SGML [h̃ftHg"
         (setq ispell-personal-dictionary "~/.ispell-dico-perso")
         (ispell-change-dictionary "francais")
         ))

  5.2.  t@ČɑΉ̑I

  ̌ł̃Xy`FbNsꍇA̖肪邩܂
  BႦ΃hLg̖|ȂǁAiyюjpɂɐ؂ւ鎞
  ȂǂłB

  ɂ Lisp ŎIɁA̓}EXNbNŁAgp̌̃
  CEl؂ւ@͂킩܂i䑶ł為
  ЋĉIj

  ǂÃ݂t@Cłǂ̎gp邩i܂̎̂ݎgp
  邱Ɓjt@C̖Ŏw鎖\łBRgƂĎw
  鎖ɂāAspell-check ̋N Ispell ͂ǂ݂ގ
  ܂B

        <!-- Local IspellDict: english -->
        <!-- Local IspellPersDict: ~/emacs/.ispell-english -->

  Ⴆ .emacs t@CɃftHg̎ƂătX̎w肵
  ĂꍇɁApŏꂽt@C̖ɂ̍sǉ鎖ł
  Biǉ邱ƂɂāAp̎gp邱Ƃł܂j

  5.3.  ̃Xy`FbN

  ŜXy`FbNꍇÂǂł Meta-x ispell-
  buffer R}hgpł܂B܂̂悤ɂāÃ[W
  ݂`FbN邱Ƃ\łB

  i󒍁F[WƂ́Aw肳ꂽ͈͑Ŝ̂Ƃłj

  o  [W̐擪 Ctrl-Spcimark-set-commandjŎw

  o  Xy`FbN͈͂̍ŌփJ[\ړ

  o  Meta-x ispell-region R}hs

   Emacs  Ispell N܂Bm̒PAi
  nCCg\Łj̒P\Aȉ̂悤ȃL[͂҂܂B

  o  spc ͍̂ݒP𐳂̂Ƃ܂

  o  i ͒P𐳂̂ƂAlpɒPo^܂

  o  a ͒P̃ZbV̊ԁÂƂ܂

  o  A ͒P𐳂̂ƂA[Jt@Cɓo^܂

  o  r ͎蓮ŁAP̓͂s܂

  o  R ͈Ȍ̃~XXy̒PꂷׂĂA蓮œ͂PŒu
     ܂

  o  x ̓Xy`FbNIAJ[\`FbNJnʒuɖ߂
     ܂B

  o  X ̓Xy`FbNI܂AJ[\݂͌̈ʒû܂܂łB
     ɂ肻̏ꂩt@C̏CsƂł܂B Meta-x
     ispell-continue R}hs邱ƂɂāAXy`FbN
     s邱Ƃł܂B

  o  ? ̓ICwv̕\s܂

  ispell m̒Pɋ߂PꍇAȃEBhEJ
  ɒʔԂtĕ\܂B~XXyPuɂ͂̔
  Pɉłł܂B

  5.4.  lp vs [Jt@C

  i L[͒PlpɁA΂ A ͒P[Jt@Cɓo
  ^܂B

  [Jt@ĆAt@C̖ɃRgƂđ}ꂽP
  W܂ŁÃt@C Ispell ɂēxǂ݂܂܂B
  ɂÃt@Cł݂̂̒PmƂ鎖ł܂B

  g̍lł͌lpɂ́AgpĂ錾̃Cɖi
  ΃nCt̂PȂǁjALinux ̂悤ȌŗL③̂悤ȒP
  o^ׂƎv܂B~XXyPm̒PƂĈ
  ܂Ȃ̂ŁAOȂǂlpɑʂɓo^邱Ƃ͊댯
  ܂BႦ΁Â悤ȏꍇAIspell ͘f킳Ă܂܂
  i󒍁Fm̒PmƈĂ܂܂jB `When the going gets
  tof, the tof get going' (-- iTof ́AitXj𗪂̂
  j--)

  5.5.  Xy`FbN

  Ispell ͓͂ƓɃXy`FbN邱Ƃł܂B̂߂ɂ́A
  ispell-minor-mode gp܂B[h̊JnÍA Meta-x ispell-
  minor-mode R}hs܂BIspell ͖m̒Pꂪ͂ƃr[
  v炵܂B

  r[v킸킵iQĂ郋[Cg鎞Ƃj
  ꍇAMeta-x set-variable ^[ visible-bell ^[ t ^[ 
  ͂āAr[v炷ɉʂtbV邱Ƃł܂B
  ̍s .emacs ɋLq鎖ɂāAɃr[v炳Ȃ悤ɂ
  邱Ƃł܂B

         (setq visible-bell t)

  6.  ͋Z

  6.1.  wb_[̎}

  Emacs ł̓t@C̃I[vAZ[uAV[h̋NȂǁACxg
  ɑ΂ANVtbN邱Ƃł܂B

  autoinsert Cu[͂̋@\gp܂BƂ Emacs Ńt@
  CNꍇAt@C̃^Cvɂ肱̃Cu[͕W̃wb
  _[}܂B

  ̃P[X̏ꍇA̕W̃wb_[Ƃ LinuxDoc ^̃^CgA
  ҁAt̂ƂłB

  ł̓wb_[}@AQ܂B}܂
  ev[gt@Cǉ@ƁAelisp ̃[`s@
  QłB

  6.1.1.  t@C}ꍇ

  t@CI[vĂ܂n߂ɁAEmacs  auto-insert sK
  v܂BꂩAauto-insert-alist XgĂ
  autoinsert Cuǂ݂݂܂B̃Xg̓t@C̎ޕʂ
  wb_[`Ă܂̂ŁACKv܂BftHg
  ł ~/insert/ fBNgɁA}wb_[̊܂܂ꂽt@C
  ܂Aauto-insert-directory ϐύX邱Ƃɂăt@C̏
  Ē`邱Ƃł܂B

  SGML t@CI[vx ~/emacs/sgml-insert.sgml t@C}
  ɂ́A̍s .emacs t@CɒǉĂB

        (add-hook 'find-file-hooks 'auto-insert)
        (load-library "autoinsert")
        (setq auto-insert-directory "~/emacs/")
        (setq auto-insert-alist
              (append '((sgml-mode .  "sgml-insert.sgml"))
                      auto-insert-alist))

  i󒍁F alist ͘AzXg̎łBႦ΁AlɊ֘AÂ܂
  i^񒆂 . YꂸɁIjB܂Xg̐擪 ' tĂȂꍇA
  Xg̏߂̗vf͊֐\܂B(foo bar)  foo ֐ bar Ƃ
  nĂ܂B'(foo bar) ͒P foo  bar Ƃvf̓
  Xgłj

   ~/emacs/sgml-insert.sgml ɍDȃwb_[Lqł܂B Emacs
  ċNāi󒍁F.emacs J Meta-x eval-current-buffer ł
  jK .sgml t@CNĂ݂ĂB Emacs ͎}
  ̊mF\܂B yes ƓƂȂ̍쐬wb_[}
  ܂B

  6.1.2.  [`sꍇ

  ̓t@C}ꍇƓ悤ɓ삵܂A auto-insert-
  alist ɑ}wb_[̃t@CǉɁAs֐ǉ
  ܂Bł͂ǂ̂悤ɏ邩Ƃ݂̂܂BR̊
  ̖O ~/emacs/sgml-header.el ɂł傤BiɒȂ
  Ă܂ƎvA֐̒` .emacs t@C̒ɋLqKv͂
  ܂j

        (add-hook 'find-file-hooks 'auto-insert)
        (load-library "autoinsert")
        (add-to-list 'load-path "~/emacs")
        (load-library "sgml-header")
        (setq auto-insert-alist
              (append '(((sgml-mode .  "SGML Mode") . insert-sgml-header))
                  auto-insert-alist))

  insert-sgml-header ֐̗́A ``appendix'' ɂ܂B

  A.  insert-sgml-header ֐

  ̊֐́A[U[̗ւׂ̈ Linux Documentation Projetct hL
  gt@Cɑ}܂B̊֐̓t@CI[vɎ
  IA̓[U[IɎw肷鎖ɂČĂяo܂B

  ̊֐ mini-buffer 烆[U[ɂ̏̓͂𑣂܂
  A͕K{̕ƁAłȂ̂܂B

  n߂Ƀ^Cg̓͂𑣂܂B͂ȂꍇA}
  Ɋ֐̎sI܂BɓtAҁA҂ e-mailAăz[
  y[Włie-mail  home page ̓͂̓IvVłjB

  ͖̎|҂̖O̓͂łA֌Wꍇ͒P Return 
  ΁A|҂Ɋ֌W̓͂͂ȏ㑣܂BO͂
  Ae-mail  home page ̓͂悤ɕ\܂ilɂ̂Q
  ̓IvVłjB

  ͂IƃJg̃obt@ɁA͂ abstract, toc, sect
  ^O}܂BŌɃJ[\ATv͂ꏊi󒍁F܂
  <abstract>  </abstract> ̊ԁjɈړĎsI܂B

  (defun insert-sgml-header ()
    "Inserts the header for a LinuxDoc document"
    (interactive)
    (let (title author email home translator email-translator home-translator date
            starting-point)
      (setq title (read-from-minibuffer "Title: "))
      (if (> (length title) 0)
      (progn
        (setq date (read-from-minibuffer "Date: ")
          author (read-from-minibuffer "Author: ")
          email (read-from-minibuffer "Author e-mail: ")
          home (read-from-minibuffer "Author home page: http://")
          translator (read-from-minibuffer "Translator: "))
        (insert "<!doctype linuxdoc system>\n<article>\n<title>")
        (insert title)
        (insert "</title>\n<author>\nAuthor: ") (insert author) (insert "<newline>\n")
        (if (> (length email) 0)
            (progn
          (insert "<htmlurl url=\"mailto:")
          (insert email) (insert "\" name=\"") (insert email)
          (insert "\"><newline>\n")))
        (if (> (length home) 0)
            (progn
          (insert "<htmlurl url=\"http://")
          (insert home) (insert "\" name=\"") (insert home)
          (insert "\">\n<newline>")))
        (if (> (length translator) 0)
            (progn
          (setq email-translator (read-from-minibuffer "Translator e-mail: ")
                home-translator (read-from-minibuffer "Translator home page: http://"))
          (insert "Translator : ")
          (insert translator)
          (insert "<newline>\n")
          (if (> (length email-translator) 0)
              (progn
                (insert "<htmlurl url=\"mailto:")
                (insert email-translator) (insert "\" name=\"")
                (insert email-translator)
                (insert "\"><newline>\n")))
          (if (> (length home-translator) 0)
              (progn
                (insert "<htmlurl url=\"http://")
                (insert home-translator) (insert "\" name=\"")
                (insert home-translator)
                (insert "\"><newline>\n")))))
        (insert "</author>\n<date>\n")
        (insert date)
        (insert "\n</date>\n\n<abstract>\n")
        (setq point-beginning (point))
        (insert "\n</abstract>\n<toc>\n\n<sect>\n<p>\n\n\n</sect>\n\n</article>\n")
        (goto-char point-beginning)
        ))))

  B.  ҂Ƃ

  { Linux-JF vWFNg̕X瑽̂𒸂܂B
  肪Ƃ܂B

  {F m

  1999N 227

