1d5ac70f0Sopenharmony_ci(setq snd_card_aliases_array 2d5ac70f0Sopenharmony_ci ( 3d5ac70f0Sopenharmony_ci ("YMF724" . "YMF744") 4d5ac70f0Sopenharmony_ci ("YMF724F" . "YMF744") 5d5ac70f0Sopenharmony_ci ("YMF740" . "YMF744") 6d5ac70f0Sopenharmony_ci ("YMF740C" . "YMF744") 7d5ac70f0Sopenharmony_ci ("YMF754" . "YMF744") 8d5ac70f0Sopenharmony_ci ("CMIPCI" . "CMI8338") 9d5ac70f0Sopenharmony_ci ("CMI8738" . "CMI8338") 10d5ac70f0Sopenharmony_ci ("CMI8738-MC4" . "CMI8738-MC6") 11d5ac70f0Sopenharmony_ci ("E-mu APS" . "EMU10K1") 12d5ac70f0Sopenharmony_ci ("GUS Max" . "GUS") 13d5ac70f0Sopenharmony_ci ("GUS ACE" . "GUS") 14d5ac70f0Sopenharmony_ci ("GUS Extreme" . "GUS") 15d5ac70f0Sopenharmony_ci ("AMD InterWave" . "GUS") 16d5ac70f0Sopenharmony_ci ("Dynasonic 3-D" . "GUS") 17d5ac70f0Sopenharmony_ci ("InterWave STB" . "GUS") 18d5ac70f0Sopenharmony_ci ) 19d5ac70f0Sopenharmony_ci) 20d5ac70f0Sopenharmony_ci 21d5ac70f0Sopenharmony_ci(defun snd_card_alias (cardname) 22d5ac70f0Sopenharmony_ci (setq r (assq cardname snd_card_aliases_array)) 23d5ac70f0Sopenharmony_ci (setq r (if (null r) cardname r)) 24d5ac70f0Sopenharmony_ci (unsetq r) 25d5ac70f0Sopenharmony_ci) 26d5ac70f0Sopenharmony_ci 27d5ac70f0Sopenharmony_ci(defun snd_card_alias_unset () 28d5ac70f0Sopenharmony_ci (unsetq snd_card_aliases_array snd_card_alias) 29d5ac70f0Sopenharmony_ci) 30