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

[Juanma Barranquero]

Index: emacs/lisp/progmodes/ebnf2ps.el
diff -c emacs/lisp/progmodes/ebnf2ps.el:1.29 
emacs/lisp/progmodes/ebnf2ps.el:1.30
*** emacs/lisp/progmodes/ebnf2ps.el:1.29        Fri Mar 25 08:47:00 2005
--- emacs/lisp/progmodes/ebnf2ps.el     Mon Jul  4 03:01:10 2005
***************
*** 1135,1148 ****
  ;;; Interface to the command system
  
  (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
--- 1135,1148 ----
  ;;; Interface to the command system
  
  (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
***************
*** 1150,1156 ****
  
  
  (defgroup ebnf-special nil
!   "Special customization"
    :prefix "ebnf-"
    :tag "Special"
    :version "20"
--- 1150,1156 ----
  
  
  (defgroup ebnf-special nil
!   "Special customization."
    :prefix "ebnf-"
    :tag "Special"
    :version "20"
***************
*** 1158,1164 ****
  
  
  (defgroup ebnf-except nil
!   "Except customization"
    :prefix "ebnf-"
    :tag "Except"
    :version "20"
--- 1158,1164 ----
  
  
  (defgroup ebnf-except nil
!   "Except customization."
    :prefix "ebnf-"
    :tag "Except"
    :version "20"
***************
*** 1166,1172 ****
  
  
  (defgroup ebnf-repeat nil
!   "Repeat customization"
    :prefix "ebnf-"
    :tag "Repeat"
    :version "20"
--- 1166,1172 ----
  
  
  (defgroup ebnf-repeat nil
!   "Repeat customization."
    :prefix "ebnf-"
    :tag "Repeat"
    :version "20"
***************
*** 1174,1180 ****
  
  
  (defgroup ebnf-terminal nil
!   "Terminal customization"
    :prefix "ebnf-"
    :tag "Terminal"
    :version "20"
--- 1174,1180 ----
  
  
  (defgroup ebnf-terminal nil
!   "Terminal customization."
    :prefix "ebnf-"
    :tag "Terminal"
    :version "20"
***************
*** 1182,1188 ****
  
  
  (defgroup ebnf-non-terminal nil
!   "Non-Terminal customization"
    :prefix "ebnf-"
    :tag "Non-Terminal"
    :version "20"
--- 1182,1188 ----
  
  
  (defgroup ebnf-non-terminal nil
!   "Non-Terminal customization."
    :prefix "ebnf-"
    :tag "Non-Terminal"
    :version "20"
***************
*** 1190,1196 ****
  
  
  (defgroup ebnf-production nil
!   "Production customization"
    :prefix "ebnf-"
    :tag "Production"
    :version "20"
--- 1190,1196 ----
  
  
  (defgroup ebnf-production nil
!   "Production customization."
    :prefix "ebnf-"
    :tag "Production"
    :version "20"
***************
*** 1198,1204 ****
  
  
  (defgroup ebnf-shape nil
!   "Shapes customization"
    :prefix "ebnf-"
    :tag "Shape"
    :version "20"
--- 1198,1204 ----
  
  
  (defgroup ebnf-shape nil
!   "Shapes customization."
    :prefix "ebnf-"
    :tag "Shape"
    :version "20"
***************
*** 1206,1212 ****
  
  
  (defgroup ebnf-displacement nil
!   "Displacement customization"
    :prefix "ebnf-"
    :tag "Displacement"
    :version "20"
--- 1206,1212 ----
  
  
  (defgroup ebnf-displacement nil
!   "Displacement customization."
    :prefix "ebnf-"
    :tag "Displacement"
    :version "20"
***************
*** 1214,1220 ****
  
  
  (defgroup ebnf-syntactic nil
!   "Syntactic customization"
    :prefix "ebnf-"
    :tag "Syntactic"
    :version "20"
--- 1214,1220 ----
  
  
  (defgroup ebnf-syntactic nil
!   "Syntactic customization."
    :prefix "ebnf-"
    :tag "Syntactic"
    :version "20"
***************
*** 1222,1228 ****
  
  
  (defgroup ebnf-optimization nil
!   "Optimization customization"
    :prefix "ebnf-"
    :tag "Optimization"
    :version "20"
--- 1222,1228 ----
  
  
  (defgroup ebnf-optimization nil
!   "Optimization customization."
    :prefix "ebnf-"
    :tag "Optimization"
    :version "20"
***************
*** 4623,4629 ****
  (defun ebnf-eps-filename (str)
    (let* ((len  (length str))
         (stri 0)
!        (new  (make-string len ?\ )))
      (while (< stri len)
        (aset new stri (aref ebnf-map-name (aref str stri)))
        (setq stri (1+ stri)))
--- 4623,4629 ----
  (defun ebnf-eps-filename (str)
    (let* ((len  (length str))
         (stri 0)
!        (new  (make-string len ?\s)))
      (while (< stri len)
        (aset new stri (aref ebnf-map-name (aref str stri)))
        (setq stri (1+ stri)))
***************
*** 5523,5529 ****
  (defun ebnf-trim-right (str)
    (let* ((len   (1- (length str)))
         (index len))
!     (while (and (> index 0) (= (aref str index) ?\ ))
        (setq index (1- index)))
      (if (= index len)
        str
--- 5523,5529 ----
  (defun ebnf-trim-right (str)
    (let* ((len   (1- (length str)))
         (index len))
!     (while (and (> index 0) (= (aref str index) ?\s))
        (setq index (1- index)))
      (if (= index len)
        str