;ELC ;;; Compiled ;;; in Emacs version 27.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@51 A lot of debugging info will be shown if non nil. (custom-declare-variable 'debian-dict-common-debug nil '(#$ . 408) :type 'boolean :group 'ispell) #@274 Alist of Debian installed ispell dicts and properties. Its value will be used to set `ispell-dictionary-alist' after ispell.el is loaded when ispell is in use. Do not change this variable directly. It is autogenerated from data supplied by ispell dictionaries maintainers. (defvar debian-ispell-only-dictionary-alist nil (#$ . 563)) #@274 Alist of Debian installed aspell dicts and properties. Its value will be used to set `ispell-dictionary-alist' after ispell.el is loaded when aspell is in use. Do not change this variable directly. It is autogenerated from data supplied by aspell dictionaries maintainers. (defvar debian-aspell-only-dictionary-alist nil (#$ . 903)) #@280 Alist of Debian installed hunspell dicts and properties. Its value will be used to set `ispell-dictionary-alist' after ispell.el is loaded when hunspell is in use. Do not change this variable directly. It is autogenerated from data supplied by hunspell dictionaries maintainers. (defvar debian-hunspell-only-dictionary-alist nil (#$ . 1243)) #@104 List of registered ispell, aspell or hunspell dicts. Will be used to set the dictionaries pop-up menu. (defvar debian-ispell-valid-dictionary-list nil (#$ . 1592)) #@100 Obsolete function!!. Entries in ~/.emacs must be adapted to modify `ispell-local-dictionary-alist' (defalias 'debian-ispell-add-dictionary-entry #[(entry &optional name) "\300\301!\207" [message "`debian-ispell-add-dictionary-entry': Obsolete function!!.\nEntries in ~/.emacs must be adapted to modify `ispell-local-dictionary-alist'.\nSee dictionaries-common README.emacs"] 2 (#$ . 1763)]) #@62 Build startup menu, trying to not explicitely load ispell.el (defalias 'debian-ispell-build-startup-menu #[(mylist) "\305!\306\307! \310\211\203L\f@\211\311\230\203.\312\n\313\314!\315\316\317\310\320\321\311DFBB#\210\202E\312\n\313\322 !!\323\324 !\325Q\317\310\326\321 DFB#\210\fA\211\204+\312\n\327\330#\210\312\n\331\332#\210\312\n\333\334#\210\312\n\335\336#\210\312\n\337\340#\210\312\n\341\342#\210\312\n\343\344#\210\312\n\345\346#\210\312\n\347\350#\210\312\n\351\352#\210\312\n\353\354#\210\312\n\355\356#\210\312\n\357\360#\210\312\n\361\362#\210\302\211JM\210\310\207" [mylist dicts ispell-menu-map name --dolist-tail-- reverse make-sparse-keymap "Spell" nil "default" define-key vector default "Select Default Dict" "Dictionary for which Ispell was configured" lambda (interactive) ispell-change-dictionary intern "Select " capitalize " Dict" (interactive) [ispell-change-dictionary] (menu-item "Change Dictionary..." ispell-change-dictionary :help "Supply explicit dictionary file name") [ispell-kill-ispell] (menu-item "Kill Process" (lambda nil (interactive) (ispell-kill-ispell nil 'clear)) :enable (and (boundp 'ispell-process) ispell-process (eq (ispell-process-status) 'run)) :visible (featurep 'ispell) :help "Terminate Ispell subprocess") [ispell-pdict-save] (menu-item "Save Dictionary" (lambda nil (interactive) (ispell-pdict-save t t)) :visible (featurep 'ispell) :help "Save personal dictionary") [ispell-customize] (menu-item "Customize..." (lambda nil (interactive) (customize-group 'ispell)) :help "Customize spell checking options") [ispell-help] (menu-item "Help" (lambda nil (interactive) (describe-function 'ispell-help)) :help "Show standard Ispell keybindings and commands") [flyspell-mode] (menu-item "Automatic spell checking (Flyspell)" flyspell-mode :help "Check spelling while you edit the text" :button (:toggle and (boundp 'flyspell-mode) flyspell-mode)) [ispell-complete-word] (menu-item "Complete Word" ispell-complete-word :help "Complete word at cursor using dictionary") [ispell-complete-word-interior-frag] (menu-item "Complete Word Fragment" ispell-complete-word-interior-frag :help "Complete word fragment at cursor") [ispell-continue] (menu-item "Continue Spell-Checking" ispell-continue :enable (and (boundp 'ispell-region-end) (marker-position ispell-region-end) (equal (marker-buffer ispell-region-end) (current-buffer))) :visible (featurep 'ispell) :help "Continue spell checking last region") [ispell-word] (menu-item "Spell-Check Word" ispell-word :help "Spell-check word at cursor") [ispell-comments-and-strings] (menu-item "Spell-Check Comments" ispell-comments-and-strings :help "Spell-check only comments and strings") [ispell-region] (menu-item "Spell-Check Region" ispell-region :enable mark-active :help "Spell-check text in marked region") [ispell-message] (menu-item "Spell-Check Message" ispell-message :visible (eq major-mode 'mail-mode) :help "Skip headers and included message text") [ispell-buffer] (menu-item "Spell-Check Buffer" ispell-buffer :help "Check spelling of selected buffer")] 11 (#$ . 2160)]) #@120 Make sure ispell startup menu is ready after startup. To be run at `after-init-hook' or at any time if FORCE is given. (defalias 'debian-ispell-set-startup-menu #[(&optional force) "\306\211\211\211\211\307\305!\203 \202#\307\310!\205#\311\312\"\205#\313\211\204D\307\314!\2033\f\202B\307\310!\205B\311\315\"\205B\313\f\203P\316\317\"\202b\203]\316\317\"\202b\316\317\"\307\320!\203t\321\316\317\" \"\202u \322\323!\205??\205\214\324\325!\205\214\325!-\207" [dicts-list debian-valid-dictionary-list hunspell really really-aspell ispell-really-aspell nil boundp ispell-program-name string-match "aspell" t ispell-really-hunspell "hunspell" mapcar car ispell-local-dictionary-alist append featurep ispell fboundp debian-ispell-build-startup-menu really-hunspell debian-aspell-only-dictionary-alist debian-hunspell-only-dictionary-alist debian-ispell-only-dictionary-alist force] 5 (#$ . 5256)]) (byte-code "\300\301\302\"\210\303\304\305\"\207" [add-hook after-init-hook debian-ispell-set-startup-menu eval-after-load "ispell" #[nil "\300 \207" [debian-ispell-set-startup-menu] 1]] 3) #@92 The name of the ispell dictionary that will become the default after loading of ispell.el. (defvar debian-ispell-dictionary nil (#$ . 6393)) (byte-code "\300\301!\203\n\302\301!\210\300\207" [file-exists-p "/var/cache/dictionaries-common/emacsen-ispell-default.el" load] 2) #@92 The name of the aspell dictionary that will become the default after loading of ispell.el. (defvar debian-aspell-dictionary nil (#$ . 6674)) #@94 The name of the hunspell dictionary that will become the default after loading of ispell.el. (defvar debian-hunspell-dictionary nil (#$ . 6821)) #@240 Alist of equivalences between locales and aspell dictionaries, used internally by the debian ispell.el initialization scheme. Do not change this variable directly. It is autogenerated from data supplied by aspell dictionaries maintainers. (defvar debian-aspell-equivs-alist '((nil)) (#$ . 6973)) #@244 Alist of equivalences between locales and hunspell dictionaries, used internally by the debian ispell.el initialization scheme. Do not change this variable directly. It is autogenerated from data supplied by hunspell dictionaries maintainers. (defvar debian-hunspell-equivs-alist '((nil)) (#$ . 7276)) #@105 Try finding a LANGSTRING match in EQUIVS-ALIST. EQUIVS-ALIST is an assoc list of locales vs dict names. (defalias 'debian-ispell-try-lang-equiv #[(langstring equivs-alist) "\306\307\310 \205i\3112i\312 \313\"\314\211\205g @ \314\211\203^ @\n\314\211\203V @\315\312\f\"@P\"A\211\203O\316\311@\"\210 A\211\2042* A\211\204%* A\211\204\314*0+\207" [langmatch suffixes prefixes langstring lang --dolist-tail-- ("" "1:") ("^" "@" "." "_") (nil nil) tag split-string ":" nil assoc throw suffix prefix equivs-alist] 6 (#$ . 7585)]) #@188 Get default dictionary for aspell. Ask aspell about the default dictionary it will use, and try finding a match for it in `debian-aspell-equivs-alist' alist provided by registered dicts. (defalias 'debian-ispell-get-aspell-default #[nil "\3031\"\304\305!rq\210\306\216\307\310\311\312\311\313\314&\210\315\316 !@+0\202$\210\311\317 \n\")\207" [#1=#:temp-buffer lang debian-aspell-equivs-alist (error) generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] call-process "aspell" nil t "config" "lang" split-string buffer-string debian-ispell-try-lang-equiv] 7 (#$ . 8153)]) #@224 Get default dictionary for hunspell under XEmacs. Look at the `debian-aspell-equivs-alist' alist provided by registered dicts to try finding a match for "LC_ALL" or "LANG". Emacs will rely on hunspell dicts auto-detection. (defalias 'debian-ispell-get-hunspell-default #[nil "\300\207" [nil] 1 (#$ . 8778)]) (defalias 'debian-ispell-preprocess-dicts-alist #[(dicts-alist) "\305 \305\211\203C @\211@\nA@\306\n8\307\310\n8\311\n8\"\312\n8\313\n8\314\n8\311\n8\257\211\235\2037\210\202;\fB) A\211\204\n*)\207" [tmp-dicts-alist dicts-alist adict --dolist-tail-- #1=#:x nil 2 decode-coding-string 3 7 4 5 6] 10]) (defalias 'debian-ispell-initialize-dicts-alist #[nil "\306\300!\205\306\301!\205 \f\203&\307\310  \n& \210\311 \2030\202;\n\2039\202;!\312\313\"\314\315!*\207" [ispell-really-aspell ispell-really-hunspell really-hunspell really-aspell debian-dict-common-debug ispell-program-name boundp message "- (debian-ispell-initialize-dicts-alist) from (ispell-set-spellchecker-params) hook:\n ispell-program-name: %s\n DID:%s, DAD:%s, DHD: %s, RA:%s, RH: %s, ILD: %s, ID: %s" debian-ispell-preprocess-dicts-alist mapcar car debian-ispell-set-startup-menu force debian-ispell-dictionary debian-aspell-dictionary debian-hunspell-dictionary ispell-local-dictionary ispell-dictionary debian-aspell-only-dictionary-alist debian-hunspell-only-dictionary-alist debian-ispell-only-dictionary-alist ispell-base-dicts-override-alist debian-ispell-valid-dictionary-list] 10]) (add-hook 'ispell-initialize-spellchecker-hook 'debian-ispell-initialize-dicts-alist) #@161 Set ispell default to the debconf selected one if ispell-program-name is ispell or, when ispell-program-name is aspell, to the value guessed after LANG if any. (defalias 'debian-ispell-set-default-dictionary #[nil "\306\300!\203\n\202\306\301!\205\307\310 \"\205\311\306\303!\203# \2021\306\301!\2051\307\312 \"\2051\311\n\203: \202E\f\203C\202E\f\204R\313\314\"\210\205g\315\316 \n\f\f & +\207" [ispell-really-aspell ispell-program-name really-aspell ispell-really-hunspell really-hunspell debian-aspell-dictionary boundp string-match "aspell" t "hunspell" customize-set-variable ispell-dictionary message "- (debian-ispell-set-default-dictionary ):\n DID:%s, DAD:%s, DHD: %s, RA:%s, RH: %s, DD:%s, ID:%s, IPN:%s" debian-hunspell-dictionary debian-ispell-dictionary default-dictionary debian-dict-common-debug] 10 (#$ . 10389)]) (byte-code "\303\304\305\"\210\306\307!\203\310\311!\312Q\211\n\235\204\307 !\210)\313\314\315\316\317\320\321\322\323\324& \210\313\325\326\327\317\330\323\324&\207" [debian-emacs-flavor mypath load-path add-hook after-init-hook debian-ispell-set-default-dictionary fboundp debian-pkg-add-load-path-item "/usr/share/" symbol-name "/site-lisp/dictionaries-common" custom-declare-variable ispell-program-name (if (executable-find "aspell") "aspell" (if (executable-find "ispell") "ispell" (if (executable-find "hunspell") "hunspell" "ispell"))) "Program invoked by \\[ispell-word] and \\[ispell-region] commands." :type string :set #[(symbol value) "\302 \"\210\303\304!\205 \305 \207" [symbol value set-default featurep ispell ispell-set-spellchecker-params] 3] :group ispell ispell-dictionary nil "Default dictionary to use if `ispell-local-dictionary' is nil." (choice string (const :tag "default" nil))] 11)