zzkt/scel
1
0
Fork 0
Code Issues 7 Pull requests Projects Activity Actions

populate sclang-class-list

Browse source
This commit is contained in:
modula t. worm 2016-11-21 17:37:37 -06:00
parent 16835a43e2
commit c52e2912b6
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
el/sclang-language.el
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