[Emacs-diffs] Changes to emacs/lisp/progmodes/ebnf2ps.el

[Vinicius Jose Latorre]

Index: emacs/lisp/progmodes/ebnf2ps.el
diff -c emacs/lisp/progmodes/ebnf2ps.el:1.25 
emacs/lisp/progmodes/ebnf2ps.el:1.26
*** emacs/lisp/progmodes/ebnf2ps.el:1.25        Mon Apr  5 01:53:52 2004
--- emacs/lisp/progmodes/ebnf2ps.el     Sat Nov 20 00:03:39 2004
***************
*** 5,11 ****
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
  ;; Maintainer: Vinicius Jose Latorre <address@hidden>
! ;; Time-stamp: <2004/04/04 21:40:30 vinicius>
  ;; Keywords: wp, ebnf, PostScript
  ;; Version: 4.2
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
--- 5,11 ----
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
  ;; Maintainer: Vinicius Jose Latorre <address@hidden>
! ;; Time-stamp: <2004/11/19 21:51:40 vinicius>
  ;; Keywords: wp, ebnf, PostScript
  ;; Version: 4.2
  ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
***************
*** 1138,1149 ****
--- 1138,1151 ----
  (defgroup postscript nil
    "PostScript Group"
    :tag "PostScript"
+   :version "20"
    :group 'emacs)
  
  
  (defgroup ebnf2ps nil
    "Translate an EBNF to a syntactic chart on PostScript"
    :prefix "ebnf-"
+   :version "20"
    :group 'wp
    :group 'postscript)
  
***************
*** 1152,1157 ****
--- 1154,1160 ----
    "Special customization"
    :prefix "ebnf-"
    :tag "Special"
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1159,1164 ****
--- 1162,1168 ----
    "Except customization"
    :prefix "ebnf-"
    :tag "Except"
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1166,1171 ****
--- 1170,1176 ----
    "Repeat customization"
    :prefix "ebnf-"
    :tag "Repeat"
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1173,1178 ****
--- 1178,1184 ----
    "Terminal customization"
    :prefix "ebnf-"
    :tag "Terminal"
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1180,1185 ****
--- 1186,1192 ----
    "Non-Terminal customization"
    :prefix "ebnf-"
    :tag "Non-Terminal"
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1187,1192 ****
--- 1194,1200 ----
    "Production customization"
    :prefix "ebnf-"
    :tag "Production"
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1194,1199 ****
--- 1202,1208 ----
    "Shapes customization"
    :prefix "ebnf-"
    :tag "Shape"
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1201,1206 ****
--- 1210,1216 ----
    "Displacement customization"
    :prefix "ebnf-"
    :tag "Displacement"
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1208,1213 ****
--- 1218,1224 ----
    "Syntactic customization"
    :prefix "ebnf-"
    :tag "Syntactic"
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1215,1226 ****
--- 1226,1239 ----
    "Optimization customization"
    :prefix "ebnf-"
    :tag "Optimization"
+   :version "20"
    :group 'ebnf2ps)
  
  
  (defcustom ebnf-horizontal-orientation nil
    "*Non-nil means productions are drawn horizontally."
    :type 'boolean
+   :version "20"
    :group 'ebnf-displacement)
  
  
***************
*** 1229,1234 ****
--- 1242,1248 ----
  
  It is only used when `ebnf-horizontal-orientation' is non-nil."
    :type 'boolean
+   :version "20"
    :group 'ebnf-displacement)
  
  
***************
*** 1237,1242 ****
--- 1251,1257 ----
  
  Value less or equal to zero forces ebnf2ps to set a proper default value."
    :type 'number
+   :version "20"
    :group 'ebnf-displacement)
  
  
***************
*** 1245,1250 ****
--- 1260,1266 ----
  
  Value less or equal to zero forces ebnf2ps to set a proper default value."
    :type 'number
+   :version "20"
    :group 'ebnf-displacement)
  
  
***************
*** 1258,1269 ****
--- 1274,1287 ----
     any other value    centralize"
    :type '(radio :tag "Sequence Justification"
                (const left) (const right) (other :tag "center" center))
+   :version "20"
    :group 'ebnf-displacement)
  
  
  (defcustom ebnf-special-show-delimiter t
    "*Non-nil means special delimiter (character `?') is shown."
    :type 'boolean
+   :version "20"
    :group 'ebnf-special)
  
  
***************
*** 1285,1290 ****
--- 1303,1309 ----
                               (const underline) (const strikeout)
                               (const overline)  (const shadow)
                               (const box)       (const outline))))
+   :version "20"
    :group 'ebnf-special)
  
  
