branch: elpa/smartparens
commit 401ce3e3fbf707ba8ace6d325acc3259343164e5
Author: Richard Adenling <dre...@gmail.com>
Commit: Richard Adenling <dre...@gmail.com>
Use feature-symbols to find functions for the cheat-sheet
It previously parsed the contents of load-history which made it
sensitive to changes to what's in load-history. This fix uses
feature-symbols instead (which uses load-history internally) which
should be more stable than relying on load-history directly.
---
smartparens.el | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/smartparens.el b/smartparens.el
index eae39bdf78..607619c6eb 100644
--- a/smartparens.el
+++ b/smartparens.el
@@ -57,6 +57,7 @@
(require 'dash)
(require 'thingatpt)
(require 'help-mode) ;; for help-xref-following #85
+(require 'loadhist)
(declare-function cua-replace-region "cua-base") ; FIXME: remove this when we
drop support for old emacs
(declare-function cua-delete-region "cua-base")
@@ -129,12 +130,8 @@ better orientation."
sp-use-paredit-bindings
sp-use-smartparens-bindings
))
- (commands (cl-loop for i in (cdr
- (assoc-string
- (file-truename (locate-library
"smartparens"))
- (--map (cons (file-truename (car it))
(cdr it))
- load-history)))
- if (and (consp i) (eq (car i) 'defun) (commandp
(cdr i)))
+ (commands (cl-loop for i in (cdr (feature-symbols 'smartparens))
+ if (and (eq (car-safe i) 'defun) (commandp (cdr i)))
collect (cdr i))))
(with-current-buffer (get-buffer-create "*Smartparens cheat sheet*")
(let ((standard-output (current-buffer))
