Mercurial > hg > xemacs-beta

comparison lisp/sound.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents c5d627a313b1
children 6cb5e14cd98e
comparison
equal deleted inserted replaced
287:13a0bd77a29d 288:e11d67e05968
81 (group :inline t 81 (group :inline t
82 (const :format "" :value :duration) 82 (const :format "" :value :duration)
83 (integer :tag "Duration")))))) 83 (integer :tag "Duration"))))))
84 84
85 (defcustom sound-load-alist 85 (defcustom sound-load-alist
86 '((load-sound-file "drum-beep.au" 'drum) 86 '((load-sound-file "drum-beep" 'drum)
87 (load-sound-file "quiet-beep.au" 'quiet) 87 (load-sound-file "quiet-beep" 'quiet)
88 (load-sound-file "bass-snap.au" 'bass 80) 88 (load-sound-file "bass-snap" 'bass 80)
89 (load-sound-file "whip.au" 'whip 70) 89 (load-sound-file "whip" 'whip 70)
90 (load-sound-file "cuckoo.au" 'cuckoo) 90 (load-sound-file "cuckoo" 'cuckoo)
91 (load-sound-file "yeep.au" 'yeep) 91 (load-sound-file "yeep" 'yeep)
92 (load-sound-file "hype.au" 'hype 100) 92 (load-sound-file "hype" 'hype 100)
93 ) 93 )
94 "A list of calls to load-sound-file to be processed by load-default-sounds. 94 "A list of calls to load-sound-file to be processed by load-default-sounds.
95 95
96 Reference load-sound-file for more information." 96 Reference load-sound-file for more information."
97 97
98 :group 'sound 98 :group 'sound
99 :type '(repeat (sexp :tag "Sound") 99 :type '(repeat (sexp :tag "Sound")
100 )) 100 ))
101 101
102 (defcustom default-sound-directory (file-name-as-directory 102 (defcustom default-sound-directory (locate-data-directory "sounds")
103 (concat data-directory "sounds"))
104 "Default directory to load a sound file from." 103 "Default directory to load a sound file from."
105 :group 'sound 104 :group 'sound
106 :type 'directory 105 :type 'directory
107 ) 106 )
108 107
109 (defcustom sound-ext "" 108 (defcustom sound-ext (if (or (eq system-type 'cygwin32)
109 (eq system-type 'windows-nt))
110 ".wav" ".au")
110 "Filename extensions to complete sound file name with. If more than one 111 "Filename extensions to complete sound file name with. If more than one
111 extension is used, they should be separated by \":\". " 112 extension is used, they should be separated by \":\". "
112 :group 'sound 113 :group 'sound
113 :type 'string) 114 :type 'string)
114 115
115 (defcustom default-sound-directory-list ( list default-sound-directory ) 116 (defcustom default-sound-directory-list ( list default-sound-directory )
117
116 "List of directories which to search for sound files" 118 "List of directories which to search for sound files"
117 :group 'sound 119 :group 'sound
118 :type '(repeat directory ) 120 :type '(repeat directory )
119 ) 121 )
120 122