From 748ed301718ade73f5c2aa1762379e7ed64c662a Mon Sep 17 00:00:00 2001 From: Lin Sun Date: Sat, 19 Nov 2022 00:00:25 +0000 Subject: [PATCH] core/core-dotspacemacs.el: speedup dotspacemacs/get-variable-string-list --- core/core-dotspacemacs.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/core/core-dotspacemacs.el b/core/core-dotspacemacs.el index e57f16c91..f1a58c38d 100644 --- a/core/core-dotspacemacs.el +++ b/core/core-dotspacemacs.el @@ -892,13 +892,11 @@ Called with `C-u C-u' skips `dotspacemacs/user-config' _and_ preliminary tests." (defun dotspacemacs/get-variable-string-list () "Return a list of all the dotspacemacs variables as strings." - (all-completions "" obarray + (all-completions "dotspacemacs" obarray (lambda (x) (and (boundp x) - (not (keywordp x)) ;; avoid private variables to show up - (not (string-match-p "--" (symbol-name x))) - (string-prefix-p "dotspacemacs" (symbol-name x)))))) + (not (string-match-p "--" (symbol-name x))))))) (defun dotspacemacs/get-variable-list () "Return a list of all dotspacemacs variable symbols."