Linux ns8.secondary29.go.th 2.6.32-754.28.1.el6.x86_64 #1 SMP Wed Mar 11 18:38:45 UTC 2020 x86_64
Apache/2.2.15 (CentOS)
: 122.154.134.11 | : 122.154.134.9
Cant Read [ /etc/named.conf ]
5.6.40
apache
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
23.1 /
lisp /
emacs-lisp /
[ HOME SHELL ]
Name
Size
Permission
Action
advice.elc
60.71
KB
-rw-r--r--
assoc.elc
4.37
KB
-rw-r--r--
authors.elc
27.41
KB
-rw-r--r--
autoload.elc
15.7
KB
-rw-r--r--
avl-tree.elc
15.92
KB
-rw-r--r--
backquote.elc
4.46
KB
-rw-r--r--
benchmark.elc
3.33
KB
-rw-r--r--
bindat.elc
10.84
KB
-rw-r--r--
byte-opt.elc
34.22
KB
-rw-r--r--
byte-run.elc
6.65
KB
-rw-r--r--
bytecomp.elc
124.99
KB
-rw-r--r--
check-declare.elc
8.77
KB
-rw-r--r--
checkdoc.elc
65.08
KB
-rw-r--r--
cl-compat.elc
4.28
KB
-rw-r--r--
cl-extra.elc
21.48
KB
-rw-r--r--
cl-indent.elc
13.98
KB
-rw-r--r--
cl-loaddefs.el
39.57
KB
-rw-r--r--
cl-macs.elc
99.36
KB
-rw-r--r--
cl-seq.elc
43.98
KB
-rw-r--r--
cl-specs.el
13.87
KB
-rw-r--r--
cl.elc
20.74
KB
-rw-r--r--
copyright.elc
8.64
KB
-rw-r--r--
crm.elc
7.94
KB
-rw-r--r--
cust-print.elc
12.77
KB
-rw-r--r--
debug.elc
24.86
KB
-rw-r--r--
derived.elc
10.72
KB
-rw-r--r--
disass.elc
5.09
KB
-rw-r--r--
easy-mmode.elc
14.85
KB
-rw-r--r--
easymenu.elc
20.15
KB
-rw-r--r--
edebug.elc
100.82
KB
-rw-r--r--
eldoc.elc
15.31
KB
-rw-r--r--
elint.elc
19.76
KB
-rw-r--r--
elp.elc
12.78
KB
-rw-r--r--
ewoc.elc
28.62
KB
-rw-r--r--
find-func.elc
17.26
KB
-rw-r--r--
find-gc.elc
3.74
KB
-rw-r--r--
float-sup.elc
1.39
KB
-rw-r--r--
generic.elc
6.55
KB
-rw-r--r--
gulp.elc
4.82
KB
-rw-r--r--
helper.elc
3.84
KB
-rw-r--r--
levents.elc
10.29
KB
-rw-r--r--
lisp-mnt.elc
21.87
KB
-rw-r--r--
lisp-mode.elc
37.14
KB
-rw-r--r--
lisp.elc
21.61
KB
-rw-r--r--
lmenu.elc
11.67
KB
-rw-r--r--
lucid.elc
6.22
KB
-rw-r--r--
macroexp.elc
4.45
KB
-rw-r--r--
map-ynp.elc
6.3
KB
-rw-r--r--
pp.elc
5.09
KB
-rw-r--r--
re-builder.elc
22.36
KB
-rw-r--r--
regexp-opt.elc
4.43
KB
-rw-r--r--
regi.elc
6.15
KB
-rw-r--r--
ring.elc
6.41
KB
-rw-r--r--
rx.elc
26.61
KB
-rw-r--r--
shadow.elc
5.63
KB
-rw-r--r--
sregex.elc
12.45
KB
-rw-r--r--
syntax.elc
5.18
KB
-rw-r--r--
tcover-ses.elc
14.68
KB
-rw-r--r--
tcover-unsafep.elc
4.09
KB
-rw-r--r--
testcover.elc
13.41
KB
-rw-r--r--
timer.elc
22.73
KB
-rw-r--r--
tq.elc
3.94
KB
-rw-r--r--
trace.elc
5.28
KB
-rw-r--r--
unsafep.elc
5.01
KB
-rw-r--r--
warnings.elc
9.61
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : checkdoc.elc
;ELC ;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:53 2015 ;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/checkdoc.el ;;; in Emacs version 23.1.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`checkdoc.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@56 Release version of checkdoc you are currently running. (defvar checkdoc-version "0.6.1" (#$ . 618)) (custom-declare-group 'checkdoc nil "Support for doc string checking in Emacs Lisp." :prefix "checkdoc" :group 'lisp :version "20.3") #@78 *String to display in mode line when Checkdoc mode is enabled; nil for none. (custom-declare-variable 'checkdoc-minor-mode-string '" CDoc" '(#$ . -858) :type '(choice string (const :tag "None" nil)) :group 'checkdoc :version "23.1") #@465 Non-nil means attempt auto-fixing of doc strings. If this value is the symbol `query', then the user is queried before any change is made. If the value is `automatic', then all changes are made without asking unless the change is very-complex. If the value is `semiautomatic' or any other value, then simple fixes are made without asking, and complex changes are made by asking the user first. The value `never' is the same as nil, never ask or change anything. (custom-declare-variable 'checkdoc-autofix-flag ''semiautomatic '(#$ . 1098) :group 'checkdoc :type '(choice (const automatic) (const query) (const never) (other :tag "semiautomatic" semiautomatic))) #@183 Non-nil means to "bounce" to auto-fix locations. Setting this to nil will silently make fixes that require no user interaction. See `checkdoc-autofix-flag' for auto-fixing details. (custom-declare-variable 'checkdoc-bouncy-flag 't '(#$ . 1769) :group 'checkdoc :type 'boolean) #@240 Non-nil means that all checkable definitions should have documentation. Style guide dictates that interactive functions MUST have documentation, and that it's good but not required practice to make non user visible items have doc strings. (custom-declare-variable 'checkdoc-force-docstrings-flag 't '(#$ . 2054) :group 'checkdoc :type 'boolean) #@149 Non-nil means that files should have a History section or ChangeLog file. This helps document the evolution of, and recent changes to, the package. (custom-declare-variable 'checkdoc-force-history-flag 't '(#$ . 2406) :group 'checkdoc :type 'boolean) #@326 Non-nil means the first line of a docstring may end with a comma. Ordinarily, a full sentence is required. This may be misleading when there is a substantial caveat to the one-line description -- the comma should be used when the first part could stand alone as a sentence, but it indicates that a modifying clause follows. (custom-declare-variable 'checkdoc-permit-comma-termination-flag 'nil '(#$ . 2664) :group 'checkdoc :type 'boolean) #@429 Non-nil means run Ispell on text based on value. This is automatically set to nil if Ispell does not exist on your system. Possible values are: nil - Don't spell-check during basic style checks. defun - Spell-check when style checking a single defun buffer - Spell-check when style checking the whole buffer interactive - Spell-check during any interactive check. t - Always spell-check (custom-declare-variable 'checkdoc-spellcheck-documentation-flag 'nil '(#$ . 3112) :group 'checkdoc :type '(choice (const nil) (const defun) (const buffer) (const interactive) (const t))) #@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") (#$ . 3734)) #@176 The number of \ [command-to-keystroke] tokens allowed in a doc string. Any more than this and a warning is generated suggesting that the construct \ {keymap} be used instead. (custom-declare-variable 'checkdoc-max-keyref-before-warn '10 '(#$ . 3929) :group 'checkdoc :type 'integer) #@300 Non-nil means warn if arguments appear out of order. Setting this to nil will mean only checking that all the arguments appear in the proper form in the documentation, not that they are in the same order as they appear in the argument list. No mention is made in the style guide relating to order. (custom-declare-variable 'checkdoc-arguments-in-order-flag 't '(#$ . 4219) :group 'checkdoc :type 'boolean) #@358 Hooks called after the standard style check is completed. All hooks 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-hooks nil (#$ . 4633)) #@200 Hooks called 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-hooks nil (#$ . 5043)) #@33 Name of warning message buffer. (defvar checkdoc-diagnostic-buffer "*Style Warnings*" (#$ . 5302)) #@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]+" (#$ . 5408)) #@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 '(#$ . 5662) :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 (#$ . 5987)) #@188 A list of symbols which also happen to make good words. These symbol-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 '(#$ . 6215) :group 'checkdoc :type '(repeat (symbol :tag "Word"))) #@62 List of words (not capitalized) which should be capitalized. (defvar checkdoc-proper-noun-list '("ispell" "xemacs" "emacs" "lisp") (#$ . 6529)) #@64 Regular expression derived from `checkdoc-proper-noun-regexp'. (defvar checkdoc-proper-noun-regexp (byte-code "\303 \203 \n @ A\203 \304\202 \305Q A\211\204 \n\306P*\207" [checkdoc-proper-noun-list l expr "\\_<\\(" "\\|" "" "\\)\\_>"] 4) (#$ . 6679)) #@65 Regular expression derived from `checkdoc-common-verbs-regexp'. (defvar checkdoc-common-verbs-regexp nil (#$ . 6945)) #@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")) (#$ . 7070)) #@52 Syntax table used by checkdoc in document strings. (defvar checkdoc-syntax-table nil (#$ . 9152)) (byte-code "\204 \302 !\303\304\305#\210\306\307\310\"\210\306\311\312\"\210\306\313\314\"\210\306\315\316\"\210\306\317\320\"\210\306\321\322\"\210\306\323\324\"\207" [checkdoc-syntax-table emacs-lisp-mode-syntax-table copy-syntax-table modify-syntax-entry 45 "w" 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= =] 4) #@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\210 A\305\240\210\313 !\210\320\312\321\"\211\203Z A\322\323\nG\"\240\210\202_ A\317\240\210 AA\305\240\210\313 !\210\324\312\321\"\211\203 AA\322\323\nG\"\240\210\202\205 AA\317\240\210 AAA\305\240\210\313 !\210\312\325\326\217\203\241 AAA\316\240\210\202\250 AAA\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 (#$ . 9782) 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) "\303\304\220\305 @\306\307 A@\306\310\311 8\306\312\313 8\257 \211\203) \314\n@!\210\nA\211\204 \314\306!)\221\210)\315\316\304!!\210\317\303!\210\320\321!\207" [temp-buffer-setup-hook check args nil " *Checkdoc Status*" "Buffer comments and tags: " "\n" "Documentation style: " "Message/Query text style: " 2 "Unwanted Spaces: " 3 princ shrink-window-if-larger-than-buffer get-buffer-window message sit-for 0] 14 (#$ . 10795)]) #@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 (#$ . 11500) "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 (#$ . 12228) "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) "`\204 eb\210\n\306>@ \307!C \307\211 \307 \310\213\210 b\210\311\312!\203+ \313\312!\210\314\315!\210.\207" [start-here begin checkdoc-spellcheck-documentation-flag findfunc err-list cdo (buffer interactive t) nil ((byte-code "@\204 \306\307 \210\203O@Ab\210@@;\203( \212\310`\311\312!\210`\")\2025 \310\313@@!\314@@!\"\315\216\316 \317\320#\210\321\322!\210\323\324!\203{ \325\212\311\312!\210`)\326 \"\204{ \327`\212\311\312!\210`)\"\211\330 V\203n \331\312!\210\202w \331\330 \nZ\332\245!\210)\202~ \331 \210\333\334\335@@!\336@@!\203\221 \337\202\222 \340#\210\212\313@@!b\210\325 \204\250 \331\330 \332Z!\210\341 ) \250\204\263 \342\343 \344\"\203\302 \345\346\306\"\210\202K\343 \347\"\204\320 \343 \350\"\203,\351 !\210\306@Ab\210\352\306 @\353!\210 \352=?\211\204\370 \333\354!\210\321\332!\210\202\373 A*\307 \210@\306!\211 A\203AB\202(\204 \333\355!\210\321\332!\210\202(\333\356!\210\321\332!\210)\202K\343 \357\"\204:\343 \360\"\203p@\306!\211 A\204gB\203QC\306\202l\204\\\333\355!\210\202`\333\356!\210\321\332!\210\202lAB)\202K\343 \361\"\204~\343 \362\"\203\236G\312U\204\223A\211@Ab\210\307 \210\202K\333\363!\210\321\332!\210\202K\343 \364\"\203\342\365\335@@!!\210\351 !\210A\307 \210@\306!\211 A\204\331B\203\316C\306\202\336\333\355!\210\321\332!\210\202\336AB)\202K\343 \366\"\203\364C\306`D\202K\367\370!\203\371\367\370!!\210\372\370!\210\202K\370\220\373\336@@!\203\337\202\374\375\376\377\201F \201G \257\211 E\2039\201H E@!\210EA\211E\204(\201H \201I !)\221\210\201J \367\370!!\210)\202\n \306\207" [err-list cdo l c fixed checkdoc-autofix-flag nil 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 "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" findfunc ne showstatus returnme begin args "q - Quit checkdoc.\n" "C-h - Toggle this help buffer." princ "\n" shrink-window-if-larger-than-buffer] 9)) get-buffer "*Checkdoc Help*" kill-buffer message "Checkdoc: Done." returnme c] 3 (#$ . 12984)]) #@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\202 eb\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 (#$ . 16599)]) #@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\202 eb\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 (#$ . 17257)]) #@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 (#$ . 17935)]) #@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 (#$ . 18892)]) #@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) "\302\220\303\304E\211\203 \305 @!\210 A\211\204 \305\306!)\221\210\307\310\302!!\210\311\312!\210\313\216\314 )\207" [msg args "*Checkdoc Help*" "Error message:\n " "\n\nEdit to fix this problem, and press C-M-c to continue." princ "\n" 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] 5 (#$ . 19688)]) #@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 (#$ . 20412) 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) "t\203 \305\306!\210\307>@ \203 \310\202 \n \206 \203% \311\312!\210\f\203. \313 \206N \314 \206N \315 \206N \316 \206N t?\206N \203K \317 \206N \305\320!+\207" [checkdoc-spellcheck-documentation-flag take-notes checkdoc-autofix-flag checkdoc-generate-compile-warnings-flag buffer-file-name 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 (#$ . 20780) "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 t\203 \302\303!\210\304 !\210b\210)\305\207" [p take-notes checkdoc-start-section "checkdoc-start" checkdoc-continue nil] 2 (#$ . 21632) "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 \210t\205M \317\320!-\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 error "%s" checkdoc-error-text checkdoc-show-diagnostics message "No style warnings."] 6 (#$ . 22131) "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 (#$ . 22959)]) #@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 \310\315\316\f!\"\210\317 \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 "%s" checkdoc-error-text checkdoc-show-diagnostics] 4 (#$ . 23251) "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 t\204& \2029 \2033 \312\313\314 !\"\2029 \315 \210\312\316!+\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 message "%s" checkdoc-error-text checkdoc-show-diagnostics "Space Check: done."] 4 (#$ . 23999) "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 t\204( \n\210\2029 \n\2036 \312\313\314\n!\"\210\2029 \315 \210 b\210,t\205D \316\317!\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 error "%s" checkdoc-error-text checkdoc-show-diagnostics message "Checking interactive message text...done."] 4 (#$ . 24753) "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 (#$ . 25401) 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!\205\217 \310\225b\210\311\312!\210\313\314w\210 \315>@\212\306 \210`)\212\316 \210`)\317 \211 \203H \203> \320\321\322\f!\"\210\202\207 \323\321\322\f!\"\210\202\207 \324\n \"\211\203i \203_ \320\321\322\f!\"\210\202\207 \323\321\322\f!\"\210\202\207 \325\n \"\211\203\207 \203\200 \320\321\322\f!\"\210\202\207 \323\321\322\f!\"\210t\205\216 \320\326!,)\207" [checkdoc-defun-regexp checkdoc-spellcheck-documentation-flag beg end msg no-error beginning-of-defun looking-at 0 forward-sexp 1 " \n " nil (defun t) end-of-defun checkdoc-this-string-valid message "%s" checkdoc-error-text error checkdoc-message-text-search checkdoc-rogue-space-check-engine "Checkdoc: done."] 5 (#$ . 25820) 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 (#$ . 26890) 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 (#$ . 27254) 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 (#$ . 27672) 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 (#$ . 28092) 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 (#$ . 28538) 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 (#$ . 28956) 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 (#$ . 29338) 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 (#$ . 29744) 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 (#$ . 30149) 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 (#$ . 30542)]) #@48 Return the text specified in the checkdoc ERR. (defalias 'checkdoc-error-text #[(err) ";\203 \207@\207" [err] 1 (#$ . 31149)]) #@55 Return the start point specified in the checkdoc ERR. (defalias 'checkdoc-error-start #[(err) ";?\205 A@\207" [err] 1 (#$ . 31286)]) #@53 Return the end point specified in the checkdoc ERR. (defalias 'checkdoc-error-end #[(err) ";?\205 \3018\207" [err 2] 2 (#$ . 31428)]) #@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 (#$ . 31571)]) #@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) (#$ . 31743)) (byte-code "\301\302\300\303#\210\304\302\300\305#\210\306\303\307\310$\207" [checkdoc-minor-mode-map defvaralias checkdoc-minor-keymap nil make-obsolete-variable "21.1" easy-menu-do-define "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])] 5) #@107 Non-nil if Checkdoc minor mode is enabled. Use the command `checkdoc-minor-mode' to change this variable. (defvar checkdoc-minor-mode nil (#$ . 34235)) (make-variable-buffer-local 'checkdoc-minor-mode) #@407 Toggle Checkdoc minor mode, a mode for checking Lisp doc strings. With prefix ARG, turn Checkdoc minor mode on if ARG is positive, otherwise turn it off. 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( \203 \305 !\306V\202( \n\204\" \307\202( \310\311\302\"\210\312\313\314\n\2033 \315\2024 \316\"\210\317 \203T \303 \203G \303 \232\203T \310\320\n\203Q \321\202R \322\"\210)\323 \210\n\207" [#1=#:last-message arg checkdoc-minor-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil run-hooks checkdoc-minor-mode-hook checkdoc-minor-mode-on-hook checkdoc-minor-mode-off-hook called-interactively-p "Checkdoc minor mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 34444) (list (or current-prefix-arg 'toggle))]) (byte-code "\300\301\302\303\304!\205 \304J#\207" [add-minor-mode checkdoc-minor-mode checkdoc-minor-mode-string boundp checkdoc-minor-mode-map] 5) #@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 (#$ . 35668)]) (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 (#$ . 35976)]) (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\322 \315 8\204) \n\205\322 \316g\317\"?\205\322 \313\320 \313\321\322\217\210\f\203\300 \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\321 \342\343`\212\313\210`)#\202\321 \342\315 8\203\313 \344\202\314 \345``T\337$*\211\204\357 \306\326!\203\357 \346 +\347\216\350,!\210\351 !*\202\360 *\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" "All interactive functions should have documentation" "All variables and subroutines might as well have a documentation string" syntax-table ((set-syntax-table old-syntax-table)) set-syntax-table checkdoc-this-string-valid-engine docstring-start-point old-syntax-table checkdoc-syntax-table] 6 (#$ . 36364)]) #@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\324\212\323\324\325#\205] \316\326\224\326\225\327\330$?\205] \321\331\326\224\326\225#)\206\324\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\324\212\306\210\334\306x\210`V\203\264 b\210\333u\210\336g\337\"\203\347 \336h\340\"\204\347 \333u\210\307\341!?\205\253\312u\210\316``T\342\343\325%?\205\253\321\344``T#\202\253\307\345!\203\361 \306\202\253 \203\377 \307\346!\203\377 \306\202\253\347` @\314 \210\323\350\325#\203V\316\326\224T\326\225\351\352\325%\203\227\306\211 A B\312y\210\306\210iB\212\312y\210\306\210i)A\353BA\312#\354V\203H\355@\202R\356\312!\210\357c\210\306@*\202\227\306\210\354iZ` C D\312y\210\314 \210\323\360\212\306\210`)\325#\203\226iDW\203\226\316C\211T\361\357\325%\203\226\312\224b\210`\312\225|\210\352c\210\306@*@\205\252\321@ \212 b\210\306\210`)#*)\206\324\212\362\306w\210\307\363!\205\321\316\326\224\326\225\364\365\326!\226\325%?\205\321\321\366\326\224\326\225#)\206\324\212\306\211`\367 E F\211 G\204\374\323E\325#\211F\203\374\370\f\"?\211G\203\345F\205\321\371\365\312!\372\373R\312\224\312\225\325$-\206\324\212\323\374\325HT$\205/\323\375\325#?\205/\321\376 \377!#)\206\324\212\325\306\211\211 I J K\323\201e \325#\203\317K\204\317\365\312! L\201f L! M\312\224J\312\225IM\203\313\201g M!\203\313\201h M!\203\313\212Jb\210\333v\210\307\201i !)\204\313\316JI\201j L\325%\203\300\201k \201l \201m \306\325\306\211\201n & NJSb\210N\357\261\210\312v\210)\202\313\201o \201p L\"K*\202?K\205\334\321KJI#-\206\324\212`\306 O `W\203\306\210`Oi\354W\204 \314 \210\323\201q O\325#\204 \370\f\"\203\312y\210\202\346\306\210`W\2051i\354V\2051\321\201r \212 b\210\306\210`)#+\206\324PA@\325=\203`\201s \201t P@\"\203\214\307\201u !\204\214\321\201v \377!\325$\202\211PAAAA\326\312\201w P8\205x\201w P8@\201x \201y \201w P8\"\306 Q R S T U VV\203T\203TUV\203V@R\235\203\270VAV\325Q\202\222TU\212\323\201z V@\226\201{ Q\325#)\211T\204 \325\212\323\201| V@\201} Q\325#)\203\316\312\224\312\225\201o \201~ V@V@\226#V@\226\325%\203\312\224T)T\203\222VA\211V\204\227T\204\206\201 \201o \201\200 V@\226\"!\203o\212b\210\333u\210\352Q\203A\201\201 \202D\201\202 \201\203 V@\226\357\261\210\201\204 \201\205 !c\210\212\333u\210\307\201\206 !)\204j\201\207 c\210)\306\202\261\321\201o \201\210 V@V@\226# \377!#\202\261S\203\224S\201\211 =\204\237S?\205\261W\205\261TUW\205\261\321\201\212 \377!\325$.\206\324X\203\214\212Y\204\326\201| \201\213 \201\214 Z\201\215 #\201\216 QY\212\306\210\336h\340\"\203\347\312y\210\306\210`)\306\211\211\325 [ \\ ] ^]\204q\323Y^\325#\203q\201\217 \312\224\312\225\"[\201\220 [\227Z\"\211]\204&\201\221 \201\222 !\210\306\201\223 [\306 _ `\325 a\201s `_\f#,\203M\201\224 ]A!\202P]A)\\\316\312\224\312\225\201o \201\225 [\\#\\\325%\203\366\306\211]\203\373]\205\207\321\201o \201\226 [\\#\312\224\312\225#.\206\324\212\306`\306\211 b @ T@\204A\323\201\227 \325#\203A\365\312!b\201\230 b\306 _ `\325 a\201s `_\f#,\203\321b\326bGSOb\370\f\"\204\230\201\231 \f\"\204\230bc\235\204\230\201f b!\211T\203\230\201g T!\204\201h T!\203\230\201o \201\232 b\"@\316\312\224\312\224bG\\@\201\233 b\201\234 Q\325%\2032\306\211@\202\232\201o \201\235 b\"\211@\203\235@\205R\321@\312\224\312\224bG\\#-\206\324\212\323\201\236 \325#\205\206\316\312\224\312\225\201o \201\237 \365\201\240 !\"\365\201\240 !\325%?\205\206\321\201\241 \312\224\312\225#)\206\324\201\242 `\"\206\324\201\243 `\"\206\324\201\244 !\206\324\212\201\245 PD V d\201h \201\246 !\203\310\201\247 \201\246 dV#\202\323\201\247 \201\250 dV#++\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" + 80 "Incomplete auto-fix; doc string may require more formatting" delete-char " " "[.!?:\"]\\([ \n]+\\|\"\\)" "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+}" "Too many occurrences of \\[function]. Use \\{keymap} instead" marker-position 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 "`\\(\\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? " 2 "Symbols t and nil should not appear in `...' quotes" checkdoc-sentencespace-region-engine checkdoc-proper-noun-region-engine checkdoc-ispell-docstring-engine checkdoc-style-hooks run-hook-with-args-until-success apply run-hook-with-args] 9 (#$ . 38259)]) #@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 (#$ . 45904)]) #@334 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 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 (#$ . 47638)]) #@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`\307 b\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 (#$ . 48686)]) #@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 \310\216\311 !\210b\210\312\313#\203\231 \314\315!\315\224\315\225 \212 b\210\316u\210\317\320!)\204\225 f\321U\203M Sf\321U\204\225 \322\"\204\225 \323 \324\325 \"\326 !\313%\204\225 \203\205 \203\225 \327\324\330 \326 !# #\210\202\225 \324\330 \326 !# +\202 ) \205\243 \327 \n #.\207" [old-syntax-table be bb errtxt case-fold-search checkdoc-syntax-table nil syntax-table ((set-syntax-table old-syntax-table)) set-syntax-table re-search-forward t match-string 1 -1 looking-at "`\\|\"\\|\\.\\|\\\\" 47 checkdoc-in-example-string-p checkdoc-autofix-ask-replace format "Text %s should be capitalized. Fix? " capitalize checkdoc-create-error "Name %s should appear capitalized as %s" begin checkdoc-proper-noun-regexp end e b text checkdoc-generate-compile-warnings-flag] 6 (#$ . 49221)]) #@67 Make sure all sentences have double spaces between BEGIN and END. (defalias 'checkdoc-sentencespace-region-engine #[(begin end) "\205\202 \212\306\211\211\211\307 \310\216\311!\210b\210\312\313\314#\203v \315\224\315\225 \316\"\204r \317\"\204r \212b\210\306\320\321\217)\204r \322\323\324$\204r \f\203j \203r \325\326#\210\202r \326*\202 )\f\205\200 \325\f \n#.\207" [sentence-end-double-space old-syntax-table be bb errtxt case-fold-search nil syntax-table ((set-syntax-table old-syntax-table)) 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-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" checkdoc-syntax-table begin end e b checkdoc-generate-compile-warnings-flag] 5 (#$ . 50450)]) #@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 (#$ . 51491)]) #@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 (#$ . 52117)]) #@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 \204 e 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 (#$ . 53093)]) #@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 ?\205Y \323\324!\203L eb\210\325 \n\326\327\330!\331\261\202Y \332\333e\212eb\210\321\210`)#\312 \204\261 eb\210\334\335\321\336#\203s \334\337\321\336#\210\202\235 \334\340\321\336#\204\223 \334\341\321\336#\204\223 \334\342\321\336#\204\223 \334\343\321\336#\203\231 \344 \210\202\235 \334\345!\210\323\346!\203\250 \347c\202\256 \332\350\321\211\336$\206\262 \f\203\351\352!\204\351\353!\204\354\311 !\205\315 )\204\312 \206\327 eb\210\334\335\321\336#\203\352 \334\337\321\336#\210\202\334\341\321\336#\204\334\342\321\336#\204\334\343\321\336#\203\344 \210\323\355!\203\356c\202\332\357`\321#\206 \360 \204U\336 eb\210 \2038\334\343\321\336#\2038\361\362!\211\204( \204L\323\363!\203L\344 \210\364c\210\321\202Q\332\365`\321#)\206V \212db\210\366\367\370 !\371\370\n!\372\373\370 !\371\370\n!\374\260\n\321\336#?\205\234\323\375!\203\215db\210\376 \377 \n\201E \261\202\234\332\201F \201G \211\n$dSd#)\206\241 \312 \211 @\203\323\212@b\210\201H \201I A!! B\201J `B\"\210\201K `B\"\210\201L B!\210*)\201M \321 C D\311\201N !\203\362\201O \201N DC#\202\375\201O \201P DC#*\206 \211-\207" [f1 fn fe err checkdoc-force-history-flag cont 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\"" 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" lm-code-mark looking-at "require\\s-+" "There is no ;;; Code: marker. Insert one? " ";;; Code:\n" "You should have a section marked \";;; Code:\"" re-search-backward "^;;;[ ]+" regexp-quote "\\(" "\\)?[ ]+ends here[ ]*$" "\\|^;;;[ ]+ End of file[ ]+" "\\)?" "No identifiable footer! Add one? " "\n(provide '" ")\n\n;;; " cm lm-commentary-header e args hookvar " 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-hooks run-hook-with-args-until-success apply run-hook-with-args] 12 (#$ . 54144)]) #@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 (#$ . 57266)]) #@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 \204 ed\nb\210\305 !\211\203\" \306!\202 *\207" [type e beg end nil checkdoc-message-text-next-string checkdoc-message-text-engine] 2 (#$ . 57606)]) #@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 (#$ . 58027)]) #@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 (#$ . 58762)]) #@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 (#$ . 60607)]) #@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|\210 c\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 (#$ . 60911)]) #@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))) (#$ . 62260)) (byte-code "\301B\302\301!\204 \303\301\304\"\210\301\207" [current-load-list checkdoc-output-error-regex-alist default-boundp set-default (("^\\(.+\\.el\\):\\([0-9]+\\): " 1 2))] 3) #@65 Non-nil when there are errors that have not been displayed yet. (defvar checkdoc-pending-errors nil (#$ . 62673)) (byte-code "\302\303N\204\f \304\302\303\305#\210\306\307!\204 \304\307\310\311#\210\307B\312\307!\204( \313\307\314 \"\210\306\315!\2044 \304\315\310\311#\210\315B\312\315!\204D \313\315\316 \"\210\304\301\310\311#\210\301B\312\301!\204^ \313\301\317\301\320\"\210 \"\210\304\311\321\322#\207" [current-load-list checkdoc-output-mode-abbrev-table checkdoc-output-mode-hook variable-documentation put "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 default-boundp set-default make-sparse-keymap checkdoc-output-mode-syntax-table make-syntax-table define-abbrev-table nil 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 !\210\325\f!\210\306\326!\210 \306\327!\210 )\330\331!\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 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 (#$ . 63601) 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 (#$ . 64743)]) #@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 (#$ . 64976)]) #@66 Store POINT and MSG as errors in the checkdoc diagnostic buffer. (defalias 'checkdoc-error #[(point msg) "\306\307\310 \311\312\313e \206 e\"!\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 (#$ . 65474)]) #@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 (#$ . 65869)]) (byte-code "\300\301\302\"\210\303\304\305\"\210\303\304\306\"\210\303\304\307\"\210\310\311!\207" [custom-add-option emacs-lisp-mode-hook #[nil "\300\301!\207" [checkdoc-minor-mode 1] 2] add-to-list debug-ignored-errors "Argument `.*' should appear (as .*) in the doc string" "Lisp symbol `.*' should appear in quotes" "Disambiguate .* by preceding .*" provide checkdoc] 3)
Close
