emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org-modern a5616ce742 2/4: Rename variable


From: ELPA Syncer
Subject: [elpa] externals/org-modern a5616ce742 2/4: Rename variable
Date: Sat, 25 Jun 2022 02:57:45 -0400 (EDT)

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

    Rename variable
---
 org-modern.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index 1b6b1a5424..0442032ec8 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -294,7 +294,7 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
     (t :strike-through "gray30"))
   "Face used for horizontal ruler.")
 
-(defvar-local org-modern--keywords nil
+(defvar-local org-modern--font-lock-keywords nil
   "List of font lock keywords.")
 
 (defun org-modern--checkbox ()
@@ -527,7 +527,7 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
           (vconcat (make-vector (- 127 h) #x80) [#xFF] (make-vector h 0)) nil 
nil 'bottom)))
     (org-modern--update-label-face)
     (setq
-     org-modern--keywords
+     org-modern--font-lock-keywords
      (append
       (when-let (bullet (alist-get ?+ org-modern-list))
         `(("^[ \t]*\\(+\\)[ \t]" 1 '(face nil display ,bullet))))
@@ -617,9 +617,9 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
       (when org-modern-statistics
         '((" \\[\\(\\([0-9]+\\)%\\|\\([0-9]+\\)/\\([0-9]+\\)\\)\\]"
            (0 (org-modern--statistics)))))))
-    (font-lock-add-keywords nil org-modern--keywords 'append)
+    (font-lock-add-keywords nil org-modern--font-lock-keywords 'append)
     (advice-add #'org-unfontify-region :after #'org-modern--unfontify))
-   (t (font-lock-remove-keywords nil org-modern--keywords)))
+   (t (font-lock-remove-keywords nil org-modern--font-lock-keywords)))
   (save-restriction
     (widen)
     (let ((org-modern-mode t))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]