Mercurial > emacs

comparison lisp/progmodes/ebnf-yac.el @ 82143:81c81019e0c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New: Header/Footer comment & Log messages
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Thu, 26 Jul 2007 13:41:29 +0000
parents c1ec1c8a8d2e
children 12b40810304b f55f9811f5d7
comparison
equal deleted inserted replaced
82142:9077ada922e0 82143:81c81019e0c6
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> 6 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
7 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> 7 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
8 ;; Keywords: wp, ebnf, PostScript 8 ;; Keywords: wp, ebnf, PostScript
9 ;; Version: 1.3 9 ;; Version: 1.4
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
457 ((and ebnf-eps-executing (= (following-char) ?\[)) 457 ((and ebnf-eps-executing (= (following-char) ?\[))
458 (ebnf-eps-add-context (ebnf-yac-eps-filename))) 458 (ebnf-eps-add-context (ebnf-yac-eps-filename)))
459 ;; close EPS file 459 ;; close EPS file
460 ((and ebnf-eps-executing (= (following-char) ?\])) 460 ((and ebnf-eps-executing (= (following-char) ?\]))
461 (ebnf-eps-remove-context (ebnf-yac-eps-filename))) 461 (ebnf-eps-remove-context (ebnf-yac-eps-filename)))
462 ;; EPS header
463 ((and ebnf-eps-executing (= (following-char) ?H))
464 (ebnf-eps-header-comment (ebnf-yac-eps-filename)))
465 ;; EPS footer
466 ((and ebnf-eps-executing (= (following-char) ?F))
467 (ebnf-eps-footer-comment (ebnf-yac-eps-filename)))
462 ;; any other action in comment 468 ;; any other action in comment
463 (t 469 (t
464 (setq ebnf-action (aref ebnf-comment-table (following-char)))) 470 (setq ebnf-action (aref ebnf-comment-table (following-char))))
465 ) 471 )
466 (let ((not-end t)) 472 (let ((not-end t))