[elpa] externals/org-modern 4071382aa0 03/65: Restore line spacing (Fix #1)

[ELPA Syncer]

branch: externals/org-modern
commit 4071382aa09d5a1484e8be69a2a485e445ef70e7
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Restore line spacing (Fix #1)
---
 org-modern.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/org-modern.el b/org-modern.el
index f2fa4d2efd..50905de28c 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -204,6 +204,9 @@ Set to nil to disable the progress bar."
 (defvar-local org-modern--keywords nil
   "List of font lock keywords.")
 
+(defvar-local org-modern--orig-line-spacing 'unset
+  "Original line spacing.")
+
 (defun org-modern--priority ()
   "Prettify headline priorities using the `org-modern-priority' character."
   (let ((beg (match-beginning 1))
@@ -368,6 +371,9 @@ Set to nil to disable the progress bar."
   "Modern looks for Org."
   :global nil
   :group 'org-modern
+  (unless (eq org-modern--orig-line-spacing 'unset)
+    (setq line-spacing org-modern--orig-line-spacing
+          org-modern--orig-line-spacing 'unset))
   (cond
    (org-modern-mode
     (when-let (width (plist-get (face-attribute 'org-modern-label :box) 
:line-width))
@@ -375,6 +381,7 @@ Set to nil to disable the progress bar."
        'org-modern-label nil
        :box `(:color ,(face-attribute 'default :background nil t) :line-width 
,width)))
     (setq
+     org-modern--orig-line-spacing line-spacing
      line-spacing org-modern-line-spacing
      org-modern--keywords
      (append