mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-24 07:20:29 +00:00
Code

check html-link-home exists before triming

Browse Source 
Ensure that the :html-link-home property exists before passing it to
  `org-trim' which assumes it's argument is a string.
This commit is contained in:
Eric Schulte 2013-07-29 15:19:22 -06:00 committed by Bastien Guerry
parent 99a8d97ffa
commit db9f11a860
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ox-html.el
View File

@ -2598,7 +2598,8 @@ images, set it to:
DESC is the description part of the link, or the empty string. DESC is the description part of the link, or the empty string.
INFO is a plist holding contextual information. See INFO is a plist holding contextual information. See
`org-export-data'." `org-export-data'."
(let* ((home (org-trim (plist-get info :html-link-home))) (let* ((home (when (plist-get info :html-link-home)
(org-trim (plist-get info :html-link-home))))
(use-abs-url (plist-get info :html-link-use-abs-url)) (use-abs-url (plist-get info :html-link-use-abs-url))
(link-org-files-as-html-maybe (link-org-files-as-html-maybe
(function (function