summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2013-10-29 15:18:24 +0100
committerNicolas Goaziou <n.goaziou@gmail.com>2013-10-29 15:18:24 +0100
commitdc00c4afe6e610dd07aade515cc3956532517738 (patch)
treefc43edf7bf7207b54f80cbec30b727122aa5d0f0
parent0be044736c312ad6bff65215f2a9020d2ad42cb1 (diff)
downloadorg-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.el22
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