;ELC   
;;; Compiled by heimdall@baldur on Fri Feb  1 18:34:48 2008
;;; from file /home/heimdall/repos/emms/emms-compat.el
;;; in Emacs version 23.0.60.1
;;; 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 "`emms-compat.el' was compiled for Emacs 19.29 or later"))

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


(defalias 'emms-propertize #[(string &rest properties) "\302\303!\203\f \304\303	#\207\305\306G	$\210\207" [string properties fboundp propertize apply set-text-properties 0] 5])
#@262 Make the byte-compiler warn that OLD-NAME is obsolete.
The warning will say that NEW-NAME should be used instead.
WHEN should be a string indicating when the function was
first made obsolete, either the file's revision number or an
EMMS release version number.
(defalias 'emms-make-obsolete #[(old-name new-name when) "\300\301\302\217\207" [nil (make-obsolete old-name new-name when) ((wrong-number-of-arguments (make-obsolete old-name new-name)))] 3 (#$ . 768)])
#@25 Cancel the given TIMER.
(defalias 'emms-cancel-timer #[(timer) "\205 \301\302!\203 \302!\207\301\303!\205 \303!\207" [timer fboundp cancel-timer delete-itimer] 2 (#$ . 1239)])
#@43 Say whether time T1 is less than time T2.
(defalias 'emms-time-less-p #[(t1 t2) "@	@W\206 @	@U\205 A@	A@W\207" [t1 t2] 2 (#$ . 1427)])
#@165 Move point to beginning of current line as displayed.
If there's an image in the line, this disregards newlines
which are part of the text that the image rests on.
(defalias 'emms-move-beginning-of-line #[(arg) "\301\302!\203\n \302!\207\247\203 Sy\207\303y\207" [arg fboundp move-beginning-of-line 0] 2 (#$ . 1574)])
#@99 Return (narrowed) buffer line number at position POS.
If POS is nil, use current buffer location.
(defalias 'emms-line-number-at-pos #[(&optional pos) "\303\304!\203\n \304!\207\206 `\305\212eb\210`\nb\210\306y\210\307	`\"T+\207" [pos start opoint fboundp line-number-at-pos nil 0 count-lines] 3 (#$ . 1902)])
#@180 Replace REGEXP with REPLACEMENT in TEXT.
If fourth arg FIXEDCASE is non-nil, do not alter case of replacement text.
If fifth arg LITERAL is non-nil, insert REPLACEMENT literally.
(defalias 'emms-replace-regexp-in-string #[(regexp replacement text &optional fixedcase literal) "\306\307!\203 \307	\n\f%\207	G\310\311 \312\216\313\n#\211\2033 \\\314	\f\n$\202 ,\n\207" [regexp replacement text fixedcase literal start fboundp replace-regexp-in-string nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) string-match replace-match repl-len save-match-data-internal] 6 (#$ . 2225)])
(defalias 'emms-match-string-no-properties #[(num &optional string) "\302\303!\203 \303	\"\207\304	\"\207" [num string fboundp match-string-no-properties match-string] 3])
#@127 Remove all items satisfying PREDICATE in SEQ.
This is a destructive function: it reuses the storage of SEQ
whenever possible.
(defalias 'emms-delete-if #[(predicate seq) "	@!\203 	A\211\204  	\211A\n\2032 \n@!\203( \n:\205& \nA\241\210A\211A\211\204 *	\207" [predicate seq next ptr] 3 (#$ . 3053)])
#@97 Find the first item satisfying PREDICATE in SEQ.
Return the matching item, or nil if not found.
(defalias 'emms-find-if #[(predicate seq) "\300\301\215\207" [found (byte-code "\304\211\205 \n@	!\203 \305\306	\"\210\nA\211\204 \304*\207" [seq el --dolist-tail-- predicate nil throw found] 4)] 2 (#$ . 3369)])
#@148 Remove all items not satisfying PREDICATE in SEQ.
This is a non-destructive function; it makes a copy of SEQ to
avoid corrupting the original SEQ.
(defalias 'emms-remove-if-not #[(predicate seq) "\305	\305\211\203 @\f\n!\203 \nBA\211\204\n *\237)\207" [newseq seq el --dolist-tail-- predicate nil] 3 (#$ . 3693)])
(provide 'emms-compat)