Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-spelling.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!\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 `erc-spelling-mode' command\nfor 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) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-spelling-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 953) (list (or current-prefix-arg 'toggle))])
(defvar erc-spelling-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [erc-spelling-mode-map erc-spelling-mode-hook variable-documentation put "Hook run after entering or leaving `erc-spelling-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" 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 (#$ . 2346) 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 (#$ . 2683) 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) "rq\210\306 \227 \n\203> \n\203\" \n@@\227\230\204\" \nA\211\204 \n\203- \n@A@\202= \307 \310\f!\205< r\fq\210
))*\311\f\312\313!)\207" [buffer erc-spelling-dictionaries dicts name #1=#:buffer ispell-local-dictionary buffer-name erc-server-buffer buffer-live-p erc-spelling-flyspell-verify flyspell-mode 1 flyspell-generic-check-word-predicate] 3 (#$ . 3712)])
#@81 Unhighlight the given WORD.
The cadr is the beginning and the caddr is the end.
(defalias 'erc-spelling-unhighlight-word #[(word) "A@\3038\304\n!\210 \nV\205 \304 S!*\207" [word end beg 2 flyspell-unhighlight-at] 3 (#$ . 4206)])
#@45 Flyspell only the input line, nothing else.
(defalias 'erc-spelling-flyspell-verify #[nil "\304\300!\205 \211\205C `\nW\203 \305\202C \203, \306\307 @! \"\203, \310 !\210\305\202C A@\2063 `Sf\311=\203B \310 !\210\305\202C \312)\207" [flyspell-word word-data erc-input-marker erc-channel-users boundp nil gethash erc-downcase erc-spelling-unhighlight-word 47 t] 4 (#$ . 4446)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put erc-mode flyspell-mode-predicate erc-spelling-flyspell-verify provide erc-spelling] 4)
Mini Shell