***************
*** 1294,1317 ****
--- 1313,1340 ----
  See documentation for `ebnf-non-terminal-shape'."
    :type '(radio :tag "Special Shape"
                (const miter) (const round) (const bevel))
+   :version "20"
    :group 'ebnf-special)
  
  
  (defcustom ebnf-special-shadow nil
    "*Non-nil means special box will have a shadow."
    :type 'boolean
+   :version "20"
    :group 'ebnf-special)
  
  
  (defcustom ebnf-special-border-width 0.5
    "*Specify border width for special box."
    :type 'number
+   :version "20"
    :group 'ebnf-special)
  
  
  (defcustom ebnf-special-border-color "Black"
    "*Specify border color for special box."
    :type 'string
+   :version "20"
    :group 'ebnf-special)
  
  
***************
*** 1333,1338 ****
--- 1356,1362 ----
                               (const underline) (const strikeout)
                               (const overline)  (const shadow)
                               (const box)       (const outline))))
+   :version "20"
    :group 'ebnf-except)
  
  
***************
*** 1342,1365 ****
--- 1366,1393 ----
  See documentation for `ebnf-non-terminal-shape'."
    :type '(radio :tag "Except Shape"
                (const miter) (const round) (const bevel))
+   :version "20"
    :group 'ebnf-except)
  
  
  (defcustom ebnf-except-shadow nil
    "*Non-nil means except box will have a shadow."
    :type 'boolean
+   :version "20"
    :group 'ebnf-except)
  
  
  (defcustom ebnf-except-border-width 0.25
    "*Specify border width for except box."
    :type 'number
+   :version "20"
    :group 'ebnf-except)
  
  
  (defcustom ebnf-except-border-color "Black"
    "*Specify border color for except box."
    :type 'string
+   :version "20"
    :group 'ebnf-except)
  
  
***************
*** 1381,1386 ****
--- 1409,1415 ----
                               (const underline) (const strikeout)
                               (const overline)  (const shadow)
                               (const box)       (const outline))))
+   :version "20"
    :group 'ebnf-repeat)
  
  
***************
*** 1390,1413 ****
--- 1419,1446 ----
  See documentation for `ebnf-non-terminal-shape'."
    :type '(radio :tag "Repeat Shape"
                (const miter) (const round) (const bevel))
+   :version "20"
    :group 'ebnf-repeat)
  
  
  (defcustom ebnf-repeat-shadow nil
    "*Non-nil means repeat box will have a shadow."
    :type 'boolean
+   :version "20"
    :group 'ebnf-repeat)
  
  
  (defcustom ebnf-repeat-border-width 0.0
    "*Specify border width for repeat box."
    :type 'number
+   :version "20"
    :group 'ebnf-repeat)
  
  
  (defcustom ebnf-repeat-border-color "Black"
    "*Specify border color for repeat box."
    :type 'string
+   :version "20"
    :group 'ebnf-repeat)
  
  
***************
*** 1429,1434 ****
--- 1462,1468 ----
                               (const underline) (const strikeout)
                               (const overline)  (const shadow)
                               (const box)       (const outline))))
+   :version "20"
    :group 'ebnf-terminal)
  
  
***************
*** 1438,1467 ****
--- 1472,1506 ----
  See documentation for `ebnf-non-terminal-shape'."
    :type '(radio :tag "Terminal Shape"
                (const miter) (const round) (const bevel))
+   :version "20"
    :group 'ebnf-terminal)
  
  
  (defcustom ebnf-terminal-shadow nil
    "*Non-nil means terminal box will have a shadow."
    :type 'boolean
+   :version "20"
    :group 'ebnf-terminal)
  
  
  (defcustom ebnf-terminal-border-width 1.0
    "*Specify border width for terminal box."
    :type 'number
+   :version "20"
    :group 'ebnf-terminal)
  
  
  (defcustom ebnf-terminal-border-color "Black"
    "*Specify border color for terminal box."
    :type 'string
+   :version "20"
    :group 'ebnf-terminal)
  
  
  (defcustom ebnf-production-name-p t
    "*Non-nil means production name will be printed."
    :type 'boolean
+   :version "20"
    :group 'ebnf-production)
  
  
***************
*** 1477,1482 ****
--- 1516,1522 ----
                (const :tag "Ascending" ascending)
                (const :tag "Descending" descending)
                (other :tag "No Sort" nil))
+   :version "20"
    :group 'ebnf-production)
  
  
***************
*** 1519,1524 ****
--- 1559,1565 ----
                               (const underline) (const strikeout)
                               (const overline)  (const shadow)
                               (const box)       (const outline))))
+   :version "20"
    :group 'ebnf-production)
  
  
***************
*** 1540,1545 ****
--- 1581,1587 ----
                               (const underline) (const strikeout)
                               (const overline)  (const shadow)
                               (const box)       (const outline))))
+   :version "20"
    :group 'ebnf-non-terminal)
  
  
***************
*** 1563,1586 ****
--- 1605,1632 ----
  Any other value is treated as `miter'."
    :type '(radio :tag "Non-Terminal Shape"
                (const miter) (const round) (const bevel))
+   :version "20"
    :group 'ebnf-non-terminal)
  
  
  (defcustom ebnf-non-terminal-shadow nil
    "*Non-nil means non-terminal box will have a shadow."
    :type 'boolean
+   :version "20"
    :group 'ebnf-non-terminal)
  
  
  (defcustom ebnf-non-terminal-border-width 1.0
    "*Specify border width for non-terminal box."
    :type 'number
+   :version "20"
    :group 'ebnf-non-terminal)
  
  
  (defcustom ebnf-non-terminal-border-color "Black"
    "*Specify border color for non-terminal box."
    :type 'string
+   :version "20"
    :group 'ebnf-non-terminal)
  
  
***************
*** 1637,1642 ****
--- 1683,1689 ----
                (const full)             (const semi-up-hollow)
                (const semi-down-hollow) (const semi-up-full)
                (const semi-down-full)   (const user))
+   :version "20"
    :group 'ebnf-shape)
  
  
***************
*** 1646,1651 ****
--- 1693,1699 ----
  See documentation for `ebnf-non-terminal-shape'."
    :type '(radio :tag "Chart Flow Shape"
                (const miter) (const round) (const bevel))
