;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable erlang-edoc-indent-level funcall function #[0 "\300\207" [2] 1] "Indentation level of xhtml in Erlang edoc." :type (integer) :safe integerp :group erlang] 10) #@49 Tags that can be used anywhere within a module. (defvar erlang-edoc-generic-tags '("clear" "docfile" "end" "headerfile" "todo" "TODO" "type") (#$ . 341)) #@44 Tags that can be used in an overview file. (defvar erlang-edoc-overview-tags '("author" "copyright" "doc" "reference" "see" "since" "title" "version") (#$ . 501)) #@52 Tags that can be used before a module declaration. (defvar erlang-edoc-module-tags '("author" "copyright" "deprecated" "doc" "hidden" "private" "reference" "see" "since" "version") (#$ . 670)) #@53 Tags that can be used before a function definition. (defvar erlang-edoc-function-tags '("deprecated" "doc" "equiv" "hidden" "param" "private" "returns" "see" "since" "spec" "throws" "type") (#$ . 869)) (defvar erlang-edoc-predefined-macros '("date" "docRoot" "link" "module" "package" "section" "time" "type" "version")) (byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\210\300\314\315\310\304\305%\210\300\316\317\320\304\305%\207" [custom-declare-face erlang-edoc-tag ((t (:inherit font-lock-constant-face))) "Face used to highlight edoc tags." :group erlang erlang-edoc-macro ((t (:inherit font-lock-preprocessor-face))) "Face used to highlight edoc macros." erlang-edoc-verbatim ((t (:family "Monospace" :inherit font-lock-keyword-face))) "Face used to highlight verbatim text." erlang-edoc-todo ((t (:inherit font-lock-warning-face))) erlang-edoc-heading ((t (:inherit bold))) "Face used to highlight edoc headings."] 6) (defvar erlang-edoc-font-lock-keywords '(("^%+\\s-*\\(@\\w+\\)\\_>" 1 'erlang-edoc-tag prepend) ("^%+\\s-*" ("{\\(@\\w+\\)\\_>" nil nil (1 'erlang-edoc-macro prepend))) ("^%+\\s-*" ("\\(?:@@\\)*\\(@[@{}]\\)" nil nil (1 'escape-glyph prepend))) ("^%+\\s-*\\(@deprecated\\)\\_>" 1 font-lock-warning-face prepend) ("^%+\\s-*" ("[^`]`\\([^`]?\\|[^`].*?[^']\\)'" (forward-char -1) nil (1 'erlang-edoc-verbatim prepend))) ("^%+\\s-*" ("\\[\\(\\(?:https?\\|file\\|ftp\\)://[^][]+\\)\\]" nil nil (1 'link prepend))) ("^%+\\s-*\\(?:\\(?1:@todo\\|@TODO\\)\\_>\\|\\(?1:TODO\\):\\)" 1 'erlang-edoc-todo prepend) ("^%+\\s-*\\(\\(=\\{2,4\\}\\)[^=\n].*[^=\n]\\2\\)\\s-*$" 1 'erlang-edoc-heading prepend))) #@62 Parse edoc x(ht)ml context at comment start of current line. (defalias 'erlang-edoc-xml-context #[0 "\302\303!\210\212\304 \210\305\306!\205I\307\225\310\311`[!\210`W\2039\312 \210\313\267\202 BB\262\202\211A\262\202\202b\210\312 \210\314>@B\262\262)\207" [xmltok-type xmltok-start require xmltok beginning-of-line looking-at "^%+\\s-*" 0 nil forward-comment xmltok-forward #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (start-tag 37 end-tag 47)) (start-tag end-tag)] 4 (#$ . 2539)]) (defalias 'erlang-edoc-indent-line #[0 "\301 \211\205Y\212\302 \210\303\304\305 \"\210\211@\204\211A@\203M\211A@\2053\212\211A@Ab\210i\302 \210\306\307w\210iZ)\310\204<\311\202J@\312=\203G\202J\\!\266)\313\314\315 \"\205Y\303\316!\207" [erlang-edoc-indent-level erlang-edoc-xml-context beginning-of-line re-search-forward "^%+\\s-*" line-end-position "%" nil just-one-space 1 end-tag looking-back "^%*\\s-*" line-beginning-position "\\=%*\\s-*"] 5]) (defalias 'erlang-edoc-before-module-declaration-p #[0 "\212\300 \210\301d!\210m\206\302\303\304\305#)\207" [beginning-of-line forward-comment re-search-forward "^-module\\s-*(" nil t] 4]) (defalias 'erlang-edoc-completion-at-point #[0 "\304 \3058\203\306\262\202\3078\203\310\262\202\311\262\310=\205W\212\312\313!\210h\314U\205V\315\316\317 \"`\320\313!\210`\204@\202P\321 \203L\322 \n\"\202P\322 \n\"E\266\204)\207" [erlang-edoc-predefined-macros erlang-edoc-module-tags erlang-edoc-generic-tags erlang-edoc-function-tags syntax-ppss 3 string 4 comment nil skip-syntax-backward "w_" 64 looking-back "^%+\\s-*@" line-beginning-position skip-syntax-forward erlang-edoc-before-module-declaration-p append] 7]) #@101 Non-nil if Erlang-EDoc mode is enabled. Use the command `erlang-edoc-mode' to change this variable. (defvar erlang-edoc-mode nil (#$ . 4292)) (make-variable-buffer-local 'erlang-edoc-mode) #@617 Toggle Erlang-EDoc mode on or off. This is a minor mode. If called interactively, toggle the `Erlang-EDoc mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `erlang-edoc-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. \{erlang-edoc-mode-map} (fn &optional ARG) (defalias 'erlang-edoc-mode #[256 "\303 \304=\203 ?\202\247\203\305W\203\306\202\307\310\301!\2031\311\300 \"\2031\300 B\203L\312\313\314\306\307$\210\315\306\n\307#\210\312\316\317\306\307$\210\202]\320\313\314\307#\210\321\306\n\"\210\320\316\317\307#\210\322 \210\323\324\203j\325\202k\326\"\210\327\330!\203\215\303 \203\211\303 \232\203\215\331\332\203\211\333\202\212\334\335#\210\210\336 \210\207" [erlang-edoc-mode local-minor-modes erlang-edoc-font-lock-keywords current-message toggle 1 nil t boundp delq add-hook erlang-indent-line-hook erlang-edoc-indent-line font-lock-add-keywords completion-at-point-functions erlang-edoc-completion-at-point remove-hook font-lock-remove-keywords jit-lock-refontify run-hooks erlang-edoc-mode-hook erlang-edoc-mode-on-hook erlang-edoc-mode-off-hook called-interactively-p any message "Erlang-EDoc mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 4488) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar erlang-edoc-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\210\315\316!\207" [erlang-edoc-mode-map erlang-edoc-mode-hook variable-documentation put "Hook run after entering or leaving `erlang-edoc-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode erlang-edoc-mode " EDoc" boundp provide erlang-edoc] 6)