branch: externals/fontaine
commit a8fb21fe071e11ac9e88d0390add3fce8ef71139
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@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)))
