ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ox-koma-letter: Fixed bug in filling 'location' field 

* contrib/lisp/ox-koma-letter.el: Fix code apparently introduced
  in 3ee3663
This commit is contained in:
Myles English 2016-04-04 01:11:19 +01:00 committed by Rasmus
parent 4bc07758a5
commit a0e942544c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
contrib/lisp/ox-koma-letter.el
View File

@ -797,12 +797,12 @@ a communication channel."
(location-set (funcall check-scope 'location))
(location (plist-get info :location)))
(when (or (and with-location-set (or location-set heading-val))
(and (eq scope 'buffer) (or with-location-set location-set heading-val))
(format "\\setkomavar{location}{%s}\n"
(if (plist-get info :with-location)
(if (plist-get info :special-headings) (or heading-val location "")
(or option location ""))
"")))))
(and (eq scope 'buffer) (or with-location-set location-set heading-val)))
(format "\\setkomavar{location}{%s}\n"
(if (plist-get info :with-location)
(if (plist-get info :special-headings) (or heading-val location "")
(or heading-val location ""))
""))))
;; Folding marks.
(and (funcall check-scope 'with-foldmarks)
(let ((foldmarks (plist-get info :with-foldmarks)))