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

[Miles Bader]

Index: emacs/lisp/progmodes/ebnf-otz.el
diff -c emacs/lisp/progmodes/ebnf-otz.el:1.5 
emacs/lisp/progmodes/ebnf-otz.el:1.6
*** emacs/lisp/progmodes/ebnf-otz.el:1.5        Wed Sep 19 04:55:33 2001
--- emacs/lisp/progmodes/ebnf-otz.el    Mon Feb 10 04:55:17 2003
***************
*** 1,11 ****
! ;;; ebnf-otz.el --- syntatic chart OpTimiZer
  
  ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
  ;; Maintainer: Vinicius Jose Latorre <address@hidden>
  ;; Keywords: wp, ebnf, PostScript
! ;; Time-stamp: <2001/08/15 17:13:25 vinicius>
  ;; Version: 1.0
  
  ;; This file is part of GNU Emacs.
--- 1,11 ----
! ;;; ebnf-otz.el --- syntactic chart OpTimiZer
  
  ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
  
  ;; Author: Vinicius Jose Latorre <address@hidden>
  ;; Maintainer: Vinicius Jose Latorre <address@hidden>
  ;; Keywords: wp, ebnf, PostScript
! ;; Time-stamp: <2003-02-10 10:46:51 jbarranquero>
  ;; Version: 1.0
  
  ;; This file is part of GNU Emacs.
***************
*** 196,202 ****
  ;;    A = B | C A D.           ==>   A = B | C A D.
  
  (defun ebnf-optimize (syntax-list)
!   "Syntatic chart optimizer."
    (if (not ebnf-optimize)
        syntax-list
      (let ((ebnf-total (length syntax-list))
--- 196,202 ----
  ;;    A = B | C A D.           ==>   A = B | C A D.
  
  (defun ebnf-optimize (syntax-list)
!   "Syntactic chart optimizer."
    (if (not ebnf-optimize)
        syntax-list
      (let ((ebnf-total (length syntax-list))
***************
*** 225,231 ****
  ;; 10. A = B C E | B D E.       ==>   A = B (C | D) E.
  
  (defun ebnf-optimize1 (prod)
!   (ebnf-message-info "Optimizing syntatic chart")
    (let ((production (ebnf-node-production prod)))
      (and (eq (ebnf-node-kind production) 'ebnf-generate-alternative)
         (let* ((hlist (ebnf-split-header-prefix
--- 225,231 ----
  ;; 10. A = B C E | B D E.       ==>   A = B (C | D) E.
  
  (defun ebnf-optimize1 (prod)
!   (ebnf-message-info "Optimizing syntactic chart")
    (let ((production (ebnf-node-production prod)))
      (and (eq (ebnf-node-kind production) 'ebnf-generate-alternative)
         (let* ((hlist (ebnf-split-header-prefix