summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-11-05 23:40:53 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-11-05 23:40:53 +0100
commit9d3d95b6e548d313c64296e809c0ea3e5b51a6a1 (patch)
tree99e02054fe117b07ed630906e985174d1fabf851
parent0edad6725a05e1a65fb1f47ba763dd5de08dffb3 (diff)
downloadorg-mode-9d3d95b6e548d313c64296e809c0ea3e5b51a6a1.tar.gz
ox-org: Use lexical binding
* lisp/ox-org.el (org-org-identity): (org-org-keyword): (org-org-link): Silence byte-compiler.
-rw-r--r--lisp/ox-org.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ox-org.el b/lisp/ox-org.el
index 5b93104..299d6f3 100644
--- a/lisp/ox-org.el
+++ b/lisp/ox-org.el
@@ -1,4 +1,4 @@
-;;; ox-org.el --- Org Back-End for Org Export Engine
+;;; ox-org.el --- Org Back-End for Org Export Engine -*- lexical-binding: t; -*-
;; Copyright (C) 2013-2015 Free Software Foundation, Inc.
@@ -26,6 +26,7 @@
(require 'ox)
(declare-function htmlize-buffer "htmlize" (&optional buffer))
+(defvar htmlize-output-type)
(defgroup org-export-org nil
"Options for exporting Org mode files to Org."
@@ -109,7 +110,7 @@ setting of `org-html-htmlize-output-type' is `css'."
(if a (org-org-export-to-org t s v b)
(org-open-file (org-org-export-to-org nil s v b))))))))
-(defun org-org-identity (blob contents info)
+(defun org-org-identity (blob contents _info)
"Transcode BLOB element or object back into Org syntax.
CONTENTS is its contents, as a string or nil. INFO is ignored."
(let ((case-fold-search t))
@@ -131,7 +132,7 @@ CONTENTS is its contents, as a string or nil. INFO is ignored."
(org-export-get-relative-level headline info))
(org-element-headline-interpreter headline contents)))
-(defun org-org-keyword (keyword contents info)
+(defun org-org-keyword (keyword _contents _info)
"Transcode KEYWORD element back into Org syntax.
CONTENTS is nil. INFO is ignored."
(let ((key (org-element-property :key keyword)))
@@ -139,7 +140,7 @@ CONTENTS is nil. INFO is ignored."
'("AUTHOR" "CREATOR" "DATE" "EMAIL" "OPTIONS" "TITLE"))
(org-element-keyword-interpreter keyword nil))))
-(defun org-org-link (link contents info)
+(defun org-org-link (link contents _info)
"Transcode LINK object back into Org syntax.
CONTENTS is the description of the link, as a string, or nil.
INFO is a plist containing current export state."