>From 2d9b513e14f6d34fe81a5970fd4cee24fc253a31 Mon Sep 17 00:00:00 2001 From: Myles English Date: Mon, 4 Apr 2016 01:11:19 +0100 Subject: [PATCH] ox-koma-letter: Fixed bug in filling 'location' field * contrib/lisp/ox-koma-letter.el: Fix code apparently introduced in 3ee3663 --- contrib/lisp/ox-koma-letter.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/contrib/lisp/ox-koma-letter.el b/contrib/lisp/ox-koma-letter.el index d36e817..2ef9025 100644 --- a/contrib/lisp/ox-koma-letter.el +++ b/contrib/lisp/ox-koma-letter.el @@ -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))) -- 2.7.4