;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:59 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/checkdoc.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@56 Release version of checkdoc you are currently running.
(defvar checkdoc-version "0.6.1" (#$ . 562))
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\312\313\314&	\210\315\316\317\320\321\322\311\304\313\323&	\210\315\324\325\326\311\304\321\327&\210\315\330\331\332\311\304\321\333&\210\315\334\331\335\311\304\321\333&\210\315\336\305\337\311\304\321\333&\210\315\340\305\341\311\304\321\333&\210\315\342\305\343\311\304\321\344&\207" [require help-mode thingatpt custom-declare-group checkdoc nil "Support for doc string checking in Emacs Lisp." :prefix "checkdoc" :group lisp :version "20.3" custom-declare-variable checkdoc-minor-mode-string " CDoc" "String to display in mode line when Checkdoc mode is enabled; nil for none." :type (choice string (const :tag "None" nil)) "23.1" checkdoc-autofix-flag 'semiautomatic "Non-nil means attempt auto-fixing of doc strings.\nIf this value is the symbol `query', then the user is queried before\nany change is made.  If the value is `automatic', then all changes are\nmade without asking unless the change is very-complex.  If the value\nis `semiautomatic' or any other value, then simple fixes are made\nwithout asking, and complex changes are made by asking the user first.\nThe value `never' is the same as nil, never ask or change anything." (choice (const automatic) (const query) (const never) (other :tag "semiautomatic" semiautomatic)) checkdoc-bouncy-flag t "Non-nil means to \"bounce\" to auto-fix locations.\nSetting this to nil will silently make fixes that require no user\ninteraction.  See `checkdoc-autofix-flag' for auto-fixing details." boolean checkdoc-force-docstrings-flag "Non-nil means that all checkable definitions should have documentation.\nStyle guide dictates that interactive functions MUST have documentation,\nand that it's good but not required practice to make non user visible items\nhave doc strings." checkdoc-force-history-flag "Non-nil means that files should have a History section or ChangeLog file.\nThis helps document the evolution of, and recent changes to, the package." checkdoc-permit-comma-termination-flag "Non-nil means the first line of a docstring may end with a comma.\nOrdinarily, a full sentence is required.  This may be misleading when\nthere is a substantial caveat to the one-line description -- the comma\nshould be used when the first part could stand alone as a sentence, but\nit indicates that a modifying clause follows." checkdoc-spellcheck-documentation-flag "Non-nil means run Ispell on text based on value.\nThis is automatically set to nil if Ispell does not exist on your\nsystem.  Possible values are:\n\n  nil         - Don't spell-check during basic style checks.\n  defun       - Spell-check when style checking a single defun\n  buffer      - Spell-check when style checking the whole buffer\n  interactive - Spell-check during any interactive check.\n  t           - Always spell-check" (choice (const nil) (const defun) (const buffer) (const interactive) (const t))] 10)
#@72 List of words that are correct when spell-checking Lisp documentation.
(defvar checkdoc-ispell-lisp-words '("alist" "emacs" "etags" "keymap" "paren" "regexp" "sexp" "xemacs") (#$ . 3589))
(byte-code "\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\307\310\315&\210\316\317\320\321#\210\322\321\211\203B	@\317N\203;\320N\204;\323\320\317N#\210	A\211\204$*\324\317\320\325#\207" [prop --dolist-tail-- custom-declare-variable checkdoc-max-keyref-before-warn 10 "The number of \\ [command-to-keystroke] tokens allowed in a doc string.\nAny more than this and a warning is generated suggesting that the construct\n\\ {keymap} be used instead." :group checkdoc :type integer checkdoc-arguments-in-order-flag t "Non-nil means warn if arguments appear out of order.\nSetting this to nil will mean only checking that all the arguments\nappear in the proper form in the documentation, not that they are in\nthe same order as they appear in the argument list.  No mention is\nmade in the style guide relating to order." boolean defvaralias checkdoc-style-hooks checkdoc-style-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3"] 9)
#@358 Hook run after the standard style check is completed.
All functions must return nil or a string representing the error found.
Useful for adding new user implemented commands.

Each hook is called with two parameters, (DEFUNINFO ENDPOINT).
DEFUNINFO is the return value of `checkdoc-defun-info'.  ENDPOINT is the
location of end of the documentation string.
(defvar checkdoc-style-functions nil (#$ . 4774))
(byte-code "\302\303\304\305#\210\306\305\211\203,	@\303N\203%\304N\204%\307\304\303N#\210	A\211\204*\310\303\304\311#\207" [prop --dolist-tail-- defvaralias checkdoc-comment-style-hooks checkdoc-comment-style-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3"] 6)
#@196 Hook run after the standard comment style check is completed.
Must return nil if no errors are found, or a string describing the
problem discovered.  This is useful for adding additional checks.
(defvar checkdoc-comment-style-functions nil (#$ . 5500))
#@33 Name of warning message buffer.
(defvar checkdoc-diagnostic-buffer "*Style Warnings*" (#$ . 5759))
#@105 Regular expression used to identify a defun.
A search leaves the cursor in front of the parameter list.
(defvar checkdoc-defun-regexp "^(def\\(un\\|var\\|custom\\|macro\\|const\\|subst\\|advice\\)\\s-+\\(\\(\\sw\\|\\s_\\)+\\)[ 	\n]+" (#$ . 5865))
#@206 Non-nil means to attempt to check the voice of the doc string.
This check keys off some words which are commonly misused.  See the
variable `checkdoc-common-verbs-wrong-voice' if you wish to add your own.
(custom-declare-variable 'checkdoc-verb-check-experimental-flag t '(#$ . 6119) :group 'checkdoc :type 'boolean)
#@157 Non-nil means generate warnings in a buffer for browsing.
Do not set this by hand, use a function like `checkdoc-current-buffer'
with a universal argument.
(defvar checkdoc-generate-compile-warnings-flag nil (#$ . 6443))
#@196 A list of symbol names (strings) which also happen to make good words.
These words are ignored when unquoted symbols are searched for.
This should be set in an Emacs Lisp file's local variables.
(custom-declare-variable 'checkdoc-symbol-words nil '(#$ . 6671) :group 'checkdoc :type '(repeat (symbol :tag "Word")))
(defalias 'checkdoc-list-of-strings-p #[(obj) "<\205\f\301\302\303\">?\207" [obj nil mapcar stringp] 4])
#@62 List of words (not capitalized) which should be capitalized.
(defvar checkdoc-proper-noun-list '("ispell" "xemacs" "emacs" "lisp") (#$ . 7100))
#@64 Regular expression derived from `checkdoc-proper-noun-regexp'.
(defvar checkdoc-proper-noun-regexp (byte-code "\301\302\303\"\304Q\207" [checkdoc-proper-noun-list "\\_<" regexp-opt t "\\(\\_>\\|[.!?][ 	\n\"]\\)"] 4) (#$ . 7250))
#@65 Regular expression derived from `checkdoc-common-verbs-regexp'.
(defvar checkdoc-common-verbs-regexp nil (#$ . 7486))
#@296 Alist of common words in the wrong voice and what should be used instead.
Set `checkdoc-verb-check-experimental-flag' to nil to avoid this costly
and experimental check.  Do not modify this list without setting
the value of `checkdoc-common-verbs-regexp' to nil which cause it to
be re-created.
(defvar checkdoc-common-verbs-wrong-voice '(("adds" . "add") ("allows" . "allow") ("appends" . "append") ("applies" . "apply") ("arranges" . "arrange") ("brings" . "bring") ("calls" . "call") ("catches" . "catch") ("changes" . "change") ("checks" . "check") ("contains" . "contain") ("converts" . "convert") ("creates" . "create") ("destroys" . "destroy") ("disables" . "disable") ("executes" . "execute") ("evals" . "evaluate") ("evaluates" . "evaluate") ("finds" . "find") ("forces" . "force") ("gathers" . "gather") ("generates" . "generate") ("goes" . "go") ("guesses" . "guess") ("highlights" . "highlight") ("holds" . "hold") ("ignores" . "ignore") ("indents" . "indent") ("initializes" . "initialize") ("inserts" . "insert") ("installs" . "install") ("investigates" . "investigate") ("keeps" . "keep") ("kills" . "kill") ("leaves" . "leave") ("lets" . "let") ("loads" . "load") ("looks" . "look") ("makes" . "make") ("marks" . "mark") ("matches" . "match") ("moves" . "move") ("notifies" . "notify") ("offers" . "offer") ("parses" . "parse") ("performs" . "perform") ("prepares" . "prepare") ("prepends" . "prepend") ("reads" . "read") ("raises" . "raise") ("removes" . "remove") ("replaces" . "replace") ("resets" . "reset") ("restores" . "restore") ("returns" . "return") ("runs" . "run") ("saves" . "save") ("says" . "say") ("searches" . "search") ("selects" . "select") ("sets" . "set") ("sex" . "s*x") ("shows" . "show") ("signifies" . "signify") ("sorts" . "sort") ("starts" . "start") ("stores" . "store") ("switches" . "switch") ("tells" . "tell") ("tests" . "test") ("toggles" . "toggle") ("tries" . "try") ("turns" . "turn") ("undoes" . "undo") ("unloads" . "unload") ("unmarks" . "unmark") ("updates" . "update") ("uses" . "use") ("yanks" . "yank")) (#$ . 7611))
#@52 Syntax table used by checkdoc in document strings.
(defvar checkdoc-syntax-table (byte-code "\302!\303\304\305	#\210	)\207" [emacs-lisp-mode-syntax-table st make-syntax-table modify-syntax-entry 45 "w"] 4) (#$ . 9693))
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\207" [defalias checkdoc-make-overlay make-overlay checkdoc-overlay-put overlay-put checkdoc-delete-overlay delete-overlay checkdoc-overlay-start overlay-start checkdoc-overlay-end overlay-end checkdoc-mode-line-update force-mode-line-update checkdoc-char= =] 3)
#@173 Interactively check the entire buffer for style errors.
The current status of the check will be displayed in a buffer which
the users will view as each check is completed.
(defalias 'checkdoc #[nil "\305\306\211\211F\307>@	\203	\310=\203\311\202	\312\313!\210\f\204,\314\240\210\202<\315 \2038\316\240\210\202<\317\240\210A\305\240\210\313!\210\320\312\321\"\211\203ZA\322\323\nG\"\240\210\202_A\317\240\210AA\305\240\210\313!\210\324\312\321\"\211\203AA\322\323\nG\"\240\210\202\205AA\317\240\210AAA\305\240\210\313!\210\312\325\326\217\203\241AAA\316\240\210\202\250AAA\317\240\210\313!,\207" [checkdoc-spellcheck-documentation-flag checkdoc-autofix-flag tmp status buffer-file-name "Checking..." "-" (buffer interactive t) never query nil checkdoc-display-status-buffer "Not checked" checkdoc-file-comments-engine "Errors" "Ok" checkdoc-interactive t format "%d Errors" checkdoc-message-interactive (checkdoc-rogue-spaces nil t) ((error t))] 5 (#$ . 10318) nil])
#@195 Display and update the status buffer for the current checkdoc mode.
CHECK is a list of four strings stating the current status of each
test; the nth string describes the status of the nth test.
(defalias 'checkdoc-display-status-buffer #[(check) "\306	r\307\310!q\210p\311 \210\n\306\211\312\211\312\313 \210\314\300!\210+\211\315\316\317@\320A@\321\3228\323\3248\257\"\210\325!\210,\326\327\310!!\210\330\306!\210\331\332!\207" [temp-buffer-setup-hook default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list nil get-buffer-create "*Checkdoc Status*" kill-all-local-variables t erase-buffer run-hooks mapc princ "Buffer comments and tags:  " "\nDocumentation style:       " "\nMessage/Query text style:  " 2 "\nUnwanted Spaces:           " 3 internal-temp-output-buffer-show shrink-window-if-larger-than-buffer get-buffer-window message sit-for 0 inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output check] 12 (#$ . 11332)])
#@437 Interactively check the current buffer for doc string errors.
Prefix argument START-HERE will start the checking from the current
point, otherwise the check starts at the beginning of the current
buffer.  Allows navigation forward and backwards through document
errors.  Does not check for comment or space warnings.
Optional argument SHOWSTATUS indicates that we should update the
checkdoc status window instead of the usual behavior.
(defalias 'checkdoc-interactive #[(&optional start-here showstatus) "\303>@\304	\n\305#\306	!\210)\207" [checkdoc-spellcheck-documentation-flag start-here showstatus (interactive t) checkdoc-interactive-loop checkdoc-next-error checkdoc-interactive-ispell-loop] 4 (#$ . 12332) "P"])
#@441 Interactively check the current buffer for message string errors.
Prefix argument START-HERE will start the checking from the current
point, otherwise the check starts at the beginning of the current
buffer.  Allows navigation forward and backwards through document
errors.  Does not check for comment or space warnings.
Optional argument SHOWSTATUS indicates that we should update the
checkdoc status window instead of the usual behavior.
(defalias 'checkdoc-message-interactive #[(&optional start-here showstatus) "\303>@\304	\n\305#\306	!\210)\207" [checkdoc-spellcheck-documentation-flag start-here showstatus (interactive t) checkdoc-interactive-loop checkdoc-next-message-error checkdoc-message-interactive-ispell-loop] 4 (#$ . 13060) "P"])
#@591 Interactively loop over all errors that can be found by a given method.

If START-HERE is nil, searching starts at the beginning of the current
buffer, otherwise searching starts at START-HERE.  SHOWSTATUS
expresses the verbosity of the search, and whether ending the search
will auto-exit this function.

FINDFUNC is a symbol representing a function that will position the
cursor, and return error message text to present to the user.  It is
assumed that the cursor will stop just before a major sexp, which will
be highlighted to present the user with feedback as to the offending
style.
(defalias 'checkdoc-interactive-loop #[(start-here showstatus findfunc) "`\204eb\210\n\306>@\307!C\307\211@\307A\310 B\311\216\f@\204(\307\312 \210\f\203\247\f@Ab\210\f@@;\203I\212\313`\314\315!\210`\")\202V\313\316\f@@!\317\f@@!\"\320\216\321
\322\323#\210\324\325!\210\326\327!\203\236\330\212\314\315!\210`)\331 \"\204\236\332`\212\314\315!\210`)\"\211C\333 V\203\220\334\315!\210\202\232\334\333 CZ\335\245!\210)\202\241\334 \210\336\337\340\f@@!\341\f@@!\203\264\342\202\265\343#\210\212\316\f@@!b\210\330 \204\313\334\333 \335Z!\210\344 A)A\250\204\331\345A\346A\347\"\203\351\350\351\307\"\210\202\243\346A\352\"\204\371\346A\353\"\203W
\354
!\210\307\f@Ab\210\355\307DE\356!\210E\355=?\211D\204$
\336\357!\210\324\335!\210\202'
\fA*\312 \210\307!\211F\203<
F\fB\202S
\f\204K
\336\360!\210\324\335!\210\202S
\336\361!\210\324\335!\210)\202\243\346A\362\"\204g
\346A\363\"\203\234
\307!\211F\204\223
G\203}
\f@\307\202\230
\f\204\210
\336\360!\210\202\214
\336\361!\210\324\335!\210\202\230
F\fB)\202\243\346A\364\"\204\254
\346A\365\"\203\314
\fG\315U\204\301
\fA\211@Ab\210\312 \210\202\243\336\366!\210\324\335!\210\202\243\346A\367\"\203\370\340\f@@!!\210\354
!\210\fA\312 \210\307!\211F\204G\203\374
\f@\307\202\f\336\360!\210\324\335!\210\202\fF\fB)\202\243\346A\371\"\203\"\f@\307`\202\243\372\373!\2035\374\372\373!!\210\375\373!\210\202\243HIr\376\373!q\210p\377 \210IH\307\211JK\356\211L\356MN\201Q \210\201R\201S!\210+\211OPrPq\210\201T\341\f@@!\203}\342\202\200\201U\201V\201W\201X\201Y\201Z\261\210)\201[O!\210+\201\\\372\373!!\210)\202+*	b\210\201]\373!\203\267\375\373!\210\336\201^!\210@.\207" [start-here begin checkdoc-spellcheck-documentation-flag findfunc err-list cdo (buffer interactive t) nil current-window-configuration ((set-window-configuration #1=#:wconfig)) beginning-of-defun checkdoc-make-overlay forward-sexp 1 checkdoc-error-start checkdoc-error-end ((byte-code "\203\301!\210\301\207" [cdo checkdoc-delete-overlay] 2)) checkdoc-overlay-put face highlight sit-for 0 looking-at "\"" pos-visible-in-window-p selected-window count-lines window-height recenter 2 message "%s (C-h,%se,n,p,q)" checkdoc-error-text checkdoc-error-unfixable "" "f," read-event 63 checkdoc-char= 7 signal quit 121 102 checkdoc-delete-overlay automatic-then-never t "A Fix was not available." "No More Stylistic Errors." "No Additional style errors.  Continuing..." 110 32 112 127 "No Previous Errors." 101 checkdoc-recursive-edit 113 get-buffer-window "*Checkdoc Help*" delete-window kill-buffer get-buffer-create kill-all-local-variables returnme c #1# l fixed checkdoc-autofix-flag ne showstatus default-directory #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output erase-buffer run-hooks temp-buffer-setup-hook "Checkdoc Keyboard Summary:\n" "f, y    - auto Fix this warning without asking (if available.)\n         Very complex operations will still query.\n" "e      - Enter recursive Edit.  Press C-M-c to exit.\n" "SPC, n - skip to the Next error.\n" "DEL, p - skip to the Previous error.\n" "q      - Quit checkdoc.\n" "C-h    - Toggle this help buffer." internal-temp-output-buffer-show shrink-window-if-larger-than-buffer get-buffer "Checkdoc: Done."] 8 (#$ . 13816)])
#@183 Interactively spell check doc strings in the current buffer.
If START-HERE is nil, searching starts at the beginning of the current
buffer, otherwise searching starts at START-HERE.
(defalias 'checkdoc-interactive-ispell-loop #[(start-here) "\2058\212	\203\302 \210\202eb\210\303 \2034\304\305`\306_d\245\"\210\307\310!\203\311\212\312\313!\210\314 )!\210\202\304\315!)\207" [checkdoc-spellcheck-documentation-flag start-here beginning-of-defun checkdoc-next-docstring message "Searching for doc string spell error...%d%%" 100 looking-at "\"" checkdoc-ispell-docstring-engine forward-sexp 1 point-marker "Checkdoc: Done."] 4 (#$ . 17814)])
#@180 Interactively spell check messages in the current buffer.
If START-HERE is nil, searching starts at the beginning of the current
buffer, otherwise searching starts at START-HERE.
(defalias 'checkdoc-message-interactive-ispell-loop #[(start-here) "\2059\212	\203\302 \210\202eb\210\303d!\2035\304\305`\306_d\245\"\210\307\310!\203\311\212\312\313!\210\314 )!\210\202\304\315!)\207" [checkdoc-spellcheck-documentation-flag start-here beginning-of-defun checkdoc-message-text-next-string message "Searching for message string spell error...%d%%" 100 looking-at "\"" checkdoc-ispell-docstring-engine forward-sexp 1 point-marker "Checkdoc: Done."] 4 (#$ . 18472)])
#@529 Find and return the next checkdoc error list, or nil.
Only documentation strings are checked.
An error list is of the form (WARNING . POSITION) where WARNING is the
warning text, and POSITION is the point in the buffer where the error
was found.  We can use points and not markers because we promise not
to edit the buffer before point without re-executing this check.
Argument ENABLE-FIX will enable auto-fixing while looking for the next
error.  This argument assumes that the cursor is already positioned to
perform the fix.
(defalias 'checkdoc-next-error #[(enable-fix) "\203\304 \207\305`\305\305\306\307\217\210+\207" [enable-fix checkdoc-autofix-flag p msg checkdoc-this-string-valid nil (byte-code "\204!\301 \203!\302\303`\304_d\245\"\210\305 \211\203`B\211\203\301\207" [msg checkdoc-next-docstring message "Searching for doc string error...%d%%" 100 checkdoc-this-string-valid] 5) ((quit (goto-char p)))] 3 (#$ . 19150)])
#@319 Find and return the next checkdoc message related error list, or nil.
Only text for error and `y-or-n-p' strings are checked.  See
`checkdoc-next-error' for details on the return value.
Argument ENABLE-FIX turns on the auto-fix feature.  This argument
assumes that the cursor is already positioned to perform the fix.
(defalias 'checkdoc-next-message-error #[(enable-fix) "\203\305 \207\306`\306\211\306\307\310\217\210\f,\207" [enable-fix checkdoc-autofix-flag type p msg checkdoc-message-text-engine nil (byte-code "\204%\302d!\211\203%\303\304`\305_d\245\"\210\306	!\211\203`B\211\203\302\207" [msg type checkdoc-message-text-next-string message "Searching for message string error...%d%%" 100 checkdoc-message-text-engine] 5) ((quit (goto-char p)))] 4 (#$ . 20107)])
#@147 Enter recursive edit to permit a user to fix some error checkdoc has found.
MSG is the error that was found, which is displayed in a help buffer.
(defalias 'checkdoc-recursive-edit #[(msg) "r\306\307!q\210p\310 \210	\311\211\312\211\312\313 \210\314\315!\210+\211\316\317\320\321E\"\210\322!\210+\323\324\307!!\210\325\326!\210\327\216\330 )\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Checkdoc Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook mapc princ "Error message:\n  " "\n\nEdit to fix this problem, and press C-M-c to continue." internal-temp-output-buffer-show shrink-window-if-larger-than-buffer get-buffer-window message "When you're done editing press C-M-c to continue." ((byte-code "\300\301!\203\302\300\301!!\210\303\301!\210\300\207" [get-buffer-window "*Checkdoc Help*" delete-window kill-buffer] 3)) recursive-edit inhibit-read-only #2=#:buf standard-output msg] 6 (#$ . 20903)])
#@222 Evaluate and check documentation for the current buffer.
Evaluation is done first because good documentation for something that
doesn't work is just not useful.  Comments, doc strings, and rogue
spacing are all verified.
(defalias 'checkdoc-eval-current-buffer #[nil "\300\301!\210\302\303!\207" [eval-buffer nil checkdoc-current-buffer t] 2 (#$ . 21954) nil])
#@218 Check current buffer for document, comment, error style, and rogue spaces.
With a prefix argument (in Lisp, the argument TAKE-NOTES),
store all errors found in a warnings buffer,
otherwise stop after the first error.
(defalias 'checkdoc-current-buffer #[(&optional take-notes) "\305\306!\203\n\307\310!\210\311>@	\203\312\202\n	\206	\203'\313\314!\210\f\2030\315 \206R\316 \206R\317 \206R\320 \206R\305\306!?\206R	\203O\321 \206R\307\322!+\207" [checkdoc-spellcheck-documentation-flag take-notes checkdoc-autofix-flag checkdoc-generate-compile-warnings-flag buffer-file-name called-interactively-p interactive message "Checking buffer for style..." (buffer t) never checkdoc-start-section "checkdoc-current-buffer" checkdoc-comments checkdoc-start checkdoc-message-text checkdoc-rogue-spaces checkdoc-show-diagnostics "Checking buffer for style...Done."] 3 (#$ . 22322) "P"])
#@281 Start scanning the current buffer for documentation string style errors.
Only documentation strings are checked.
Use `checkdoc-continue' to continue checking if an error cannot be fixed.
Prefix argument TAKE-NOTES means to collect all the warning messages into
a separate buffer.
(defalias 'checkdoc-start #[(&optional take-notes) "`eb\210	\203\302\303!\203\304\305!\210\306	!\210b\210)\307\207" [p take-notes called-interactively-p interactive checkdoc-start-section "checkdoc-start" checkdoc-continue nil] 2 (#$ . 23226) "P"])
#@293 Find the next doc string in the current buffer which has a style error.
Prefix argument TAKE-NOTES means to continue through the whole buffer and
save warnings in a separate buffer.  Second optional argument START-POINT
is the starting location.  If this is nil, `point-min' is used instead.
(defalias 'checkdoc-continue #[(&optional take-notes) "\306\211\307>@	\203\310\202\n	\206\212
\2040\311 \2030\312 \211\203`\211\203)
\203C
b\210	\204C\313\314\315\f!\"\210\316 \210\317\320!\205O\321\322!-\207" [checkdoc-spellcheck-documentation-flag take-notes checkdoc-autofix-flag checkdoc-generate-compile-warnings-flag msg wrong nil (buffer t) never checkdoc-next-docstring checkdoc-this-string-valid user-error "%s" checkdoc-error-text checkdoc-show-diagnostics called-interactively-p interactive message "No style warnings."] 6 (#$ . 23768) "P"])
#@101 Move to the next doc string after point, and return t.
Return nil if there are no more doc strings.
(defalias 'checkdoc-next-docstring #[nil "\301\302\303#\205\304\305!\210\306\302w\210\303\207" [checkdoc-defun-regexp re-search-forward nil t forward-sexp 1 " \n	"] 4 (#$ . 24644)])
#@212 Find missing comment sections in the current Emacs Lisp file.
Prefix argument TAKE-NOTES non-nil means to save warnings in a
separate buffer.  Otherwise print a message.  This returns the error
if there is one.
(defalias 'checkdoc-comments #[(&optional take-notes) "\203\306\307!\210	\204\310\311!\210\n\312>@\203\313\202\314 \206'
\f\2033\315\316\317\f!\"\210\320 \210\f,\207" [take-notes buffer-file-name checkdoc-spellcheck-documentation-flag checkdoc-autofix-flag e checkdoc-generate-compile-warnings-flag checkdoc-start-section "checkdoc-comments" error "Can only check comments for a file buffer" (buffer t) never checkdoc-file-comments-engine user-error "%s" checkdoc-error-text checkdoc-show-diagnostics] 4 (#$ . 24936) "P"])
#@269 Find extra spaces at the end of lines in the current file.
Prefix argument TAKE-NOTES non-nil means to save warnings in a
separate buffer.  Otherwise print a message.  This returns the error
if there is one.
Optional argument INTERACT permits more interactive fixing.
(defalias 'checkdoc-rogue-spaces #[(&optional take-notes interact) "\203\305\306!\210\203\307\202	\310\311\211\n#\206\f\312\313!\204(\202;\2035\314\315\316!\"\202;\317 \210\314\320!+\207" [take-notes checkdoc-autofix-flag interact e checkdoc-generate-compile-warnings-flag checkdoc-start-section "checkdoc-rogue-spaces" never checkdoc-rogue-space-check-engine nil called-interactively-p interactive message "%s" checkdoc-error-text checkdoc-show-diagnostics "Space Check: done."] 4 (#$ . 25695) "P"])
#@134 Scan the buffer for occurrences of the error function, and verify text.
Optional argument TAKE-NOTES causes all errors to be logged.
(defalias 'checkdoc-message-text #[(&optional take-notes) "\203\305\306!\210`\307\203\310\202\206\f\311 \312\313!\204*\n\210\202;\n\2038\314\315\316\n!\"\210\202;\317 \210	b\210,\312\313!\205H\320\321!\207" [take-notes p e checkdoc-autofix-flag checkdoc-generate-compile-warnings-flag checkdoc-start-section "checkdoc-message-text" nil never checkdoc-message-text-search called-interactively-p interactive user-error "%s" checkdoc-error-text checkdoc-show-diagnostics message "Checking interactive message text...done."] 4 (#$ . 26492) "P"])
#@283 Evaluate the current form with `eval-defun' and check its documentation.
Evaluation is done first so the form will be read before the
documentation is checked.  If there is a documentation error, then the display
of what was evaluated will be overwritten by the diagnostic message.
(defalias 'checkdoc-eval-defun #[nil "\300\301!\210\302 \207" [call-interactively eval-defun checkdoc-defun] 2 (#$ . 27196) nil])
#@293 Examine the doc string of the function or variable under point.
Call `error' if the doc string has problems.  If NO-ERROR is
non-nil, then do not call error, but call `message' instead.
If the doc string passes the test, then check the function for rogue white
space at the end of each line.
(defalias 'checkdoc-defun #[(&optional no-error) "\212\306 \210\307!\205j\310\225b\210\311\312!\210\313\314w\210	\315>@\212\306 \210`)\212\316 \210`)\317\320\321E\314\211\203_
@\211 \211\203W\203O\322\323\324!\"\210\202W\325\323\324!\"\210)
A\211\2044*\326\327!\205i\322\330!+)\207" [checkdoc-defun-regexp checkdoc-spellcheck-documentation-flag beg end fun --dolist-tail-- beginning-of-defun looking-at 0 forward-sexp 1 " \n	" nil (defun t) end-of-defun checkdoc-this-string-valid #[nil "\302	\"\207" [beg end checkdoc-message-text-search] 3] #[nil "\302	\"\207" [beg end checkdoc-rogue-space-check-engine] 3] message "%s" checkdoc-error-text user-error called-interactively-p interactive "Checkdoc: done." msg no-error] 5 (#$ . 27615) nil])
#@164 Check the style and spelling of everything interactively.
Calls `checkdoc' with spell-checking turned on.
Prefix argument TAKE-NOTES is the same as for `checkdoc'
(defalias 'checkdoc-ispell #[(&optional take-notes) "\302\303\304\305	#)\207" [checkdoc-spellcheck-documentation-flag current-prefix-arg t call-interactively checkdoc nil] 4 (#$ . 28681) nil])
#@188 Check the style and spelling of the current buffer.
Calls `checkdoc-current-buffer' with spell-checking turned on.
Prefix argument TAKE-NOTES is the same as for `checkdoc-current-buffer'
(defalias 'checkdoc-ispell-current-buffer #[(&optional take-notes) "\302\303\304\305	#)\207" [checkdoc-spellcheck-documentation-flag current-prefix-arg t call-interactively checkdoc-current-buffer nil] 4 (#$ . 29045) nil])
#@196 Check the style and spelling of the current buffer interactively.
Calls `checkdoc-interactive' with spell-checking turned on.
Prefix argument TAKE-NOTES is the same as for `checkdoc-interactive'
(defalias 'checkdoc-ispell-interactive #[(&optional take-notes) "\302\303\304\305	#)\207" [checkdoc-spellcheck-documentation-flag current-prefix-arg t call-interactively checkdoc-interactive nil] 4 (#$ . 29463) nil])
#@206 Check the style and spelling of message text interactively.
Calls `checkdoc-message-interactive' with spell-checking turned on.
Prefix argument TAKE-NOTES is the same as for `checkdoc-message-interactive'
(defalias 'checkdoc-ispell-message-interactive #[(&optional take-notes) "\302\303\304\305	#)\207" [checkdoc-spellcheck-documentation-flag current-prefix-arg t call-interactively checkdoc-message-interactive nil] 4 (#$ . 29883) nil])
#@192 Check the style and spelling of message text interactively.
Calls `checkdoc-message-text' with spell-checking turned on.
Prefix argument TAKE-NOTES is the same as for `checkdoc-message-text'
(defalias 'checkdoc-ispell-message-text #[(&optional take-notes) "\302\303\304\305	#)\207" [checkdoc-spellcheck-documentation-flag current-prefix-arg t call-interactively checkdoc-message-text nil] 4 (#$ . 30329) nil])
#@170 Check the style and spelling of the current buffer.
Calls `checkdoc-start' with spell-checking turned on.
Prefix argument TAKE-NOTES is the same as for `checkdoc-start'
(defalias 'checkdoc-ispell-start #[(&optional take-notes) "\302\303\304\305	#)\207" [checkdoc-spellcheck-documentation-flag current-prefix-arg t call-interactively checkdoc-start nil] 4 (#$ . 30747) nil])
#@188 Check the style and spelling of the current buffer after point.
Calls `checkdoc-continue' with spell-checking turned on.
Prefix argument TAKE-NOTES is the same as for `checkdoc-continue'
(defalias 'checkdoc-ispell-continue #[(&optional take-notes) "\302\303\304\305	#)\207" [checkdoc-spellcheck-documentation-flag current-prefix-arg t call-interactively checkdoc-continue nil] 4 (#$ . 31129) nil])
#@187 Check the style and spelling of the current buffer's comments.
Calls `checkdoc-comments' with spell-checking turned on.
Prefix argument TAKE-NOTES is the same as for `checkdoc-comments'
(defalias 'checkdoc-ispell-comments #[(&optional take-notes) "\302\303\304\305	#)\207" [checkdoc-spellcheck-documentation-flag current-prefix-arg t call-interactively checkdoc-comments nil] 4 (#$ . 31535) nil])
#@181 Check the style and spelling of the current defun with Ispell.
Calls `checkdoc-defun' with spell-checking turned on.
Prefix argument TAKE-NOTES is the same as for `checkdoc-defun'
(defalias 'checkdoc-ispell-defun #[(&optional take-notes) "\302\303\304\305	#)\207" [checkdoc-spellcheck-documentation-flag current-prefix-arg t call-interactively checkdoc-defun nil] 4 (#$ . 31940) nil])
#@385 Used to create the return error text returned from all engines.
TEXT is the descriptive text of the error.  START and END define the region
it is sensible to highlight when describing the problem.
Optional argument UNFIXABLE means that the error has no auto-fix available.

A list of the form (TEXT START END UNFIXABLE) is returned if we are not
generating a buffered list of errors.
(defalias 'checkdoc-create-error #[(text start end &optional unfixable) "\203\305	\n\"\210\306\207\n	\fF\207" [checkdoc-generate-compile-warnings-flag start text end unfixable checkdoc-error nil] 4 (#$ . 32333)])
#@48 Return the text specified in the checkdoc ERR.
(defalias 'checkdoc-error-text #[(err) ";\203\207@\207" [err] 1 (#$ . 32940)])
#@55 Return the start point specified in the checkdoc ERR.
(defalias 'checkdoc-error-start #[(err) ";?\205	A@\207" [err] 1 (#$ . 33077)])
#@53 Return the end point specified in the checkdoc ERR.
(defalias 'checkdoc-error-end #[(err) ";?\205	\3018\207" [err 2] 2 (#$ . 33219)])
#@76 Return the t if we cannot autofix the error specified in the checkdoc ERR.
(defalias 'checkdoc-error-unfixable #[(err) ";?\205	\3018\207" [err 3] 2 (#$ . 33362)])
#@77 Keymap used to override evaluation key-bindings for documentation checking.
(defvar checkdoc-minor-mode-map (byte-code "\302 \302 \303	\304\305#\210\303	\306\307#\210\303	\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\307#\210\303\317\320#\210\303\321\322#\210\303\323\324#\210\303\325\326#\210\303\327\330#\210\303\331\332#\210\303\333\334#\210\303\335\311#\210\303\336\337#\210\303\340\341#\210\303\342\343#\210\303\344\345#\210\303\346\347#\210\303	\350#\210	*\207" [pmap map make-sparse-keymap define-key "\230" checkdoc-eval-defun "`" checkdoc-continue [menu-bar emacs-lisp eval-buffer] checkdoc-eval-current-buffer "x" checkdoc-defun "X" checkdoc-ispell-defun "`" "~" checkdoc-ispell-continue "s" checkdoc-start "S" checkdoc-ispell-start "d" checkdoc "D" checkdoc-ispell "b" checkdoc-current-buffer "B" checkdoc-ispell-current-buffer "e" "m" checkdoc-message-text "M" checkdoc-ispell-message-text "c" checkdoc-comments "C" checkdoc-ispell-comments " " checkdoc-rogue-spaces "?"] 4) (#$ . 33534))
(easy-menu-do-define nil checkdoc-minor-mode-map "Checkdoc Minor Mode Menu" '("CheckDoc" ["Interactive Buffer Style Check" checkdoc t] ["Interactive Buffer Style and Spelling Check" checkdoc-ispell t] ["Check Buffer" checkdoc-current-buffer t] ["Check and Spell Buffer" checkdoc-ispell-current-buffer t] "---" ["Interactive Style Check" checkdoc-interactive t] ["Interactive Style and Spelling Check" checkdoc-ispell-interactive t] ["Find First Style Error" checkdoc-start t] ["Find First Style or Spelling  Error" checkdoc-ispell-start t] ["Next Style Error" checkdoc-continue t] ["Next Style or Spelling  Error" checkdoc-ispell-continue t] ["Interactive Message Text Style Check" checkdoc-message-interactive t] ["Interactive Message Text Style and Spelling Check" checkdoc-ispell-message-interactive t] ["Check Message Text" checkdoc-message-text t] ["Check and Spell Message Text" checkdoc-ispell-message-text t] ["Check Comment Style" checkdoc-comments buffer-file-name] ["Check Comment Style and Spelling" checkdoc-ispell-comments buffer-file-name] ["Check for Rogue Spaces" checkdoc-rogue-spaces t] "---" ["Check Defun" checkdoc-defun t] ["Check and Spell Defun" checkdoc-ispell-defun t] ["Check and Evaluate Defun" checkdoc-eval-defun t] ["Check and Evaluate Buffer" checkdoc-eval-current-buffer t]))
#@107 Non-nil if Checkdoc minor mode is enabled.
Use the command `checkdoc-minor-mode' to change this variable.
(defvar checkdoc-minor-mode nil (#$ . 35882))
(make-variable-buffer-local 'checkdoc-minor-mode)
#@477 Toggle automatic docstring checking (Checkdoc minor mode).
With a prefix argument ARG, enable Checkdoc minor mode if ARG is
positive, and disable it otherwise.  If called from Lisp, enable
the mode if ARG is omitted or nil.

In Checkdoc minor mode, the usual bindings for `eval-defun' which is
bound to \<checkdoc-minor-mode-map>\[checkdoc-eval-defun] and `checkdoc-eval-current-buffer' are overridden to include
checking of documentation strings.

\{checkdoc-minor-mode-map}
(defalias 'checkdoc-minor-mode #[(&optional arg) "\303 	\304=\203\n?\202\305	!\306V\307\310\n\203\311\202\312\"\210\313\314!\203@\303 \2033\303 \232\203@\315\316\n\203=\317\202>\320\"\210)\321 \210\n\207" [#1=#:last-message arg checkdoc-minor-mode current-message toggle prefix-numeric-value 0 run-hooks checkdoc-minor-mode-hook checkdoc-minor-mode-on-hook checkdoc-minor-mode-off-hook called-interactively-p any message "Checkdoc minor mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 36091) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\305\211%\207" [checkdoc-minor-mode-map add-minor-mode checkdoc-minor-mode checkdoc-minor-mode-string boundp nil] 6)
#@33 Run hooks in HOOKVAR with ARGS.
(defalias 'checkdoc-run-hooks #[(hookvar &rest args) "\302\303!\203\f\304\303	#\207\304\305	#\207" [hookvar args fboundp run-hook-with-args-until-success apply run-hook-with-args] 4 (#$ . 37289)])
(put 'checkdoc-run-hooks 'byte-optimizer 'byte-compile-inline-expand)
#@57 Rebuild the contents of `checkdoc-common-verbs-regexp'.
(defalias 'checkdoc-create-common-verbs-regexp #[nil "\206\302\303\304	\305#\306Q\211\207" [checkdoc-common-verbs-regexp checkdoc-common-verbs-wrong-voice "\\<\\(" mapconcat #[(e) "@\260
\207" [e] 1] "\\|" "\\)\\>"] 5 (#$ . 37597)])
(put 'checkdoc-create-common-verbs-regexp 'byte-optimizer 'byte-compile-inline-expand)
#@331 Return a message string if the current doc string is invalid.
Check for style only, such as the first line always being a complete
sentence, whitespace restrictions, and making sure there are no
hard-coded key-codes such as C-[char] or mouse-[number] in the comment.
See the style guide in the Emacs Lisp manual for more details.
(defalias 'checkdoc-this-string-valid #[nil "\306\307!\203\310y\210\311 \210\312\313w\210\202\314 \313\211A@?\205\316\315	8\204)\n\205\316\316g\317\"?\205\316\313\320\313\321\322\217\210\f\203\274
\323=\204J\324\325!\203\263\212\326c\210`+\306!\203\213\306!\203d\327\310!\210\202W\306\330!\203p\331\224\331\225|\210\310y\210\311 \210\332\313w\210\306!\203Q\311 \210\333\310\334\"\210\202Q\311 \210\335u\210\326c\210\335u\210\336\326+\337#\203\246\340c\210\202\227
\323=\205\257\341\211*\202\315\342\343`\344 #\202\315\342\315	8\203\307\345\202\310\346``T\337$*\211\204\356\306\326!\203\356\347 p,-\350\216\351.!\210\352	!+\202\357*\207" [err fp checkdoc-force-docstrings-flag comment-start have-comment checkdoc-autofix-flag looking-at "[ 	\n]*;" 1 beginning-of-line " \n	" nil checkdoc-defun-info 2 checkdoc-char= 34 ";" (byte-code "\302\303!\210\302\304!\210\305\306w\210\307!\306\207" [comment-start have-comment forward-sexp -1 1 "\n 	" nil looking-at] 2) ((error)) automatic-then-never checkdoc-y-or-n-p "Convert comment to documentation? " "\"" delete-char "[ 	]+" 0 " 	" zap-to-char 59 -1 search-backward t "\\" never checkdoc-create-error "You should convert this comment to documentation" line-end-position "All interactive functions should have documentation" "All variables and subroutines might as well have a documentation string" syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1=#:buffer #2=#:table set-syntax-table] 2)) set-syntax-table checkdoc-this-string-valid-engine docstring-start-point #1# #2# checkdoc-syntax-table] 6 (#$ . 37985)])
#@207 Return an error list or string if the current doc string is invalid.
Depends on `checkdoc-this-string-valid' to reset the syntax table so that
regexp short cuts work.  FP is the function defun information.
(defalias 'checkdoc-this-string-valid-engine #[(fp) "\306`\307\310!\203\212\311\312!\210\313 )\202`\212\312y\210\314 \210`W\205=\307\315!\205=\316\312\224\312\225\317\320$?\205=\321\322\312\224\312\225#)\206\314\212\323\324\325#\205]\316\326\224\326\225\327\330$?\205]\321\331\326\224\326\225#)\206\314\306\211\307\332!\203u\312\224\312\225\211\204\220\212\311\312!\210\333u\210\334\306x\326U?\205\214`S\211)\205\237\316\f\317\320$?\205\237\321\335\f#*\206\314\212\306\210\334\306x\210`V\203\264b\210\333u\210\336g\337\"\203\347\336h\340\"\204\347\333u\210\307\341!?\205\237
\312u\210\316``T\342\343\325%?\205\237
\321\344``T#\202\237
\307\345!\203\361\306\202\237

\203\377\307\346!\203\377\306\202\237
\347`@\314 \210\323\350\325#\203P
\316\326\224T\326\225\351\352\325%\203\215
\306\211AB\353\210iB\212\353\210i)A\354BA\312#\355V\203B
\356@\202L
\357\312!\210\360c\210\306@*\202\215
\306\210\355iZ`CD\312y\210\314 \210\323\361\362 \325#\203\214
iDW\203\214
\316C\211T\363\360\325%\203\214
\312\224b\210`\312\225|\210\352c\210\306@*@\205\236
\321@	\212	b\210\362 )#*)\206\314\212\364\306w\210\307\365!\205\305
\316\326\224\326\225\366\367\326!\226\325%?\205\305
\321\370\326\224\326\225#)\206\314\212\306\211`\371EF\211G\204\360
\323E\325#\211F\203\360
\372\f\"?\211G\203\331
F\205\321\373\367\312!\374\375R\312\224\312\225\325$-\206\314\212\323\376\325HT$\205'\323\377\325#?\205'\321\201e	\201f!#)\206\314\212\325\306\211\211IJK\323\201g\325#\203\307K\204\307\367\312!L\201hL!M\312\224J\312\225IM\203\303\201iM!\203\303\201jM!\203\303\212Jb\210\333v\210\307\201k!)\204\303\316JI\201lL\325%\203\270\201m\201n\201o\306\325\306\211\201p&NJSb\210N\360\261\210\312v\210)\202\303\201q\201rL\"K*\2027K\205\324\321KJI#-\206\314\212`\306O`W\203\306\210`Oi\355W\204\314 \210\323\201sO\325#\204\372\f\"\203\312y\210\202\336\306\210`W\205'i\355V\205'\321\201t	\212	b\210\362 )#+\206\314PA@\325=\203X\201u\201vP@\"\203\210\307\201w!\204\210\321\201x	\201f!\325$\202\205PAAAA\326\312\201yP8\205p\201yP8@\201z\201{\201yP8\"\306QRSTUVV\203T\203TUV\203V@R\235\203\260VAV\325Q\202\212TU\212\323\201|V@\226\201}Q\325#)\211T\204
\325\212\323\201~V@\201Q\325#)\203\316\312\224\312\225\201q\201\200V@V@\226#V@\226\325%\203\312\224T)T\203\212VA\211V\204\217T\204\200\201\201\201q\201\202V@\226\"!\203g\212b\210\333u\210\352Q\2039\201\203\202<\201\204\201\205V@\226\360\261\210\201\206\201\207!c\210\212\333u\210\307\201\210!)\204b\201\211c\210)\306\202\255\321\201q\201\212V@V@\226#	\201f!#\202\255S\203\216S\201\213=\204\231S?\205\255W\205\255TUW\205\255\321\201\214	\201f!\325$.\206\314X\203\210\212Y\204\322\201~\201\215\201\216Z\201\217#\201\220QY\212\306\210\336h\340\"\203\343\362\353!\202\344`)\306\211\211\325[\\]^]\204m\323Y^\325#\203m\201\221\312\224\312\225\"[\201\222[\227Z\"\211]\204\"\201\223\201\224!\210\306\201\225[\306_`\325a\201u`_\f#,\203I\201\226]A!\202L]A)\\\316\312\224\312\225\201q\201\227[\\#\\\325%\203\362\306\211]\203\367]\205\203\321\201q\201\230[\\#\312\224\312\225#.\206\314\212\306`\306\211b@T@\204=\323\201\231\325#\203=\367\312!b\201\232b\306_`\325a\201u`_\f#,\203\315b\326bGSOb\372\f\"\204\224\201\233\f\"\204\224bc\235\204\224\201hb!\211T\203\224\201iT!\204\201jT!\203\224\201q\201\234b\"@\316\312\224\312\224bG\\@\201\235b\201\236Q\325%\203.\306\211@\202\226\201q\201\237b\"\211@\203\231@\205N\321@\312\224\312\224bG\\#-\206\314\212\323\201\240\325#\205~\316\312\224\312\225\201q\201\241\367\353!\"\367\353!\325%?\205~\321\201\242\312\224\312\225#)\206\314\201\243`\"\206\314\201\244`\"\206\314\201\245!\206\314\212\201\246PDVd\201j\201\247!\203\300\201\250\201\247dV#\202\313\201\250\201\251dV#++\207" [e s case-fold-search end start checkdoc-permit-comma-termination-flag nil looking-at "\"" forward-sexp 1 point-marker beginning-of-line "\\([ 	]+\\)[^ 	\n]" checkdoc-autofix-ask-replace "Remove this whitespace? " "" checkdoc-create-error "Second line should not have indentation" re-search-forward "^(" t 0 "Escape this '('? " "\\(" "Open parenthesis in column 0 should be escaped" "\"\\([ 	\n]+\\)" -1 " 	\n" "Documentation strings should not start or end with whitespace" checkdoc-char= 34 92 "[.!?]" "Add period to sentence? " ".\"" "First sentence should end with punctuation" "[\\!?;:.)]" "," "First line is not a complete sentence" "\\. +" "First line not a complete sentence.  Add RET here? " "\n" 2 + 80 "Incomplete auto-fix; doc string may require more formatting" delete-char " " "[.!?:\"]\\([ 	\n]+\\|\"\\)" line-end-position "1st line not a complete sentence.  Join these lines? " "\"\\*" "[a-z]" "Capitalize your sentence? " match-string "First line should be capitalized" "[^`A-Za-z0-9_]\\([CMA]-[a-zA-Z]\\|\\(\\([CMA]-\\)?mouse-[0-3]\\)\\)\\>" checkdoc-in-sample-code-p "Keycode " " embedded in doc string.  Use \\\\<keymap> & \\\\[function] " "instead" "\\\\\\\\\\[\\w+" "\\\\\\\\{\\w+}" msg l2 l1 p numc re m f checkdoc-max-keyref-before-warn me mb ret ms1 sym disambiguate eol fp inopts nocheck order found last-pos args checkdoc-arguments-in-order-flag checkdoc-verb-check-experimental-flag checkdoc-common-verbs-regexp checkdoc-common-verbs-wrong-voice original replace rs lim string regexp inhibit-changing-match-data ms checkdoc-symbol-words hookvar "Too many occurrences of \\[function].  Use \\{keymap} instead" marker-position "`\\(\\sw\\(\\sw\\|\\s_\\)+\\)'" intern-soft boundp fboundp "variable\\|option\\|function\\|command\\|symbol" "Prefix this ambiguous symbol? " completing-read "Disambiguating Keyword (default variable): " (("function") ("command") ("variable") ("option") ("symbol")) "variable" format "Disambiguate %s by preceding w/ function,command,variable,option or symbol." "\\\\\\\\[[<{]" "Some lines are over 80 columns wide" string-match "-flag$" "\"\\*?Non-nil\\s-+means\\s-+" "Flag variable doc strings should usually start: Non-nil means" 3 append ("&optional" "&rest") "\\<" "\\(\\>\\|th\\>\\|s\\>\\|[.,;:]\\)" "\\<\\(" "\\)\\(\\>\\|th\\>\\|s\\>\\)" "If this is the argument `%s', it should appear as %s.  Fix? " checkdoc-y-or-n-p "Add %s documentation to end of doc string? " "Optional a" "A" "rgument " read-string "Describe: " "[.?!]" "." "Argument `%s' should appear (as %s) in the doc string" yes "Arguments occur in the doc string out of order" mapconcat #[(e) "@\260
\207" [e] 1] "\\|" "\\)\\>" buffer-substring-no-properties assoc error "Verb voice alist corrupted" "^[A-Z]" capitalize "Use the imperative for \"%s\".  Replace with \"%s\"? " "Probably \"%s\" should be imperative \"%s\"" "[^-([`':a-zA-Z]\\(\\w+[:-]\\(\\w\\|\\s_\\)+\\)[^](']" "\\.$" checkdoc-in-example-string-p "Add quotes around Lisp symbol `%s'? " "`" "'" "Lisp symbol `%s' should appear in quotes" "\\(`\\(t\\|nil\\)'\\)" "%s should not appear in quotes.  Remove? " "Symbols t and nil should not appear in `...' quotes" checkdoc-sentencespace-region-engine checkdoc-proper-noun-region-engine checkdoc-ispell-docstring-engine checkdoc-style-functions run-hook-with-args-until-success apply run-hook-with-args] 9 (#$ . 39931)])
#@631 Return a list of details about the current sexp.
It is a list of the form:
   (NAME VARIABLE INTERACTIVE NODOCPARAMS PARAMETERS ...)
where NAME is the name, VARIABLE is t if this is a `defvar',
INTERACTIVE is nil if this is not an interactive function, otherwise
it is the position of the `interactive' call, and PARAMETERS is a
string which is the name of each variable in the function's argument
list.  The NODOCPARAMS is a sublist of parameters specified by a checkdoc
comment for a given defun.  If the first element is not a string, then
the token checkdoc-order: <TOKEN> exists, and TOKEN is a symbol read
from the comment.
(defalias 'checkdoc-defun-info #[nil "\212\306 \210\307\310!\307\311!\312\211\313\314\315\"\316u\210\317\316!\210\320\312w\210\321`\317\316!\210`\"C\f\2045\322	B\202\362\312	B\212\323\324\212\325 \210`)\322#	B)\326\312w\210`\212\317\316!\210`){\"\212\312#\323\327\212\325 \210`)\322#\203~\307\330!\203t\331\202{\307\332!\205{\333C#\323\334\212\325 \210`)\322#\203\310\312$\315\225b\210\312\335\336\217\210\n<\204\237\nC\n\203\253\n@9\204\253\312\n\203\277\337\n@!$B$\nA\211\204\257\340#$\"#)#)	B)\341\"!*\n<\204\334\312\204\362\n\203\362\337\n@!	B\nA\211\204\344	\237.\207" [oo ret lst is-advice defun obarray beginning-of-defun looking-at "(def\\(un\\|macro\\|subst\\|advice\\)" "(defadvice" nil make-vector 3 0 1 forward-sexp " \n	" buffer-substring-no-properties t re-search-forward "^\\s-*(interactive" end-of-defun " 	\n" ";\\s-+checkdoc-order:\\s-+" "nil" no "t" yes ";\\s-+checkdoc-params:\\s-+" (byte-code "\301p!\301\207" [lst read] 2) ((error (byte-code "\301\211\207" [lst nil] 2))) symbol-name append read bss sl1 sl] 8 (#$ . 47562)])
#@331 Return non-nil if the current point is in a code fragment.
A code fragment is identified by an open parenthesis followed by a
symbol which is a valid function or a word in all CAPS, or a parenthesis
that is quoted with the ' character.  Only the region from START to LIMIT
is allowed while searching for the bounding parenthesis.
(defalias 'checkdoc-in-sample-code-p #[(start limit) "\305 \306\216\214	\n}\210\212\307\310\311\217\205H\307\312\313\217\205H\212\314u\210\315\316!)\206H\315\317!\205H\320\321\224\321\225\"\322\323!!\206G\307\324\325\")\206G\324\326\"),\207" [save-match-data-internal start limit ms case-fold-search match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) nil (byte-code "\300\301!\210\302\207" [up-list 1 t] 2) ((error)) (byte-code "\300\301!\210\302\207" [forward-list -1 t] 2) ((error)) -1 looking-at "'(" "(\\(\\(\\w\\|[-:_]\\)+\\)[ 	\n;]" buffer-substring-no-properties 1 fboundp intern-soft string-match "^[A-Z-]+$" "\\w[-:_]+\\w"] 3 (#$ . 49296)])
#@178 Return non-nil if the current point is in an "example string".
This string is identified by the characters \" surrounding the text.
The text checked is between START and LIMIT.
(defalias 'checkdoc-in-example-string-p #[(start limit) "\305 \306\216\212`\307b\210`\nW\203!\310\311\f\312#\203!	T\202
\307	W\205,	\313\246\307U-\207" [save-match-data-internal c p start limit match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 0 re-search-forward "\\\\\"" t 2] 4 (#$ . 50341)])
#@302 Check all text between BEGIN and END for lower case proper nouns.
These are Emacs centric proper nouns which should be capitalized for
consistency.  Return an error list if any are not fixed, but
internally skip over no answers.
If the offending word is in a piece of quoted text, then it is skipped.
(defalias 'checkdoc-proper-noun-region-engine #[(begin end) "\212\306\211\211\211\307 p\310\216\311!\210b\210\312\313#\203\252\314\315!\315\224\315\225 \212b\210\316u\210\317\320!)\204\246f\321U\203PSf\321U\204\246\322\"\204\246\323!!\204\246\323\"!\204\246\324\325\326 \"\327 !\313%\204\246\n\203\226#\203\246\330\325\331 \327 !##\210\202\246\325\331 \327 !#+\202+\n\205\264\330\n	#-\207" [be bb errtxt case-fold-search #1=#:buffer #2=#:table nil syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-syntax-table] 2)) set-syntax-table re-search-forward t match-string 1 -1 looking-at "`\\|\"\\|\\.\\|\\\\" 47 checkdoc-in-example-string-p thing-at-point-looking-at checkdoc-autofix-ask-replace format "Text %s should be capitalized.  Fix? " capitalize checkdoc-create-error "Name %s should appear capitalized as %s" checkdoc-syntax-table begin checkdoc-proper-noun-regexp end e b text help-xref-info-regexp help-xref-url-regexp checkdoc-generate-compile-warnings-flag] 6 (#$ . 50876)])
#@67 Make sure all sentences have double spaces between BEGIN and END.
(defalias 'checkdoc-sentencespace-region-engine #[(begin end) "\205\204\212\306\211\211\211\307 p\310\216\311!\210b\210\312\313\314#\203y\315\224\315\225\316\"\204u\317\"\204u\212b\210\306\320\321\217)\204u\322\323\324$\204u\203m\203u\325\326#\210\202u\326*\202+\205\203\325\n	#-\207" [sentence-end-double-space be bb errtxt case-fold-search #1=#:buffer nil syntax-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2=#:table set-syntax-table] 2)) set-syntax-table re-search-forward "[^ .0-9]\\(\\. \\)[^ \n]" t 1 checkdoc-in-sample-code-p checkdoc-in-example-string-p (byte-code "\300\301!\210\302\303!\207" [forward-sexp -1 looking-at "\\([a-zA-Z]\\|[iI]\\.?e\\|[eE]\\.?g\\)\\."] 2) ((error t)) checkdoc-autofix-ask-replace "There should be two spaces after a period.  Fix? " ".  " checkdoc-create-error "There should be two spaces after a period" #2# checkdoc-syntax-table begin end e b checkdoc-generate-compile-warnings-flag] 5 (#$ . 52251)])
#@205 Initialize Ispell process (default version) with Lisp words.
The words used are from `checkdoc-ispell-lisp-words'.  If `ispell'
cannot be loaded, then set `checkdoc-spellcheck-documentation-flag' to
nil.
(defalias 'checkdoc-ispell-init #[nil "\300\301!\210\302J?\205\303\304\305\217\207" [require ispell ispell-process nil (byte-code "\302 \210\211\205\303\304J\305	@\306Q\"\210	A\211\204	\307)\207" [checkdoc-ispell-lisp-words w ispell-buffer-local-words process-send-string ispell-process "@" "\n" nil] 6) ((error (byte-code "\301\211\207" [checkdoc-spellcheck-documentation-flag nil] 2)))] 3 (#$ . 53334)])
#@167 Run the Ispell tools on the doc string between point and END.
Since Ispell isn't Lisp-smart, we must pre-process the doc string
before using the Ispell engine on it.
(defalias 'checkdoc-ispell-docstring-engine #[(end) "?\206
	?\206
	\306=?\205\223\307 \210\212\310\311w\210\311\211\211\211\n\204\221`W\203\221\212\312u\210\313\314!)\203>\315\316!\210\202\212\317`\320\311w\210`\"\321
!\211\203[\322\f!\204\212\323\f!\204\212\324\325
\"\204\212\313\326!\204\212\212	\306=\204\211\327\311\330\"\210\232\204\210\331\332!\210\333\334!\210))\310\311w\210\202!\n-\207" [checkdoc-spellcheck-documentation-flag checkdoc-autofix-flag err case-fold-search sym word never checkdoc-ispell-init "^a-zA-Z" nil -1 looking-at "[('`]" forward-sexp 1 buffer-substring-no-properties "a-zA-Z-" intern-soft boundp fboundp string-match "^[A-Z][A-Z]+\\(s\\|th\\)?$" "}" ispell-word t sit-for 0 message "Continuing..." end last-input-event lk] 5 (#$ . 53960)])
#@295 Return a message list if there is a line with white space at the end.
If `checkdoc-autofix-flag' permits, delete that whitespace instead.
If optional arguments START and END are non-nil, bound the check to
this region.
Optional argument INTERACT may permit the user to fix problems on the fly.
(defalias 'checkdoc-rogue-space-check-engine #[(&optional start end interact) "`\306\211\211\211
\204e
b\210\204F\307\310\311#\203F\312\313\224\313\225\311\203\314\315P!\203\316!\210\306\nb\210\317 \210\202
b\210\204l\307\320\311#\203l\321\322\224\322\225\323\324$\204I\325\322\224\322\225\202I\203y\326\n	$\202}\fb\210\306-\207" [f e s msg p start nil re-search-forward "\\?\\\\?[ 	][ 	]*$" t "Don't use `? ' at the end of a line. News agents may remove it" 0 y-or-n-p ". Fix? " checkdoc-recursive-edit beginning-of-line "[^ 	\n;]\\([ 	]+\\)$" checkdoc-autofix-ask-replace 1 "White space at end of line.  Remove? " "" "White space found at end of line" checkdoc-create-error end interact] 5 (#$ . 54936)])
#@185 Return a message list if this file does not match the Emacs standard.
This checks for style only, such as the first line, Commentary:,
Code:, and others referenced in the style guide.
(defalias 'checkdoc-file-comments-engine #[nil "\306\307!\204\310\307!\210\311\312!\204\313\314!\203\315\312\314\"\210\212\316\317 !\320!	G\321O\321eb\210\322 ?\205W\323\324!\203Leb\210\325	\n\326\327\330!\331\261\202W\332\333e\212eb\210\334 )#\335\f!\204\260eb\210\336\337\321\340#\203r\336\341\321\340#\210\202\234\336\342\321\340#\204\222\336\343\321\340#\204\222\336\344\321\340#\204\222\336\345\321\340#\203\230\346 \210\202\234\336\347!\210\323\350!\203\247\351c\202\255\332\352\321\211\340$\206\261
\203
\353\354!\204
\353\355!\204
\356\311	!\205\314	 )\204
\335\f!\206\327eb\210\336\337\321\340#\203\352\336\341\321\340#\210\202
\336\343\321\340#\204
\336\344\321\340#\204
\336\345\321\340#\203
\346 \210\323\357!\203
\360c\202
\332\361`\321#\206
\335\362!\204m
\340\321@Aeb\210\310\363!\210A\203N
\336\364\365B!\366\367R\321\340#\203N
\370\224@\371\372!\211A\2042
A\204d
\323\373!\203d
@b\210\374c\210\321\202i
\332\375`\321#*\206n
\212db\210\376\377\365	!\201G\365\n!\201H\201I\365	!\201G\365\n!\201J\260\n\321\340#?\205\304
\323\201K!\203\265
db\210\201L	\201M	\n\201N\261\202\304
\332\201O\201P	\211\n$dSd#)\206\311
\335\f!\211C\203\373
\212Cb\210\201Q\201R\f!!D\201S`D\"\210\201T`D\"\210\201UD!\210*)\201V\321EF\311\201W!\203\201X\201WFE#\202%\201X\201YFE#*\206*\211-\207" [f1 fn fe err lm-commentary-header checkdoc-force-history-flag featurep lisp-mnt require fboundp lm-commentary-mark boundp lm-commentary defalias file-name-nondirectory buffer-file-name file-name-sans-extension nil lm-summary checkdoc-y-or-n-p "There is no first line summary!  Add one? " ";;; " " --- " read-string "Summary: " "\n" checkdoc-create-error "The first line should be of the form: \";;; package --- Summary\"" line-end-position lm-section-start re-search-forward "write\\s-+to\\s-+the\\s-+Free Software Foundation, Inc." t "^;;\\s-*\n\\|^\n" "^;;; History" "^;;; Code" "^(require" "^(" beginning-of-line ";;; .* --- .*\n" "You should have a \";;; Commentary:\", add one? " "\n;;; Commentary:\n;; \n\n" "You should have a section marked \";;; Commentary:\"" file-exists-p "ChangeLog" "../ChangeLog" lm-history-mark "You should have a \";;; History:\", add one? " "\n;;; History:\n;; \n\n" "You should have a section marked \";;; History:\" or use a ChangeLog" "Code" autoload "^\\(" regexp-quote "\n\\)?" "(" 0 looking-at "require\\s-+" "There is no ;;; Code: marker.  Insert one? " ";;; Code:\n\n" "You should have a section marked \";;; Code:\"" re-search-backward "^;;;[ 	]+" pos cont generate-autoload-cookie cm e args hookvar "\\(" "\\)?[ 	]+ends here[ 	]*$" "\\|^;;;[ 	]+ End of file[ 	]+" "\\)?" "No identifiable footer!  Add one? " "\n(provide '" ")\n\n;;; " " ends here\n" format "The footer should be: (provide '%s)\\n;;; %s%s ends here" copy-marker lm-section-end checkdoc-sentencespace-region-engine checkdoc-proper-noun-region-engine checkdoc-ispell-docstring-engine checkdoc-comment-style-functions run-hook-with-args-until-success apply run-hook-with-args] 12 (#$ . 55987)])
#@58 Return t if point is outside the bounds of a valid sexp.
(defalias 'checkdoc-outside-major-sexp #[nil "\302 \303\216\212`\304 \210o\206\305 \210`	W,\207" [save-match-data-internal p match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) beginning-of-defun end-of-defun] 2 (#$ . 59265)])
#@176 Search between BEG and END for a style error with message text.
Optional arguments BEG and END represent the boundary of the check.
The default boundary is the entire buffer.
(defalias 'checkdoc-message-text-search #[(&optional beg end) "\304\211\n\204\204ed\nb\210\305!\211\203\"\306!\202	*\207" [type e beg end nil checkdoc-message-text-next-string checkdoc-message-text-engine] 2 (#$ . 59605)])
#@147 Move cursor to the next checkable message string after point.
Return the message classification.
Argument END is the maximum bounds to search in.
(defalias 'checkdoc-message-text-next-string #[(end) "\304\204N\305\306	\307#\203N\310\311!\312\313\n\"\203\314\202\315\312\316\n\"\203.\317\320!\210\321\304w\210\315=\203>\322\323!\203>\324\225b\210\321\304w\210\322\325!\203J*\202)\207" [return end fn type nil re-search-forward "(\\s-*\\(\\(\\w\\|\\s_\\)*error\\|\\(\\w\\|\\s_\\)*y-or-n-p\\(-with-timeout\\)?\\|checkdoc-autofix-ask-replace\\)[ 	\n]+" t match-string 1 string-match "error" error y-or-n-p "checkdoc-autofix-ask-replace" forward-sexp 2 " 	\n" looking-at "(format[ 	\n]+" 0 "\""] 4 (#$ . 60026)])
#@343 Return or fix errors found in strings passed to a message display function.
According to the documentation for the function `error', the error list
should not end with a period, and should start with a capital letter.
The function `y-or-n-p' has similar constraints.
Argument TYPE specifies the type of question, such as `error or `y-or-n-p.
(defalias 'checkdoc-message-text-engine #[(&optional type) "\204 \212\302\303!\210\304\305!\203\302\303!\210\304\306!\203\307\202\310)\311\212\312u\210\304\313!)\203G\314\315\224\315\225\316\317\320\315!!\321%\204G\322\323\315\224\315\225#\206
\324`\212\325\312!\210`)\"\206
\326`\212\325\312!\210`)\"\206
\307=\203\214\212\325\312!\210\327u\210\304\330!)\203\214\314\315\224\315\225\331\332\321%\204\214\322\333\315\224\315\225#\206
\310=\203
\212\325\312!\210\334u\210\304\335!)\204
\212\325\312!\210\327u\210\304\336!)\203\306\314\315\224\315\225\337\340\321%\204
\322\341\315\224\315\225#\202

\212\325\312!\210\327u\210\304\342!)\203\353\314\315\224\315\225\337\340\321%\204
\322\341\315\224\315\225#\202

\212\325\312!\210\303u\210\304\343!)\203
\314\315\224\315\225\337\344\321%\204
\322\341\315\224\315\225#\206
\345\212\325\312!\210`)!)\207" [type case-fold-search up-list -1 looking-at "(format" "(error" error y-or-n-p nil 1 "[a-z]\\w+" checkdoc-autofix-ask-replace 0 "Capitalize your message text? " capitalize match-string t checkdoc-create-error "Messages should start with a capital letter" checkdoc-sentencespace-region-engine forward-sexp checkdoc-proper-noun-region-engine -2 "\\." "Remove period from error? " "" "Error messages should *not* end with a period" -3 "\\? " "\\?" "`y-or-n-p' argument should end with \"? \".  Fix? " "? " "`y-or-n-p' argument should end with \"? \"" " " "\"" "? \"" checkdoc-ispell-docstring-engine] 7 (#$ . 60761)])
#@119 Like `y-or-n-p', but pays attention to `checkdoc-autofix-flag'.
Argument QUESTION is the prompt passed to `y-or-n-p'.
(defalias 'checkdoc-y-or-n-p #[(question) "?\206\302=?\205\303	!\304=\203\302\207" [checkdoc-autofix-flag question never y-or-n-p automatic-then-never] 3 (#$ . 62606)])
#@577 Highlight between START and END and queries the user with QUESTION.
If the user says yes, or if `checkdoc-autofix-flag' permits, replace
the region marked by START and END with REPLACEWITH.  If optional flag
COMPLEX is non-nil, then we may ask the user a question.  See the
documentation for `checkdoc-autofix-flag' for details.

If a section is auto-replaced without asking the user, this function
will pause near the fixed code so the user will briefly see what
happened.

This function returns non-nil if the text was replaced.

This function will not modify `match-data'.
(defalias 'checkdoc-autofix-ask-replace #[(start end question replacewith &optional complex) "\205|\306=?\205|\307	\n\"\310\311 \312\216\313
\314\315#\210\316=\204F\317=\204F\320=\2034\203F\321=\204?\203i\322!\203i\212	b\210\203U\323\324\"\210	\n|\210c\210\203f\325\326!\210\327)\330
!\210\331!\210)\317=\203z\306\f+\207" [checkdoc-autofix-flag start end md ret o never checkdoc-make-overlay nil match-data ((byte-code "\302!\210\303	!\207" [o md checkdoc-delete-overlay set-match-data] 2)) checkdoc-overlay-put face highlight automatic automatic-then-never semiautomatic query y-or-n-p message "%s -> done" sit-for 0 t checkdoc-delete-overlay set-match-data complex question checkdoc-bouncy-flag replacewith] 4 (#$ . 62910)])
#@58 Keywords used to highlight a checkdoc diagnostic buffer.
(defvar checkdoc-output-font-lock-keywords '(("^\\*\\*\\* \\(.+\\.el\\): \\([^ \n]+\\)" (1 font-lock-function-name-face) (2 font-lock-comment-face))) (#$ . 64259))
(defvar checkdoc-output-error-regex-alist '(("^\\(.+\\.el\\):\\([0-9]+\\): " 1 2)))
#@65 Non-nil when there are errors that have not been displayed yet.
(defvar checkdoc-pending-errors nil (#$ . 64570))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [checkdoc-output-mode-hook variable-documentation put purecopy "Hook run when entering Checkdoc mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp checkdoc-output-mode-map definition-name checkdoc-output-mode] 5)
(defvar checkdoc-output-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [checkdoc-output-mode-map variable-documentation put purecopy "Keymap for `checkdoc-output-mode'." boundp checkdoc-output-mode-syntax-table definition-name checkdoc-output-mode] 5)
(defvar checkdoc-output-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [checkdoc-output-mode-syntax-table variable-documentation put purecopy "Syntax table for `checkdoc-output-mode'." checkdoc-output-mode-abbrev-table definition-name checkdoc-output-mode] 5)
(defvar checkdoc-output-mode-abbrev-table (progn (define-abbrev-table 'checkdoc-output-mode-abbrev-table nil) checkdoc-output-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [checkdoc-output-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `checkdoc-output-mode'." checkdoc-output-mode derived-mode-parent compilation-mode] 5)
#@269 Set up the major mode for the buffer containing the list of errors.

In addition to any hooks its parent mode `compilation-mode' might have run,
this mode runs the hook `checkdoc-output-mode-hook', as the final step
during initialization.

\{checkdoc-output-mode-map}
(defalias 'checkdoc-output-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\326\325C#\210\327!\210\330\f!\210\306\331!\210\306\332!\210 )\333\334!\207" [delay-mode-hooks major-mode mode-name checkdoc-output-mode-map checkdoc-output-mode-syntax-table parent make-local-variable t compilation-mode checkdoc-output-mode "Checkdoc" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table compilation-error-regexp-alist compilation-mode-font-lock-keywords run-mode-hooks checkdoc-output-mode-hook checkdoc-output-mode-abbrev-table local-abbrev-table checkdoc-output-error-regex-alist checkdoc-output-font-lock-keywords] 6 (#$ . 66154) nil])
#@58 The name to use for a checkdoc buffer in the error list.
(defalias 'checkdoc-buffer-label #[nil "\300 \203\n\301\300 !\207\302\303 \304Q\207" [buffer-file-name file-relative-name "#<buffer " buffer-name ">"] 3 (#$ . 67386)])
#@163 Initialize the checkdoc diagnostic buffer for a pass.
Create the header so that the string CHECK-TYPE is displayed as the
function called to create the messages.
(defalias 'checkdoc-start-section #[(check-type) "\306 r\307!q\210\310 \210\ndb\210\311\312	\313
\314
\261,\207" [default-directory label dir checkdoc-diagnostic-buffer inhibit-read-only check-type checkdoc-buffer-label get-buffer-create checkdoc-output-mode t "\n\n\f\n*** " ": " " V " checkdoc-version] 6 (#$ . 67619)])
#@66 Store POINT and MSG as errors in the checkdoc diagnostic buffer.
(defalias 'checkdoc-error #[(point msg) "\306\307\310 \311\312\313e	\206e\"!\314\n\257r\315\f!q\210db\210\306\316\317\"+\207" [checkdoc-pending-errors point msg text checkdoc-diagnostic-buffer inhibit-read-only t "\n" checkdoc-buffer-label ":" int-to-string count-lines ": " get-buffer apply insert] 7 (#$ . 68117)])
#@63 Display the checkdoc diagnostic buffer in a temporary window.
(defalias 'checkdoc-show-diagnostics #[nil "\205+\303	!\211\203#\304\n!\210db\210\305\306\307\310#\210\311 \210\312y\210\313\314!\210\315\316!\210\307)\307\207" [checkdoc-pending-errors checkdoc-diagnostic-buffer b get-buffer pop-to-buffer re-search-backward "\f" nil t beginning-of-line 1 recenter 0 other-window -1] 5 (#$ . 68512)])
(byte-code "\300\301\302\"\210\303\304!\207" [custom-add-option emacs-lisp-mode-hook checkdoc-minor-mode provide checkdoc] 3)