;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@32 (fn STRING &rest PROPERTIES) (defalias 'emms-propertize #[385 "\300\301!\203\f\302\301#\207\303\304G$\210\207" [fboundp propertize apply set-text-properties 0] 7 (#$ . 87)]) #@291 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. (fn OLD-NAME NEW-NAME WHEN) (defalias 'emms-make-obsolete #[771 "\300#\207" [make-obsolete] 7 (#$ . 277)]) #@37 Cancel the given TIMER. (fn TIMER) (defalias 'emms-cancel-timer #[257 "\211\205\300\301!\203\301!\207\300\302!\205\302!\207" [fboundp cancel-timer delete-itimer] 3 (#$ . 655)]) #@55 Say whether time T1 is less than time T2. (fn T1 T2) (defalias 'emms-time-less-p #[514 "@@W\206@@U\205A@A@W\207" [] 4 (#$ . 847)]) #@25 Activate highline mode. (defalias 'emms-activate-highlighting-mode #[0 "\300\301!\210\302\303!\207" [require hl-line hl-line-mode 1] 2 (#$ . 995)]) #@87 Highlight the current line. You must call emms-activate-highlighting-mode beforehand. (defalias 'emms-line-highlight #[0 "\300 \207" [hl-line-highlight] 1 (#$ . 1149)]) #@175 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. (fn ARG) (defalias 'emms-move-beginning-of-line #[257 "\300\301!\203\n\301!\207\211\247\203\211Sy\207\302y\207" [fboundp move-beginning-of-line 0] 3 (#$ . 1325)]) #@119 Return (narrowed) buffer line number at position POS. If POS is nil, use current buffer location. (fn &optional POS) (defalias 'emms-line-number-at-pos #[256 "\300\301!\203\n\301!\207\211\206`\302\212eb\210`\262b\210\303y\210\304`\"T)\207" [fboundp line-number-at-pos nil 0 count-lines] 6 (#$ . 1664)]) #@238 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. (fn REGEXP REPLACEMENT TEXT &optional FIXEDCASE LITERAL) (defalias 'emms-replace-regexp-in-string #[1283 "\300\301!\203\301%\207G\302\303 \304\305\"\216\306#\211\262\2039\\\262\307 $\262\202)\266\207" [fboundp replace-regexp-in-string nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match replace-match] 13 (#$ . 1982)]) #@29 (fn NUM &optional STRING) (defalias 'emms-match-string-no-properties #[513 "\300\301!\203 \301\"\207\302\"\207" [fboundp match-string-no-properties match-string] 5 (#$ . 2565)]) #@147 Remove all items satisfying PREDICATE in SEQ. This is a destructive function: it reuses the storage of SEQ whenever possible. (fn PREDICATE SEQ) (defalias 'emms-delete-if #[514 "@!\203\211A\211\262\204\211A\211\2032@!\203':\205%A\241\210A\262A\262\202\266\207" [] 6 (#$ . 2757)]) #@117 Find the first item satisfying PREDICATE in SEQ. Return the matching item, or nil if not found. (fn PREDICATE SEQ) (defalias 'emms-find-if #[514 "\3002 \211\211\205\211@!\203\301\300\"\210A\266\202\202\2620\207" [found throw] 7 (#$ . 3068)]) #@168 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. (fn PREDICATE SEQ) (defalias 'emms-remove-if-not #[514 "\300\211\203\211@!\203\211B\262A\266\202\202\210\211\237\207" [nil] 7 (#$ . 3330)]) (provide 'emms-compat)