;ELC   
;;; Compiled by proclus@darwintel on Tue Jan  1 13:53:25 2008
;;; from file /mnt/gmirror/ports/databases/bbdb/work/bbdb-2.34/lisp/bbdb-xemacs.el
;;; in Emacs version 21.2.1
;;; with bytecomp version 1.1.1.4
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`bbdb-xemacs.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302\"\204 \303\304!\210\305\306!\210\305\307!\210\305\310!\207" [emacs-version string-match "XEmacs\\|Lucid" error "This file only works in XEmacs." require bbdb bbdb-com bbdb-gui] 3)
#@250 Wrapper for `display-completion-list'.
Allows callbacks on XEmacs `display-completion-list' is called with
`:activate-callback CALLBACK' if CALLBACK is non-nil.
`:user-data DATA' is also used if DATA is non-nil.
Neither are used if CALLBACK is nil.
(defalias 'bbdb-xemacs-display-completion-list #[(list &optional callback data) "\203 	\203 \303\n\304\305	%\207\203 \303\n\304#\207\303\n!\207" [callback data list display-completion-list :activate-callback :user-data] 6 (#$ . 843)])
#@71 The directory to load the touchtone sound files from, or nil if none.
(custom-declare-variable 'bbdb-sounds-directory '(expand-file-name "~/.xemacs/etc/sounds") '(#$ . 1340) :group 'bbdb-phone-dialing :type 'directory)
#@28 Volume for playing sounds.
(custom-declare-variable 'bbdb-sound-volume '50 '(#$ . 1565) :group 'bbdb-phone-dialing :type 'integer)
#@244 Load the touchtone sounds into `sound-alist'.
The directory specified in `bbdb-sounds-directory' is searched for the files
touchtone.*\.\(wav\|au\) as named in `bbdb-sound-files'.
They are stored in `sound-alist' as touchtone0 to touchtone11.
(defalias 'bbdb-load-touchtones #[nil "\303\304\303\305\306\217\210	\204 \307\310!\210\311\312!\2022 	\2052 \313	@\314\315\316\317\"P!\n#\210	AT\202 *\207" [nr files bbdb-sound-volume nil 0 (byte-code "\303\304	\203 \305\306\307\310	\"\"\203 \311\202 \312#\303\207" [bbdb-sounds-directory system-type files directory-files t string-match "windows" format "%s" "touchtone.*\\.wav" "touchtone.*\\.au"] 8) ((error (byte-code "\301\302!\210\303\303\207" [files bbdb-warn "Cannot find any touchtone sounds" nil] 2))) message "No touchtone files found in `bbdb-sound-directory'!" sit-for 2 load-sound-file intern "touchtone" format "%d"] 7 (#$ . 1703) nil])
(byte-code "\203 \301!\203 \302\303!\203 \304\305!\203 \306 \210\307\310!\207" [bbdb-sounds-directory file-directory-p boundp xemacsp featurep native-sound bbdb-load-touchtones provide bbdb-xemacs] 2)