+   :version "20"
    :group 'ebnf-shape)
  
  
***************
*** 1685,1690 ****
--- 1733,1739 ----
  The variable `ebnf-user-arrow' is only used when `ebnf-arrow-shape' is set to
  symbol `user'."
    :type '(sexp :tag "User Arrow Shape")
+   :version "20"
    :group 'ebnf-shape)
  
  
***************
*** 1728,1733 ****
--- 1777,1783 ----
    :type '(radio :tag "Syntax"
                (const ebnf) (const abnf)  (const iso-ebnf)
                (const yacc) (const ebnfx) (const dtd))
+   :version "20"
    :group 'ebnf-syntactic)
  
  
***************
*** 1736,1741 ****
--- 1786,1792 ----
  
  It's used only when `ebnf-syntax' is `ebnf'."
    :type 'character
+   :version "20"
    :group 'ebnf-syntactic)
  
  
***************
*** 1744,1749 ****
--- 1795,1801 ----
  
  It's used only when `ebnf-syntax' is `ebnf'."
    :type 'character
+   :version "20"
    :group 'ebnf-syntactic)
  
  
***************
*** 1757,1762 ****
--- 1809,1815 ----
  It's used only when `ebnf-syntax' is `ebnf'."
    :type '(radio :tag "Terminal Name"
                (const nil) regexp)
+   :version "20"
    :group 'ebnf-syntactic)
  
  
***************
*** 1766,1771 ****
--- 1819,1825 ----
  It's only used when `ebnf-terminal-regexp' is non-nil and when `ebnf-syntax' 
is
  `ebnf'."
    :type 'boolean
+   :version "20"
    :group 'ebnf-syntactic)
  
  
***************
*** 1784,1789 ****
--- 1838,1844 ----
        }    ==>   :)
        ;    ==>   ."
    :type 'boolean
+   :version "20"
    :group 'ebnf-syntactic)
  
  
***************
*** 1795,1800 ****
--- 1850,1856 ----
  
  It's only used when `ebnf-syntax' is `iso-ebnf'."
    :type 'boolean
+   :version "20"
    :group 'ebnf-syntactic)
  
  
***************
*** 1803,1808 ****
--- 1859,1865 ----
  
  See `ebnf-eps-directory' command."
    :type 'regexp
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1811,1816 ****
--- 1868,1874 ----
  
  See `ebnf-eps-buffer' and `ebnf-eps-region' commands."
    :type 'string
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1819,1824 ****
--- 1877,1883 ----
  
  It must be a float between 0.0 (top) and 1.0 (bottom)."
    :type 'number
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1826,1831 ****
--- 1885,1891 ----
    "*Specify additional border width over default terminal, non-terminal or
  special."
    :type 'number
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1834,1851 ****
--- 1894,1914 ----
                            (fboundp 'color-instance-rgb-components)) ; XEmacs
    "*Non-nil means use color."
    :type 'boolean
+   :version "20"
    :group 'ebnf2ps)
  
  
  (defcustom ebnf-line-width 1.0
    "*Specify flow line width."
    :type 'number
+   :version "20"
    :group 'ebnf2ps)
  
  
  (defcustom ebnf-line-color "Black"
    "*Specify flow line color."
    :type 'string
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1854,1859 ****
--- 1917,1923 ----
  
  It is intended to help PostScript programmers in debugging."
    :type 'boolean
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1869,1880 ****
--- 1933,1946 ----
  
  when executing ebnf2ps, set `ebnf-use-float-format' to nil."
    :type 'boolean
+   :version "20"
    :group 'ebnf2ps)
  
  
  (defcustom ebnf-stop-on-error nil
    "*Non-nil means signal error and stop. Nil means signal error and continue."
    :type 'boolean
+   :version "20"
    :group 'ebnf2ps)
  
  
***************
*** 1883,1888 ****
--- 1949,1955 ----
  
  It's only used when `ebnf-syntax' is `yacc'."
    :type 'boolean
+   :version "20"
    :group 'ebnf-syntactic)
  
  
***************
*** 1892,1897 ****
--- 1959,1965 ----
  It's interesting to set this variable if your Yacc/Bison grammar has a lot of
  middle action rule."
    :type 'boolean
+   :version "20"
    :group 'ebnf-optimization)
  
  
***************
*** 1918,1923 ****
--- 1986,1992 ----
  
  The above optimizations are specially useful when `ebnf-syntax' is `yacc'."
    :type 'boolean
+   :version "20"
    :group 'ebnf-optimization)