diff options
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2004-04-05 02:00:42 +0000 |
---|---|---|
committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2004-04-05 02:00:42 +0000 |
commit | 6411a60a71653b232e4606d7e40cbbf3cb91f663 (patch) | |
tree | 974534ed63f2314681959e3ae27fdad299357d4f /lisp/progmodes/ebnf-iso.el | |
parent | 074930457dbb756869e70b4e30a079fcdb0efc85 (diff) | |
download | emacs-6411a60a71653b232e4606d7e40cbbf3cb91f663.tar.gz |
ebnf2ps 4.2
Diffstat (limited to 'lisp/progmodes/ebnf-iso.el')
-rw-r--r-- | lisp/progmodes/ebnf-iso.el | 18 |
1 files changed, 5 insertions, 13 deletions
diff --git a/lisp/progmodes/ebnf-iso.el b/lisp/progmodes/ebnf-iso.el index 0d9977d7084..f36065bd558 100644 --- a/lisp/progmodes/ebnf-iso.el +++ b/lisp/progmodes/ebnf-iso.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/29 18:31:33 vinicius> +;; Time-stamp: <2004/04/03 16:48:52 vinicius> ;; Keywords: wp, ebnf, PostScript -;; Version: 1.7 +;; Version: 1.8 ;; This file is part of GNU Emacs. @@ -203,17 +203,9 @@ (eq token 'catenate)) (setq seq (cons term seq))) (cons token - (cond - ;; null sequence - ((null seq) - term) - ;; sequence with only one element - ((and (null term) (= (length seq) 1)) - (car seq)) - ;; a real sequence - (t - (ebnf-make-sequence (nreverse (cons term seq)))) - )))) + (ebnf-token-sequence (if term + (cons term seq) + seq))))) ;;; term = factor, ['-', exception]; |