aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2003-02-10 09:55:17 +0000
committerJuanma Barranquero2003-02-10 09:55:17 +0000
commit18ac078250f9450f8970f48efcdb72cf0e506414 (patch)
treef937781d3ac05e9fce932129970a838ec9a5317c
parentce4254bd12176593c718298c36bedbc816d57109 (diff)
downloademacs-18ac078250f9450f8970f48efcdb72cf0e506414.tar.gz
emacs-18ac078250f9450f8970f48efcdb72cf0e506414.zip
(ebnf-optimize, ebnf-optimize1): Fix typo.
-rw-r--r--lisp/progmodes/ebnf-otz.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/ebnf-otz.el b/lisp/progmodes/ebnf-otz.el
index 4a6f24101d5..73f1ce9238c 100644
--- a/lisp/progmodes/ebnf-otz.el
+++ b/lisp/progmodes/ebnf-otz.el
@@ -1,11 +1,11 @@
1;;; ebnf-otz.el --- syntatic chart OpTimiZer 1;;; ebnf-otz.el --- syntactic chart OpTimiZer
2 2
3;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. 3;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
4 4
5;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> 5;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
6;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> 6;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
7;; Keywords: wp, ebnf, PostScript 7;; Keywords: wp, ebnf, PostScript
8;; Time-stamp: <2001/08/15 17:13:25 vinicius> 8;; Time-stamp: <2003-02-10 10:46:51 jbarranquero>
9;; Version: 1.0 9;; Version: 1.0
10 10
11;; This file is part of GNU Emacs. 11;; This file is part of GNU Emacs.
@@ -196,7 +196,7 @@
196;; A = B | C A D. ==> A = B | C A D. 196;; A = B | C A D. ==> A = B | C A D.
197 197
198(defun ebnf-optimize (syntax-list) 198(defun ebnf-optimize (syntax-list)
199 "Syntatic chart optimizer." 199 "Syntactic chart optimizer."
200 (if (not ebnf-optimize) 200 (if (not ebnf-optimize)
201 syntax-list 201 syntax-list
202 (let ((ebnf-total (length syntax-list)) 202 (let ((ebnf-total (length syntax-list))
@@ -225,7 +225,7 @@
225;; 10. A = B C E | B D E. ==> A = B (C | D) E. 225;; 10. A = B C E | B D E. ==> A = B (C | D) E.
226 226
227(defun ebnf-optimize1 (prod) 227(defun ebnf-optimize1 (prod)
228 (ebnf-message-info "Optimizing syntatic chart") 228 (ebnf-message-info "Optimizing syntactic chart")
229 (let ((production (ebnf-node-production prod))) 229 (let ((production (ebnf-node-production prod)))
230 (and (eq (ebnf-node-kind production) 'ebnf-generate-alternative) 230 (and (eq (ebnf-node-kind production) 'ebnf-generate-alternative)
231 (let* ((hlist (ebnf-split-header-prefix 231 (let* ((hlist (ebnf-split-header-prefix