Mercurial > emacs
changeset 54191:9e9c096c2efc
New funs.
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Sat, 28 Feb 2004 22:13:00 +0000 |
| parents | 6a7a401e1598 |
| children | 20bee085cbee |
| files | lisp/ChangeLog lisp/progmodes/ebnf2ps.el |
| diffstat | 2 files changed, 39 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Feb 28 21:37:17 2004 +0000 +++ b/lisp/ChangeLog Sat Feb 28 22:13:00 2004 +0000 @@ -12,6 +12,7 @@ (ebnf-repeat): Code fix. * ebnf2ps.el: Doc fix. + (ebnf-syntax-directory, ebnf-syntax-file): New funs. 2004-02-28 Juri Linkov <juri@jurta.org>
--- a/lisp/progmodes/ebnf2ps.el Sat Feb 28 21:37:17 2004 +0000 +++ b/lisp/progmodes/ebnf2ps.el Sat Feb 28 22:13:00 2004 +0000 @@ -5,7 +5,7 @@ ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> -;; Time-stamp: <2004/02/28 18:19:37 vinicius> +;; Time-stamp: <2004/02/28 19:06:58 vinicius> ;; Keywords: wp, ebnf, PostScript ;; Version: 4.0 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ @@ -517,6 +517,12 @@ ;; ;; `ebnf-setup' returns the current setup. ;; +;; `ebnf-syntax-directory' does a syntactic analysis of your EBNF files in the +;; given directory. +;; +;; `ebnf-syntax-file' does a syntactic analysis of your EBNF in the given +;; file. +;; ;; `ebnf-syntax-buffer' does a syntactic analysis of your EBNF in the current ;; buffer. ;; @@ -525,8 +531,9 @@ ;; ;; `ebnf-customize' activates a customization buffer for ebnf2ps options. ;; -;; `ebnf-syntax-buffer', `ebnf-syntax-region' and `ebnf-customize' can be bound -;; to keys in the same way as `ebnf-' commands. +;; `ebnf-syntax-directory', `ebnf-syntax-file', `ebnf-syntax-buffer', +;; `ebnf-syntax-region' and `ebnf-customize' can be bound to keys in the same +;; way as `ebnf-' commands. ;; ;; ;; Hooks @@ -2064,6 +2071,34 @@ ;;;###autoload +(defun ebnf-syntax-directory (&optional directory) + "Does a syntactic analysis of the files in DIRECTORY. + +If DIRECTORY is nil, it's used `default-directory'. + +The files in DIRECTORY that matches `ebnf-file-suffix-regexp' (which see) are +processed. + +See also `ebnf-syntax-buffer'." + (interactive + (list (read-file-name "Directory containing EBNF files (syntax): " + nil default-directory))) + (ebnf-directory 'ebnf-syntax-buffer directory)) + + +;;;###autoload +(defun ebnf-syntax-file (file &optional do-not-kill-buffer-when-done) + "Does a syntactic analysis of the FILE. + +If optional arg DO-NOT-KILL-BUFFER-WHEN-DONE is non-nil, the buffer isn't +killed after SYNTAX generation. + +See also `ebnf-syntax-buffer'." + (interactive "fEBNF file to check syntax: ") + (ebnf-file 'ebnf-syntax-buffer file do-not-kill-buffer-when-done)) + + +;;;###autoload (defun ebnf-syntax-buffer () "Does a syntactic analysis of the current buffer." (interactive)