[elpa] externals/fontaine a8fb21fe07 1/2: Make fontaine-current-preset public

[ELPA Syncer]

branch: externals/fontaine
commit a8fb21fe071e11ac9e88d0390add3fce8ef71139
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make fontaine-current-preset public
---
 fontaine.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/fontaine.el b/fontaine.el
index 1cc153708c..dd9419cff5 100644
--- a/fontaine.el
+++ b/fontaine.el
@@ -469,8 +469,9 @@ ARGS are its routines."
 (defvar fontaine-set-preset-hook nil
   "Hook that runs after setting fonts.")
 
-(defvar fontaine--current-preset nil
-  "Current font set in `fontaine-presets'.")
+(defvar fontaine-current-preset nil
+  "Current font set in `fontaine-presets'.
+This is the preset last used by `fontaine-set-preset'.")
 
 ;;;###autoload
 (defun fontaine-set-preset (preset &optional frame)
@@ -501,7 +502,7 @@ non-nil."
     (fontaine--apply-variable-pitch-preset preset frame)
     (fontaine--apply-bold-preset preset frame)
     (fontaine--apply-italic-preset preset frame)
-    (setq fontaine--current-preset preset)
+    (setq fontaine-current-preset preset)
     (add-to-history 'fontaine--preset-history (format "%s" preset))
     (run-hooks 'fontaine-set-preset-hook)))