diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-10-29 15:18:24 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-10-29 15:18:24 +0100 |
commit | dc00c4afe6e610dd07aade515cc3956532517738 (patch) | |
tree | fc43edf7bf7207b54f80cbec30b727122aa5d0f0 | |
parent | 0be044736c312ad6bff65215f2a9020d2ad42cb1 (diff) | |
download | org-mode-dc00c4afe6e610dd07aade515cc3956532517738.tar.gz |
ob-ebnf: Fix copyright and style
* lisp/ob-ebnf.el (org-babel-execute:ebnf): Fix style.
-rw-r--r-- | lisp/ob-ebnf.el | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/lisp/ob-ebnf.el b/lisp/ob-ebnf.el index 10ec1b2..8c98d30 100644 --- a/lisp/ob-ebnf.el +++ b/lisp/ob-ebnf.el @@ -1,6 +1,6 @@ ;;; ob-ebnf.el --- org-babel functions for ebnf evaluation -;; Copyright (C) your name here +;; Copyright (C) 2013 Free Software Foundation, Inc. ;; Author: Michael Gauland ;; Keywords: literate programming, reproducible research @@ -36,7 +36,7 @@ ;;; ;;; :style specifies a value in ebnf-style-database. This provides the ;;; ability to customise the output. The style can also specify the -;;; gramnmar syntax (by setting ebnf-syntax); note that only ebnf, +;;; grammar syntax (by setting ebnf-syntax); note that only ebnf, ;;; iso-ebnf, and yacc are supported by this file. ;;; Requirements: @@ -64,14 +64,13 @@ called by `org-babel-execute-src-block'" (result nil)) (with-temp-buffer (when style (ebnf-push-style style)) - (let - ((comment-format - (cond ((string= ebnf-syntax 'yacc) "/*%s*/") - ((string= ebnf-syntax 'ebnf) ";%s") - ((string= ebnf-syntax 'iso-ebnf) "(*%s*)") - (t (setq result - (format "EBNF error: format %s not supported." - ebnf-syntax)))))) + (let ((comment-format + (cond ((string= ebnf-syntax 'yacc) "/*%s*/") + ((string= ebnf-syntax 'ebnf) ";%s") + ((string= ebnf-syntax 'iso-ebnf) "(*%s*)") + (t (setq result + (format "EBNF error: format %s not supported." + ebnf-syntax)))))) (setq ebnf-eps-prefix dest-dir) (insert (format comment-format (format "[%s" dest-root))) (newline) @@ -80,8 +79,7 @@ called by `org-babel-execute-src-block'" (insert (format comment-format (format "]%s" dest-root))) (ebnf-eps-buffer) (when style (ebnf-pop-style)))) - result - ))) + result))) (provide 'ob-ebnf) ;;; ob-ebnf.el ends here |