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

(vl-catch-all-apply
	'(lambda ( / nn f1 path)
		(setq
			path (mai_fix_dir (strcat mai_mini_path "用户设置\\" mai_current_user "\\"))
			nn (append
					(mai_dos_dir path "*.lsp")
					(if (< mai_os_ver 2) (mai_dos_dir path "*.vlx"))
					(if (< mai_os_ver 2) (mai_dos_dir path "*.fas"))
					(if (< 1 mai_os_ver 5) (mai_dos_dir path "*.des"))
					(if (> mai_os_ver 4) (mai_dos_dir path "*.vls"))
					(if (> mai_os_ver 4) (mai_dos_dir path "*.zelx"))
				)
		)
		(foreach f1 nn (vl-catch-all-apply 'load (list (strcat path f1))))
	)
)

