populate sclang-class-list

This commit is contained in:
modula t. worm 2016-11-21 17:37:37 -06:00
parent 16835a43e2
commit c52e2912b6

View file

@ -220,6 +220,10 @@ low-resource systems."
(lambda (arg) (lambda (arg)
(when (and sclang-use-symbol-table arg) (when (and sclang-use-symbol-table arg)
(setq sclang-symbol-table (sort arg 'string<)) (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)))) (sclang-update-font-lock))))
(add-hook 'sclang-library-startup-hook (add-hook 'sclang-library-startup-hook