%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/erc/ |
Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-imenu.elc |
;ELC ;;; Compiled ;;; in Emacs version 27.2 ;;; 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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] "\n +" t replace-match " "] 4 (#$ . 472)]) (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`BB**\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<\340B$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 #[nil "\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)