summaryrefslogtreecommitdiff
path: root/lisp/progmodes/ebnf-bnf.el
diff options
context:
space:
mode:
authorVinicius Jose Latorre <viniciusjl@ig.com.br>2004-04-05 02:00:42 +0000
committerVinicius Jose Latorre <viniciusjl@ig.com.br>2004-04-05 02:00:42 +0000
commit6411a60a71653b232e4606d7e40cbbf3cb91f663 (patch)
tree974534ed63f2314681959e3ae27fdad299357d4f /lisp/progmodes/ebnf-bnf.el
parent074930457dbb756869e70b4e30a079fcdb0efc85 (diff)
downloademacs-6411a60a71653b232e4606d7e40cbbf3cb91f663.tar.gz
ebnf2ps 4.2
Diffstat (limited to 'lisp/progmodes/ebnf-bnf.el')
-rw-r--r--lisp/progmodes/ebnf-bnf.el16
1 files changed, 3 insertions, 13 deletions
diff --git a/lisp/progmodes/ebnf-bnf.el b/lisp/progmodes/ebnf-bnf.el
index 4f0ef6099c8..d32ad5a77c9 100644
--- a/lisp/progmodes/ebnf-bnf.el
+++ b/lisp/progmodes/ebnf-bnf.el
@@ -5,9 +5,9 @@
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
-;; Time-stamp: <2004/02/28 18:25:52 vinicius>
+;; Time-stamp: <2004/04/03 16:42:18 vinicius>
;; Keywords: wp, ebnf, PostScript
-;; Version: 1.8
+;; Version: 1.9
;; This file is part of GNU Emacs.
@@ -206,17 +206,7 @@
term (cdr term))
(setq seq (cons term seq)))
(cons token
- (cond
- ;; null sequence
- ((null seq)
- (ebnf-make-empty))
- ;; sequence with only one element
- ((= (length seq) 1)
- (car seq))
- ;; a real sequence
- (t
- (ebnf-make-sequence (nreverse seq)))
- ))))
+ (ebnf-token-sequence seq))))
;;; exception = repeat [ "-" repeat].