WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/erc
Viewing File: /usr/share/emacs/24.3/lisp/erc/erc-spelling.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:02 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-spelling.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!\210\303\304\305\306\307\310\311\312\313\314\315\316&\207" [require erc flyspell custom-declare-variable erc-spelling-mode nil "Non-nil if Erc-Spelling mode is enabled.\nSee the command `erc-spelling-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-spelling-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group erc-spelling :type boolean] 12)
#@218 Toggle ERC spelling mode.
With a prefix argument ARG, enable spelling if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
Enable flyspell mode in ERC buffers.
(defalias 'erc-spelling-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\211\203\307 \210\202!\310 \210\311\312\n\203+\313\202,\314\"\210\315\316!\203Q\317\302!\210\303 \203D\303 \232\203Q\320\321\n\203N\322\202O\323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-spelling-mode current-message toggle prefix-numeric-value 0 erc-spelling-enable erc-spelling-disable run-hooks erc-spelling-mode-hook erc-spelling-mode-on-hook erc-spelling-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Spelling mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 1103) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [erc-spelling-mode-map add-minor-mode erc-spelling-mode nil boundp] 6)
#@27 Enable ERC spelling mode.
(defalias 'erc-spelling-enable #[nil "\303\304\305\"\210\306\307\310\311\"\210\312 \313\211\205$\n@\311	!\210\nA\211\204\313*\207" [erc-spelling-mode buffer --dolist-tail-- add-to-list erc-modules spelling t add-hook erc-connect-pre-hook erc-spelling-init erc-buffer-list nil] 4 (#$ . 2108) nil])
#@28 Disable ERC spelling mode.
(defalias 'erc-spelling-disable #[nil "\304\305\"\306\307\310\311\"\210\312 \306\211\205)@r\nq\210\313\314!\210)A\211\204\306*\207" [erc-modules erc-spelling-mode buffer --dolist-tail-- delq spelling nil remove-hook erc-connect-pre-hook erc-spelling-init erc-buffer-list flyspell-mode 0] 4 (#$ . 2445) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307\310\311\312\313\314\315&\207" [put erc-spelling-mode definition-name spelling erc-spelling-enable erc-spelling-disable custom-declare-variable erc-spelling-dictionaries nil "An alist mapping buffer names to dictionaries.\nThe `car' of every cell is a buffer name, the `cadr' is the\nstring name of an associated dictionary.\nThe dictionary is inherited from server buffers, so if you want a\ndefault dictionary for some server, you can use a server buffer\nname here." :type (choice (const nil) (repeat (cons (string :tag "Buffer name") (string :tag "Dictionary")))) :group erc-spelling] 8)
#@79 Enable flyspell mode in an ERC buffer.
The current buffer is given by BUFFER.
(defalias 'erc-spelling-init #[(buffer) "rq\210\306 \227	\n\203F\n\203%\n\211@@)\227\230\204%\nA\211\204\n\2033\n@\211A@)\202D\307 \310
!\205Cr
q\210\f))\f*\311
\312\313!)\207" [buffer erc-spelling-dictionaries dicts name x #1=#:buffer buffer-name erc-server-buffer buffer-live-p erc-spelling-flyspell-verify flyspell-mode 1 ispell-local-dictionary flyspell-generic-check-word-p] 3 (#$ . 3474)])
#@81 Unhighlight the given WORD.
The cadr is the beginning and the caddr is the end.
(defalias 'erc-spelling-unhighlight-word #[(word) "A@\3038\304\n!\210	\nV\205\304	S!*\207" [word end beg 2 flyspell-unhighlight-at] 3 (#$ . 3973)])
#@45 Flyspell only the input line, nothing else.
(defalias 'erc-spelling-flyspell-verify #[nil "\305\300!\205\211\205B`\nW\203\306\202B\203/	@\307\310\f!\")\203/\311	!\210\306\202B	A@Sf\312=\203A\311	!\210\306\202B\313)\207" [flyspell-word word-data erc-input-marker erc-channel-users nick boundp nil gethash erc-downcase erc-spelling-unhighlight-word 47 t] 4 (#$ . 4213)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put erc-mode flyspell-mode-predicate erc-spelling-flyspell-verify provide erc-spelling] 4)
F1l3 Manager
