diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-11-10 18:14:46 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-11-10 18:14:46 +0100 |
commit | c993007eb6369a11497582ff946d95a33b14e2f2 (patch) | |
tree | 6df836421df4ef1e36bd60e9947c0cf31f158b21 | |
parent | 6c1f63b6a6af46dc2c6c5a1df14c99f637c1bbd1 (diff) | |
download | org-mode-c993007eb6369a11497582ff946d95a33b14e2f2.tar.gz |
ox-publish: Fix publishing bug
* lisp/ox-publish.el (org-publish--collect-references): Ignore
non-element.
-rw-r--r-- | lisp/ox-publish.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ox-publish.el b/lisp/ox-publish.el index 4edfd65..c7da953 100644 --- a/lisp/ox-publish.el +++ b/lisp/ox-publish.el @@ -1060,7 +1060,7 @@ publishing directory." ;; links, where "file.org" belongs to the current project. (defun org-publish--collect-references (output _backend info) - "Store headlines references for current published file. + "Store references for current published file. OUPUT is the produced output, as a string. BACKEND is the export back-end used, as a symbol. INFO is the final export state, as @@ -1086,7 +1086,7 @@ References are stored as an alist ((TYPE SEARCH) . VALUE) where VALUE is an internal reference used in the document, as a string. -This function is meant to be used as a final out filter. See +This function is meant to be used as a final output filter. See `org-publish-org-to'." (org-publish-cache-set-file-property (plist-get info :input-file) :references @@ -1095,6 +1095,7 @@ This function is meant to be used as a final out filter. See (maphash (lambda (k v) (pcase (org-element-type k) + (`nil nil) ((or `headline `inlinetask) (push (cons (cons 'headline @@ -1106,8 +1107,7 @@ This function is meant to be used as a final out filter. See refs) (let ((custom-id (org-element-property :CUSTOM_ID k))) (when custom-id - (push (cons (cons 'custom-id custom-id) v) - refs)))) + (push (cons (cons 'custom-id custom-id) v) refs)))) ((or `radio-target `target) (push (cons (cons 'target |