Browse Source

ob-ebnf: Fix copyright and style

* lisp/ob-ebnf.el (org-babel-execute:ebnf): Fix style.
Nicolas Goaziou 11 years ago
parent
commit
dc00c4afe6
1 changed files with 10 additions and 12 deletions
  1. 10 12
      lisp/ob-ebnf.el

+ 10 - 12
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