From 93e53e169b2c38279eaa94e9835bc2b51b839165 Mon Sep 17 00:00:00 2001 From: shipmints Date: Mon, 16 Sep 2024 09:06:58 -0400 Subject: [PATCH] Make pulsar-resolve-function-aliases public. --- pulsar.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/pulsar.el b/pulsar.el index dae5d99..bc98355 100644 --- a/pulsar.el +++ b/pulsar.el @@ -485,7 +485,7 @@ This is a buffer-local mode. Also check `pulsar-global-mode'." (if pulsar-mode (progn (when pulsar-resolve-pulse-function-aliases - (pulsar--resolve-function-aliases)) + (pulsar-resolve-function-aliases)) (add-hook 'post-command-hook #'pulsar--post-command-pulse nil 'local)) (remove-hook 'post-command-hook #'pulsar--post-command-pulse 'local))) @@ -536,8 +536,14 @@ If FUNC is a function alias, return the function alias chain." (push sym aliases)))) aliases)) -(defun pulsar--resolve-function-aliases () - "Amend `pulsar-pulse-functions' to respect function aliases." +(defun pulsar-resolve-function-aliases () + "Amend `pulsar-pulse-functions' to respect function aliases. +This is called automatically when +`pulsar-resolve-pulse-function-aliases' is non-nil. + +You may also call this manually in your configuration after +setting `pulsar-pulse-functions'. In that case, you would prefer +`pulsar-resolve-pulse-function-aliases' to be nil." (setq pulsar-pulse-functions (seq-union pulsar-pulse-functions (seq-union (pulsar--find-fn-aliases pulsar-pulse-functions)