From 849c8957c8142ec07ce1ec5476beac78f0157efb Mon Sep 17 00:00:00 2001 From: Kaushal Modi Date: Tue, 2 Oct 2018 00:31:44 -0400 Subject: [PATCH] Default sep to "" if nil --- ox-hugo.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/ox-hugo.el b/ox-hugo.el index 4fae66b..26928ef 100644 --- a/ox-hugo.el +++ b/ox-hugo.el @@ -1580,7 +1580,8 @@ If the property is present but empty, the return value is the empty string. If the property is not present at all, nil is returned. In any other case, return the value as a string. Search is case-insensitive." - (let ((value-no-concat (org-entry-get pom property :inherit))) + (let ((sep (or sep "")) + (value-no-concat (org-entry-get pom property :inherit))) ;; (message "[ox-hugo section concat DBG] value-no-concat: %S" value-no-concat) (if value-no-concat ;; Get the value of PROPERTY from the parent relative to @@ -1616,7 +1617,9 @@ and the concatenated \"EXPORT_HUGO_SECTION*\" values as a path. Else, return the \"HUGO_SECTION\" path. -The function always returns a string." +The function always returns a string. + +INFO is a plist used as a communication channel." (let* ((hugo-section-kwd (directory-file-name (plist-get info :hugo-section))) ;Remove trailing slash if any (hugo-section-frag-prop (org-entry-get nil "EXPORT_HUGO_SECTION*" :inherit))