From dc00c4afe6e610dd07aade515cc3956532517738 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 29 Oct 2013 15:18:24 +0100 Subject: [PATCH] ob-ebnf: Fix copyright and style * lisp/ob-ebnf.el (org-babel-execute:ebnf): Fix style. --- lisp/ob-ebnf.el | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/lisp/ob-ebnf.el b/lisp/ob-ebnf.el index 10ec1b2cd..8c98d305d 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 -- 2.11.4.GIT