;自动加载用户文件夹lsp文件

(vl-catch-all-apply
  '(lambda ( / nn f1 path)
       (setq path (strcat mai_mini_path "用户设置\\" mai_current_user "\\"))
       (setq nn (append (mai_dos_dir path "autoload*.lsp")
                        (mai_dos_dir path "autoload*.vlx")
                        (mai_dos_dir path "autoload*.fas")
                )
       )
       (foreach f1 nn (vl-catch-all-apply 'load (list (strcat path f1))))
   )
)

