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-yac.el | |
| parent | 074930457dbb756869e70b4e30a079fcdb0efc85 (diff) | |
| download | emacs-6411a60a71653b232e4606d7e40cbbf3cb91f663.tar.gz | |
ebnf2ps 4.2
Diffstat (limited to 'lisp/progmodes/ebnf-yac.el')
| -rw-r--r-- | lisp/progmodes/ebnf-yac.el | 22 |
1 files changed, 6 insertions, 16 deletions
diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el index ff097b5195d..c7bf0e31541 100644 --- a/lisp/progmodes/ebnf-yac.el +++ b/lisp/progmodes/ebnf-yac.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 20:23:29 vinicius> +;; Time-stamp: <2004/04/03 16:50:46 vinicius> ;; Keywords: wp, ebnf, PostScript -;; Version: 1.2.1 +;; Version: 1.3 ;; This file is part of GNU Emacs. @@ -218,20 +218,10 @@ factor (ebnf-yac-factor token)) (setq seq (cons factor seq))) (cons token - (cond - ;; ignore error recovery - ((and ebnf-yac-ignore-error-recovery ebnf-yac-error) - nil) - ;; 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))) - )))) + (if (and ebnf-yac-ignore-error-recovery ebnf-yac-error) + ;; ignore error recovery + nil + (ebnf-token-sequence seq))))) ;;; Factor = Name |