From c52e2912b6991bc2a3233547ec8ee461273ffa1d Mon Sep 17 00:00:00 2001 From: "modula t. worm" Date: Mon, 21 Nov 2016 17:37:37 -0600 Subject: [PATCH] populate sclang-class-list --- el/sclang-language.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/el/sclang-language.el b/el/sclang-language.el index 2f03b32..e86bf7f 100644 --- a/el/sclang-language.el +++ b/el/sclang-language.el @@ -220,6 +220,10 @@ low-resource systems." (lambda (arg) (when (and sclang-use-symbol-table arg) (setq sclang-symbol-table (sort arg 'string<)) + (setq sclang-class-list (remove-if + (lambda (x) (or (not (sclang-class-name-p x)) + (sclang-string-match "^Meta_" x))) + sclang-symbol-table)) (sclang-update-font-lock)))) (add-hook 'sclang-library-startup-hook