JezK
Edit File: erc-imenu.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:55:22 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-imenu.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require erc imenu] 2) #@108 Return text from point to a computed end as a string unfilled. Don't rely on this function, read it first! (defalias 'erc-unfill-notice #[nil "\212\303\304!!)\212\305y\210\306\307!)\203 \305y\210\202 \310\210`{\311\312!r\nq\210\313\216 c\210eb\210\303\314\310\315#\203= \316\317!\210\202. ed{,\207" [erc-notice-prefix str #1=#:temp-buffer re-search-forward regexp-quote 1 looking-at " " nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "\n +" t replace-match " "] 4 (#$ . 620)]) (defalias 'erc-create-imenu-index #[nil "\306\211\211\211\211\211\211\211\211 \" # $db\210n\203# \307y\307V\202' \310y\210\311\203\360 \312 %\313\216\314\315&!\316P!\203\321 \212\317 )` '\211 ('B#B#\320\321(\"\203f \322\323(\"'B\"B\211\"\204\320 \320\324(\"\203} \322\323(\"'B B\211\204\320 \320\325(\"\203\231 \322\323(\"\322\326(\"P`B\fB\211\204\320 \320\327(\"\203\266 \322\323(\"\330\322\326(\"Q`B\nB\211\204\320 \320\331(\"\203\320 \322\323(\"\330\322\326(\"Q'B B*\314\332!\203\354 \322\323!\322\326! )\211 *\330)Q`B B**\202 #\203\376 \333#B$B$\"\203\f\334\"B$B$ \203\335 B$B$\f\203$\336\fB$B$\n\2030\337\nB$B$ \203<\340 B$B$ \203H\341 B$B$$. \207" [prev-pos topic-change-alist mode-change-alist message-alist quit-alist left-alist nil -1 0 t match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at regexp-quote "\\(.+\\)$" erc-unfill-notice string-match "^\\(.*\\) has joined channel" match-string 1 "^\\(.+\\) has left channel" "^\\(.+\\) has quit\\(.*\\)$" 2 "^\\(\\S-+\\) (.+) has changed mode for \\S-+ to \\(.*\\)$" ": " "^\\(\\S-+\\) (.+) has set the topic for \\S-+: \\(.*\\)$" "<\\(\\S-+\\)> \\(.+\\)$" "notices" "joined" "parted" "quit" "mode-change" "messages" "topic-change" join-alist notice-alist index-alist save-match-data-internal erc-notice-prefix pos notice-text message-text from] 10]) (provide 'erc-imenu)