texinfo/emacs/new-useful-setqs

   1 ;;                 -*- Mode: Emacs-Lisp -*-
   2
   3 ;; This is the `new-useful-setqs' file
   4 ;; This overrides old defvars since they were revised.
   5
   6 (setq texinfmt-version "2.35 of 10 September 1996")
   7
   8 (setq texinfo-master-menu-header
   9   "\n@detailmenu\n --- The Detailed Node Listing ---\n")
  10
  11 (setq texinfo-environment-regexp
  12   (concat
  13    "^@"
  14    "\\("
  15    "cartouche\\|"
  16    "display\\|"
  17    "end\\|"
  18    "enumerate\\|"
  19    "example\\|"
  20    "f?table\\|"
  21    "flushleft\\|"
  22    "flushright\\|"
  23    "format\\|"
  24    "group\\|"
  25    "ifhtml\\|"
  26    "ifinfo\\|"
  27    "iftex\\|"
  28    "ignore\\|"
  29    "itemize\\|"
  30    "lisp\\|"
  31    "macro\\|"
  32    "multitable\\|"
  33    "quotation\\|"
  34    "smallexample\\|"
  35    "smalllisp\\|"
  36    "tex"
  37    "\\)")
  38 )
  39
  40 (setq texinfo-no-refill-regexp
  41   (concat
  42    "^@"
  43    "\\("
  44    "example\\|"
  45    "smallexample\\|"
  46    "lisp\\|"
  47    "smalllisp\\|"
  48    "display\\|"
  49    "format\\|"
  50    "flushleft\\|"
  51    "flushright\\|"
  52    "menu\\|"
  53    "multitable\\|"
  54    "titlepage\\|"
  55    "iftex\\|"
  56    "ifhtml\\|"
  57    "tex\\|"
  58    "html"
  59    "\\)"))
  60
  61
  62 (setq texinfo-accent-commands
  63   (concat
  64    "@OE\\|"
  65    "@oe\\|"
  66    "@AA\\|"
  67    "@aa\\|"
  68    "@AE\\|"
  69    "@ae\\|"
  70    "@ss\\|"
  71    "@^\\|"
  72    "@`\\|"
  73    "@'\\|"
  74    "@\"\\|"
  75    "@,\\|"
  76    "@=\\|"
  77    "@~\\|"
  78    "@questiondown{\\|"
  79    "@exclamdown{\\|"
  80    "@L{\\|"
  81    "@l{\\|"
  82    "@O{\\|"
  83    "@o{\\|"
  84    "@dotaccent{\\|"
  85    "@ubaraccent{\\|"
  86    "@d{\\|"
  87    "@H{\\|"
  88    "@ringaccent{\\|"
  89    "@tieaccent{\\|"
  90    "@u{\\|"
  91    "@v{\\|"
  92    "@dotless{"
  93    ))
  94
  95 (setq texinfo-part-of-para-regexp
  96   (concat
  97    "^@"
  98    "\\("
  99    "b{\\|"
 100    "bullet{\\|"
 101    "cite{\\|"
 102    "code{\\|"
 103    "emph{\\|"
 104    "equiv{\\|"
 105    "error{\\|"
 106    "expansion{\\|"
 107    "file{\\|"
 108    "i{\\|"
 109    "inforef{\\|"
 110    "kbd{\\|"
 111    "key{\\|"
 112    "lisp{\\|"
 113    "email{\\|"
 114    "minus{\\|"
 115    "point{\\|"
 116    "print{\\|"
 117    "pxref{\\|"
 118    "r{\\|"
 119    "ref{\\|"
 120    "result{\\|"
 121    "samp{\\|"
 122    "sc{\\|"
 123    "t{\\|"
 124    "TeX{\\|"
 125    "today{\\|"
 126    "url{\\|"
 127    "var{\\|"
 128    "w{\\|"
 129    "xref{\\|"
 130    "@-\\|"    ; @- is a descretionary hyphen (not an accent) (a noop).
 131    texinfo-accent-commands
 132    "\\)"
 133    ))
 134
 135 (setq texinfo-raisesections-alist
 136   '((@chapter . @chapter)             ; Cannot go higher
 137     (@unnumbered . @unnumbered)
 138     (@centerchap . @unnumbered)
 139
 140     (@majorheading . @majorheading)
 141     (@chapheading . @chapheading)
 142     (@appendix . @appendix)
 143
 144     (@section . @chapter)
 145     (@unnumberedsec . @unnumbered)
 146     (@heading . @chapheading)
 147     (@appendixsec . @appendix)
 148
 149     (@subsection . @section)
 150     (@unnumberedsubsec . @unnumberedsec)
 151     (@subheading . @heading)
 152     (@appendixsubsec . @appendixsec)
 153
 154     (@subsubsection . @subsection)
 155     (@unnumberedsubsubsec . @unnumberedsubsec)
 156     (@subsubheading . @subheading)
 157     (@appendixsubsubsec . @appendixsubsec)))
 158
 159 (setq texinfo-lowersections-alist
 160   '((@chapter . @section)
 161     (@unnumbered . @unnumberedsec)
 162     (@centerchap . @unnumberedsec)
 163     (@majorheading . @heading)
 164     (@chapheading . @heading)
 165     (@appendix . @appendixsec)
 166
 167     (@section . @subsection)
 168     (@unnumberedsec . @unnumberedsubsec)
 169     (@heading . @subheading)
 170     (@appendixsec . @appendixsubsec)
 171
 172     (@subsection . @subsubsection)
 173     (@unnumberedsubsec . @unnumberedsubsubsec)
 174     (@subheading . @subsubheading)
 175     (@appendixsubsec . @appendixsubsubsec)
 176
 177     (@subsubsection . @subsubsection) ; Cannot go lower.
 178     (@unnumberedsubsubsec . @unnumberedsubsubsec)
 179     (@subsubheading . @subsubheading)
 180     (@appendixsubsubsec . @appendixsubsubsec)))