From eb37142b14fba90e492ef910026bcadfa5b0aa9b Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 8 Jul 2013 22:26:31 +0200 Subject: [PATCH] ox-html: Fix number of arguments when setting `org-html-format-headline-function' * lisp/ox-html.el (org-html-format-headline--wrap): Fix number of arguments when setting `org-html-format-headline-function'. Thanks to Jisang Yoo for reporting it. --- lisp/ox-html.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index c0509ff0a..8794882b8 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -2109,15 +2109,13 @@ holding contextual information." (headline-label (or (org-element-property :CUSTOM_ID headline) (concat "sec-" (mapconcat 'number-to-string headline-number "-")))) - (format-function (cond - ((functionp format-function) format-function) - ((functionp org-html-format-headline-function) - (function* - (lambda (todo todo-type priority text tags - &allow-other-keys) - (funcall org-html-format-headline-function - todo todo-type priority text tags)))) - (t 'org-html-format-headline)))) + (format-function + (cond ((functionp format-function) format-function) + ((functionp org-html-format-headline-function) + (lambda (todo todo-type priority text tags &rest ignore) + (funcall org-html-format-headline-function + todo todo-type priority text tags))) + (t 'org-html-format-headline)))) (apply format-function todo todo-type priority text tags :headline-label headline-label :level level -- 2.11.4.GIT