org-export: Do not push empty strings to kill ring

* contrib/lisp/org-export.el (org-export-as): Do not push empty
  strings to kill ring.
This commit is contained in:
Nicolas Goaziou 2012-11-03 00:25:13 +01:00
parent 5d4243bccc
commit 3d1ae7b7f2
1 changed files with 4 additions and 2 deletions

View File

@ -2651,7 +2651,8 @@ Return code as a string."
info (org-export-collect-tree-properties tree info)))
;; Eventually transcode TREE. Wrap the resulting string into
;; a template, if required. Finally call final-output filter.
(let* ((body (org-element-normalize-string (org-export-data tree info)))
(let* ((body (org-element-normalize-string
(or (org-export-data tree info) "")))
(template (cdr (assq 'template
(plist-get info :translate-alist))))
(output (org-export-filter-apply-functions
@ -2660,7 +2661,8 @@ Return code as a string."
(funcall template body info))
info)))
;; Maybe add final OUTPUT to kill ring, then return it.
(when org-export-copy-to-kill-ring (org-kill-new output))
(when (and org-export-copy-to-kill-ring (org-string-nw-p output))
(org-kill-new output))
output)))))
(defun org-export-to-buffer