0 Members and 1 Guest are viewing this topic.
(setq lstttf (vl-registry-descendents "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts" ""))
("AMGDT (TrueType)" "AmdtSymbols (TrueType)" "AIGDT (TrueType)"......)
(foreach n lstttf (setq eet (vl-string-right-trim " \(TrueType)" n)) (setq lstttf1 (append lstttf1 (list eet))))
("AMGD" "AmdtSymbols" "AIGD" .......)
(setq lstttf (vl-registry-descendents "HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Fonts" ""))(setq lstttf (mapcar '(lambda (x) (vl-string-subst "" " (TrueType)" x) ) lstttf))