;ELC   
;;; Compiled
;;; in Emacs version 28.0.50
;;; with all optimizations.


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\207" [require easymenu outline thingatpt cl-lib url-parse button color rx subr-x] 2)
#@31 Markdown mode version number.
(defconst markdown-mode-version "2.5-dev" (#$ . 298))
#@55 Name of temporary buffer for markdown command output.
(defconst markdown-output-buffer-name "*markdown-output*" (#$ . 388))
#@35 History of used reference labels.
(defvar markdown-reference-label-history nil (#$ . 518))
#@61 Sentinel variable for command `markdown-live-preview-mode'.
(defvar markdown-live-preview-mode nil (#$ . 615))
#@74 History list of languages used in the current buffer in GFM code blocks.
(defvar markdown-gfm-language-history nil (#$ . 732))
#@39 Hook run when entering Markdown mode.
(defvar markdown-mode-hook nil (#$ . 865))
#@165 Hook run before running Markdown to export XHTML output.
The hook may modify the buffer, which will be restored to it's
original state after exporting is complete.
(defvar markdown-before-export-hook nil (#$ . 953))
#@111 Hook run after XHTML output has been saved.
Any changes to the output buffer made by this hook will be saved.
(defvar markdown-after-export-hook nil (#$ . 1176))
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313\314\315\316DD\317\306\301\320\321&\210\312\322\314\315\323DD\324\306\301\320\325&\210\312\326\314\315\327DD\330\306\301\320\331&\210\312\332\314\315\333DD\334\306\301\320\335&\210\312\336\314\315\337DD\340\306\301\320\341&\210\312\342\314\315\343DD\344\306\301\320\325&\210\312\345\314\315\346DD\347\306\301\320\325&\210\312\350\314\315\351DD\352\306\301\320\325\353\354\355\356&\210\312\357\314\315\360DD\361\306\301\320\362\353\362\355\363&\210\312\364\314\315\365DD\366\306\301\320\325&\210\312\367\314\315\370DD\371\306\301\320\315&\210\312\372\314\315\373DD\374\306\301\320\375&\210\312\376\314\315\377DD\201@ \306\301\320\325\353\354\355\201A &\210\312\201B \314\315\201C DD\201D \306\301\320\325\353\354&	\210\312\201E \314\315\201F DD\201G \306\301\320\325\353\354\355\201H &\210\312\201I \314\315\201J DD\201K \306\301\320\325\353\354\355\201L &\210\312\201M \314\315\201N DD\201O \306\301\320\201P \355\201Q &	\210\201R \201E \201M \201S #\210\201R \201I \201M \201S #\210\312\201T \314\315\201U DD\201V \306\301\320\325\353\354\355\201W &\210\312\201X \314\315\201Y DD\201Z \306\301\320\201[ &\210\312\201\\ \314\315\201] DD\201^ \320\201_ \355\201` &\210\312\201a \314\315\201b DD\201c \320\201d \320\201e \355\201f &	\210\312\201g \314\315\201h DD\201i \306\301\320\201j \355\201k &	\210\312\201l \314\315\201m DD\201n \320\201o \355\201p &\210\312\201q \314\315\201r DD\201s \306\301\320\325\353\354&	\210\201t \201q !\210\312\201u \314\315\201v DD\201w \306\301\320\325\353\354\355\201x &\210\312\201y \314\315\201z DD\201{ \306\301\320\201| &\210\312\201} \314\315\201~ DD\201 \306\301\320\201d &\210\312\201\200 \314\315\201\201 DD\201\202 \306\301\320\201\203 &\210\312\201\204 \314\315\201\205 DD\201\206 \306\301\320\325\353\354\355\201\207 &\210\312\201\210 \314\315\201\211 DD\201\212 \306\301\320\201d &\210\312\201\213 \314\315\201\214 DD\201\215 \306\301\320\201d \353\201\216 \355\201\217 &\210\312\201\220 \314\315\201\221 DD\201\222 \306\301\320\201d \353\201\216 \355\201\223 &\210\312\201\224 \314\315\201\225 DD\201\226 \306\301\320\201\227 &\210\312\201\230 \314\315\201\231 DD\201\232 \306\301\320\201d &\210\312\201\233 \314\315\201\234 DD\201\235 \306\301\320\201\236 &\210\312\201\237 \314\315\201\240 DD\201\241 \306\301\320\201\242 &\210\312\201\243 \314\315\201\244 DD\201\245 \306\301\320\201\246 \355\201\247 &	\210\312\201\250 \314\315\201\251 DD\201\252 \306\301\320\201\253 \355\201\254 &	\210\312\201\255 \314\315\201\256 DD\201\257 \306\301\320\201d &\210\312\201\260 \314\315\201\261 DD\201\262 \306\301\320\325\355\201\263 &	\210\312\201\264 \314\315\201\265 DD\201\266 \306\301\320\325\353\354\355\201\267 &\210\312\201\270 \314\315\201\271 DD\201\272 \306\301\320\325\353\354\355\201\273 &\210\312\201\274 \314\315\201\275 DD\201\276 \306\301\320\325&\210\312\201\277 \314\315\201\300 DD\201\301 \306\301\320\325&\210\312\201\302 \314\315\201\303 DD\201\304 \306\301\320\201\305 \355\201\306 &	\210\312\201\307 \314\315\201\310 DD\201\311 \306\301\320\315&\210\312\201\312 \314\315\201\313 DD\201\314 \306\301\320\201\315 &\210\312\201\316 \314\315\201\317 DD\201\320 \306\301\320\201\321 &\210\312\201\322 \314\315\201\323 DD\201\324 \306\301\320\325\353\354\355\201\325 &\210\312\201\326 \314\315\201\327 DD\201\330 \306\301\320\201\331 &\210\312\201\332 \314\315\201\333 DD\201\334 \306\301\320\325&\210\312\201\335 \314\315\201\336 DD\201\337 \306\301\320\325&\210\312\201\340 \314\315\201\341 DD\201\342 \306\301\320\201\343 \355\201\344 &	\210\312\201\345 \314\315\201\346 DD\201\347 \306\301\320\325\353\354&	\210\312\201\350 \314\315\201\351 DD\201\352 \306\301\320\325\353\354\355\201\353 &\210\201t \201\350 !\210\312\201\354 \314\315\201\355 DD\201\356 \306\301\320\315\201\357 \201\360 \355\201\361 &\210\312\201\362 \314\315\201\363 DD\201\364 \306\301\355\201\365 \320\201\366 &	\210\312\201\367 \314\315\201\370 DD\201\371 \306\301\320\201\372 \353\354\355\201\373 &\207" [custom-declare-group markdown nil "Major mode for editing text files in Markdown format." :prefix "markdown-" :group text :link (url-link "https://jblevins.org/projects/markdown-mode/") custom-declare-variable markdown-command funcall function #[0 "\300\301\211\211:\203- @\262\302!\211\203  \303!\262\301\211\262\202! \304\262\203- A\262\202 \266\203\211\2064 \305\207" [("markdown" "pandoc" "markdown_py") nil executable-find file-name-nondirectory t "markdown"] 7] "Command to run markdown." :type (choice (string :tag "Shell command") (repeat (string)) function) markdown-command-needs-filename #[0 "\300\207" [nil] 1] "Set to non-nil if `markdown-command' does not accept input from stdin.\nInstead, it will be passed a filename as the final command line\noption.  As a result, you will only be able to run Markdown from\nbuffers which are visiting a file." boolean markdown-open-command #[0 "\300\207" [nil] 1] "Command used for opening Markdown files directly.\nFor example, a standalone Markdown previewer.  This command will\nbe called with a single argument: the filename of the current\nbuffer.  It can also be a function, which will be called without\narguments." (choice file function (const :tag "None" nil)) markdown-open-image-command #[0 "\300\207" [nil] 1] "Command used for opening image files directly.\nThis is used at `markdown-follow-link-at-point'." (choice file function (const :tag "None" nil)) markdown-hr-strings #[0 "\300\207" [("-------------------------------------------------------------------------------" "* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *" "---------------------------------------" "* * * * * * * * * * * * * * * * * * * *" "---------" "* * * * *")] 1] "Strings to use when inserting horizontal rules.\nThe first string in the list will be the default when inserting a\nhorizontal rule.  Strings should be listed in decreasing order of\nprominence (as in headings from level one to six) for use with\npromotion and demotion functions." (repeat string) markdown-bold-underscore #[0 "\300\207" [nil] 1] "Use two underscores when inserting bold text instead of two asterisks." markdown-italic-underscore #[0 "\300\207" [nil] 1] "Use underscores when inserting italic text instead of asterisks." markdown-marginalize-headers #[0 "\300\207" [nil] 1] "When non-nil, put opening atx header markup in a left margin.\n\nThis setting goes well with `markdown-asymmetric-header'.  But\nsadly it conflicts with `linum-mode' since they both use the\nsame margin." :safe booleanp :package-version (markdown-mode . "2.4") markdown-marginalize-headers-margin-width #[0 "\300\207" [6] 1] "Character width of margin used for marginalized headers.\nThe default value is based on there being six heading levels\ndefined by Markdown and HTML.  Increasing this produces extra\nwhitespace on the left.  Decreasing it may be preferred when\nfewer than six nested heading levels are used." natnump (markdown-mode . "2.4") markdown-asymmetric-header #[0 "\300\207" [nil] 1] "Determines if atx header style will be asymmetric.\nSet to a non-nil value to use asymmetric header styling, placing\nheader markup only at the beginning of the line. By default,\nbalanced markup will be inserted at the beginning and end of the\nline around the header title." markdown-indent-function #[0 "\300\207" [markdown-indent-line] 1] "Function to use to indent." markdown-indent-on-enter #[0 "\300\207" [t] 1] "Determines indentation behavior when pressing \\[newline].\nPossible settings are nil, t, and 'indent-and-new-item.\n\nWhen non-nil, pressing \\[newline] will call `newline-and-indent'\nto indent the following line according to the context using\n`markdown-indent-function'.  In this case, note that\n\\[electric-newline-and-maybe-indent] can still be used to insert\na newline without indentation.\n\nWhen set to 'indent-and-new-item and the point is in a list item\nwhen \\[newline] is pressed, the list will be continued on the next\nline, where a new item will be inserted.\n\nWhen set to nil, simply call `newline' as usual.  In this case,\nyou can still indent lines using \\[markdown-cycle] and continue\nlists with \\[markdown-insert-list-item].\n\nNote that this assumes the variable `electric-indent-mode' is\nnon-nil (enabled).  When it is *disabled*, the behavior of\n\\[newline] and `\\[electric-newline-and-maybe-indent]' are\nreversed." (choice (const :tag "Don't automatically indent" nil) (const :tag "Automatically indent" t) (const :tag "Automatically indent and insert new list items" indent-and-new-item)) markdown-enable-wiki-links #[0 "\300\207" [nil] 1] "Syntax highlighting for wiki links.\nSet this to a non-nil value to turn on wiki link support by default.\nSupport can be toggled later using the `markdown-toggle-wiki-links'\nfunction or \\[markdown-toggle-wiki-links]." (markdown-mode . "2.2") markdown-wiki-link-alias-first #[0 "\300\207" [t] 1] "When non-nil, treat aliased wiki links like [[alias text|PageName]].\nOtherwise, they will be treated as [[PageName|alias text]]." markdown-wiki-link-search-subdirectories #[0 "\300\207" [nil] 1] "When non-nil, search for wiki link targets in subdirectories.\nThis is the default search behavior for GitHub and is\nautomatically set to t in `gfm-mode'." (markdown-mode . "2.2") markdown-wiki-link-search-parent-directories #[0 "\300\207" [nil] 1] "When non-nil, search for wiki link targets in parent directories.\nThis is the default search behavior of Ikiwiki." (markdown-mode . "2.2") markdown-wiki-link-search-type #[0 "\300\207" [nil] 1] "Searching type for markdown wiki link.\n\nsub-directories: search for wiki link targets in sub directories\nparent-directories: search for wiki link targets in parent directories\nproject: search for wiki link targets under project root" (set (const :tag "search wiki link from subdirectories" sub-directories) (const :tag "search wiki link from parent directories" parent-directories) (const :tag "search wiki link under project root" project)) (markdown-mode . "2.5") make-obsolete-variable "2.5" markdown-wiki-link-fontify-missing #[0 "\300\207" [nil] 1] "When non-nil, change wiki link face according to existence of target files.\nThis is expensive because it requires checking for the file each time the buffer\nchanges or the user switches windows.  It is disabled by default because it may\ncause lag when typing on slower machines." (markdown-mode . "2.2") markdown-uri-types #[0 "\300\207" [("acap" "cid" "data" "dav" "fax" "file" "ftp" "gopher" "http" "https" "imap" "ldap" "mailto" "mid" "message" "modem" "news" "nfs" "nntp" "pop" "prospero" "rtsp" "service" "sip" "tel" "telnet" "tip" "urn" "vemmi" "wais")] 1] "Link types for syntax highlighting of URIs." (repeat (string :tag "URI scheme")) markdown-url-compose-char #[0 "\300\207" [(8734 8230 8943 35 9733 9875)] 1] "Placeholder character for hidden URLs.\nThis may be a single character or a list of characters. In case\nof a list, the first one that satisfies `char-displayable-p' will\nbe used." (choice (character :tag "Single URL replacement character") (repeat :tag "List of possible URL replacement characters" character)) (markdown-mode . "2.3") markdown-blockquote-display-char #[0 "\300\207" [("▌" "┃" ">")] 1] "String to display when hiding blockquote markup.\nThis may be a single string or a list of string. In case of a\nlist, the first one that satisfies `char-displayable-p' will be\nused." string (choice (string :tag "Single blockquote display string") (repeat :tag "List of possible blockquote display strings" string)) (markdown-mode . "2.3") markdown-hr-display-char #[0 "\300\207" [(9472 9473 45)] 1] "Character for hiding horizontal rule markup.\nThis may be a single character or a list of characters.  In case\nof a list, the first one that satisfies `char-displayable-p' will\nbe used." (choice (character :tag "Single HR display character") (repeat :tag "List of possible HR display characters" character)) (markdown-mode . "2.3") markdown-definition-display-char #[0 "\300\207" [(8280 8281 8801 8977 9674 58)] 1] "Character for replacing definition list markup.\nThis may be a single character or a list of characters.  In case\nof a list, the first one that satisfies `char-displayable-p' will\nbe used." (choice (character :tag "Single definition list character") (repeat :tag "List of possible definition list characters" character)) (markdown-mode . "2.3") markdown-enable-math #[0 "\300\207" [nil] 1] "Syntax highlighting for inline LaTeX and itex expressions.\nSet this to a non-nil value to turn on math support by default.\nMath support can be enabled, disabled, or toggled later using\n`markdown-toggle-math' or \\[markdown-toggle-math]." make-variable-buffer-local markdown-enable-html #[0 "\300\207" [t] 1] "Enable font-lock support for HTML tags and attributes." (markdown-mode . "2.4") markdown-css-paths #[0 "\300\207" [nil] 1] "List of URLs of CSS files to link to in the output XHTML." (repeat (string :tag "CSS File Path")) markdown-content-type #[0 "\300\207" [#1="text/html"] 1 #1#] "Content type string for the http-equiv header in XHTML output.\nWhen set to an empty string, this attribute is omitted.  Defaults to\n`text/html'." markdown-coding-system #[0 "\300\207" [nil] 1] "Character set string for the http-equiv header in XHTML output.\nDefaults to `buffer-file-coding-system' (and falling back to\n`utf-8' when not available).  Common settings are `iso-8859-1'\nand `iso-latin-1'.  Use `list-coding-systems' for more choices." coding-system markdown-export-kill-buffer #[0 "\300\207" [t] 1] "Kill output buffer after HTML export.\nWhen non-nil, kill the HTML output buffer after\nexporting with `markdown-export'." (markdown-mode . "2.4") markdown-xhtml-header-content #[0 "\300\207" [#2=""] 1 #2#] "Additional content to include in the XHTML <head> block." markdown-xhtml-body-preamble #[0 "\300\207" [#2#] 1 #2#] "Content to include in the XHTML <body> block, before the output." stringp (markdown-mode . "2.4") markdown-xhtml-body-epilogue #[0 "\300\207" [#2#] 1 #2#] "Content to include in the XHTML <body> block, after the output." (markdown-mode . "2.4") markdown-xhtml-standalone-regexp #[0 "\300\207" [#3="^\\(<\\?xml\\|<!DOCTYPE\\|<html\\)"] 1 #3#] "Regexp indicating whether `markdown-command' output is standalone XHTML." regexp markdown-link-space-sub-char #[0 "\300\207" [#4="_"] 1 #4#] "Character to use instead of spaces when mapping wiki links to filenames." markdown-reference-location #[0 "\300\207" [header] 1] "Position where new reference definitions are inserted in the document." (choice (const :tag "At the end of the document" end) (const :tag "Immediately after the current block" immediately) (const :tag "At the end of the subtree" subtree) (const :tag "Before next header" header)) markdown-footnote-location #[0 "\300\207" [end] 1] "Position where new footnotes are inserted in the document." (choice (const :tag "At the end of the document" end) (const :tag "Immediately after the current block" immediately) (const :tag "At the end of the subtree" subtree) (const :tag "Before next header" header)) markdown-footnote-display #[0 "\300\207" [((raise 0.2) (height 0.8))] 1] "Display specification for footnote markers and inline footnotes.\nBy default, footnote text is reduced in size and raised.  Set to\nnil to disable this." (choice (sexp :tag "Display specification") (const :tag "Don't set display property" nil)) (markdown-mode . "2.4") markdown-sub-superscript-display #[0 "\300\207" [(((raise -0.3) (height 0.7)) (raise 0.3) (height 0.7))] 1] "Display specification for subscript and superscripts.\nThe car is used for subscript, the cdr is used for superscripts." (cons (choice (sexp :tag "Subscript form") (const :tag "No lowering" nil)) (choice (sexp :tag "Superscript form") (const :tag "No raising" nil))) (markdown-mode . "2.4") markdown-unordered-list-item-prefix #[0 "\300\207" [#5="  * "] 1 #5#] "String inserted before unordered list items." markdown-ordered-list-enumeration #[0 "\300\207" [t] 1] "When non-nil, use enumerated numbers(1. 2. 3. etc.) for ordered list marker.\nWhile nil, always uses '1.' for the marker" (markdown-mode . "2.5") markdown-nested-imenu-heading-index #[0 "\300\207" [t] 1] "Use nested or flat imenu heading index.\nA nested index may provide more natural browsing from the menu,\nbut a flat list may allow for faster keyboard navigation via tab\ncompletion." (markdown-mode . "2.2") markdown-add-footnotes-to-imenu #[0 "\300\207" [t] 1] "Add footnotes to end of imenu heading index." (markdown-mode . "2.4") markdown-make-gfm-checkboxes-buttons #[0 "\300\207" [t] 1] "When non-nil, make GFM checkboxes into buttons." markdown-use-pandoc-style-yaml-metadata #[0 "\300\207" [nil] 1] "When non-nil, allow YAML metadata anywhere in the document." markdown-split-window-direction #[0 "\300\207" [any] 1] "Preference for splitting windows for static and live preview.\nThe default value is 'any, which instructs Emacs to use\n`split-window-sensibly' to automatically choose how to split\nwindows based on the values of `split-width-threshold' and\n`split-height-threshold' and the available windows.  To force\nvertically split (left and right) windows, set this to 'vertical\nor 'right.  To force horizontally split (top and bottom) windows,\nset this to 'horizontal or 'below.\n\nIf this value is 'any and `display-buffer-alist' is set then\n`display-buffer' is used for open buffer function" (choice (const :tag "Automatic" any) (const :tag "Right (vertical)" right) (const :tag "Below (horizontal)" below)) (markdown-mode . "2.2") markdown-live-preview-window-function #[0 "\300\207" [markdown-live-preview-window-eww] 1] "Function to display preview of Markdown output within Emacs.\nFunction must update the buffer containing the preview and return\nthe buffer." markdown-live-preview-delete-export #[0 "\300\207" [delete-on-destroy] 1] "Delete exported HTML file when using `markdown-live-preview-export'.\nIf set to 'delete-on-export, delete on every export. When set to\n'delete-on-destroy delete when quitting from command\n`markdown-live-preview-mode'. Never delete if set to nil." (choice (const :tag "Delete on every export" delete-on-export) (const :tag "Delete when quitting live preview" delete-on-destroy) (const :tag "Never delete" nil)) markdown-list-indent-width #[0 "\300\207" [4] 1] "Depth of indentation for markdown lists.\nUsed in `markdown-demote-list-item' and\n`markdown-promote-list-item'." integer markdown-enable-prefix-prompts #[0 "\300\207" [t] 1] "Display prompts for certain prefix commands.\nSet to nil to disable these prompts." (markdown-mode . "2.3") markdown-gfm-additional-languages #[0 "\300\207" [nil] 1] "Extra languages made available when inserting GFM code blocks.\nLanguage strings must have be trimmed of whitespace and not\ncontain any curly braces. They may be of arbitrary\ncapitalization, though." (repeat (string :validate markdown-validate-language-string)) markdown-gfm-use-electric-backquote #[0 "\300\207" [t] 1] "Use `markdown-electric-backquote' when backquote is hit three times." markdown-gfm-downcase-languages #[0 "\300\207" [t] 1] "If non-nil, downcase suggested languages.\nThis applies to insertions done with\n`markdown-electric-backquote'." markdown-edit-code-block-default-mode #[0 "\300\207" [normal-mode] 1] "Default mode to use for editing code blocks.\nThis mode is used when automatic detection fails, such as for GFM\ncode blocks with no language specified." (choice function (const :tag "None" nil)) (markdown-mode . "2.4") markdown-gfm-uppercase-checkbox #[0 "\300\207" [nil] 1] "If non-nil, use [X] for completed checkboxes, [x] otherwise." markdown-hide-urls #[0 "\300\207" [nil] 1] "Hide URLs of inline links and reference tags of reference links.\nSuch URLs will be replaced by a single customizable\ncharacter, defined by `markdown-url-compose-char', but are still part\nof the buffer.  Links can be edited interactively with\n\\[markdown-insert-link] or, for example, by deleting the final\nparenthesis to remove the invisibility property. You can also\nhover your mouse pointer over the link text to see the URL.\nSet this to a non-nil value to turn this feature on by default.\nYou can interactively set the value of this variable by calling\n`markdown-toggle-url-hiding', pressing \\[markdown-toggle-url-hiding],\nor from the menu Markdown > Links & Images menu." (markdown-mode . "2.3") markdown-translate-filename-function #[0 "\300\207" [identity] 1] "Function to use to translate filenames when following links.\n\\<markdown-mode-map>\\[markdown-follow-thing-at-point] and \\[markdown-follow-link-at-point]\ncall this function with the filename as only argument whenever\nthey encounter a filename (instead of a URL) to be visited and\nuse its return value instead of the filename in the link.  For\nexample, if absolute filenames are actually relative to a server\nroot directory, you can set\n`markdown-translate-filename-function' to a function that\nprepends the root directory to the given filename." :risky t (markdown-mode . "2.4") markdown-max-image-size #[0 "\300\207" [nil] 1] "Maximum width and height for displayed inline images.\nThis variable may be nil or a cons cell (MAX-WIDTH . MAX-HEIGHT).\nWhen nil, use the actual size.  Otherwise, use ImageMagick to\nresize larger images to be of the given maximum dimensions.  This\nrequires Emacs to be built with ImageMagick support." (markdown-mode . "2.4") (choice (const :tag "Use actual image width" nil) (cons (choice (sexp :tag "Maximum width in pixels") (const :tag "No maximum width" nil)) (choice (sexp :tag "Maximum height in pixels") (const :tag "No maximum height" nil)))) markdown-mouse-follow-link #[0 "\300\207" [t] 1] "Non-nil means mouse on a link will follow the link.\nThis variable must be set before loading markdown-mode." bool (markdown-mode . "2.5")] 12)
#@43 Markdown-specific sexps for `markdown-rx'
(defconst markdown-rx-constituents (byte-code "\300\301B\302\303B\304\305B\306\307B\310\311B\312\313B\314\315B\257\207" [newline "\n" indent " \\{4\\}\\|	" block-end "\\(?:[[:blank:]]*\n\\)+\\|$" numeral "[#0-9]+\\." bullet "[*+:-]" list-marker "[#0-9]+\\.\\|[*+:-]" checkbox "\\[[ Xx]]"] 8) (#$ . 23309))
#@203 Markdown mode specialized `rx-to-string' function.
This variant supports named Markdown expressions in FORM.
NO-GROUP non-nil means don't put shy groups around the result.

(fn FORM &optional NO-GROUP)
(defalias 'markdown-rx-to-string #[513 "\302	\"\303\")\207" [markdown-rx-constituents rx-constituents append rx-to-string] 5 (#$ . 23665)])
#@118 Markdown mode specialized rx macro.
This variant of `rx' supports common Markdown named REGEXPS.

(fn &rest REGEXPS)
(defalias 'markdown-rx '(macro . #[128 "\211\204 \300\301!\207\211A\203 \302\303B\304\"\207\302@\304\"\207" [error "No regexp" markdown-rx-to-string and t] 4 (#$ . 24018)]))
#@50 Regular expression matches HTML comment opening.
(defconst markdown-regex-comment-start "<!--" (#$ . 24319))
#@50 Regular expression matches HTML comment closing.
(defconst markdown-regex-comment-end "--[ 	]*>" (#$ . 24434))
#@415 Regular expression for a [text](file) or an image link ![text](file).
Group 1 matches the leading exclamation point (optional).
Group 2 matches the opening square bracket.
Group 3 matches the text inside the square brackets.
Group 4 matches the closing square bracket.
Group 5 matches the opening parenthesis.
Group 6 matches the URL.
Group 7 matches the title (optional).
Group 8 matches the closing parenthesis.
(defconst markdown-regex-link-inline "\\(?1:!\\)?\\(?2:\\[\\)\\(?3:\\^?\\(?:\\\\\\]\\|[^]]\\)*\\|\\)\\(?4:\\]\\)\\(?5:(\\)\\s-*\\(?6:[^)]*?\\)\\(?:\\s-+\\(?7:\"[^\"]*\"\\)\\)?\\s-*\\(?8:)\\)" (#$ . 24552))
#@461 Regular expression for a reference link [text][id].
Group 1 matches the leading exclamation point (optional).
Group 2 matches the opening square bracket for the link text.
Group 3 matches the text inside the square brackets.
Group 4 matches the closing square bracket for the link text.
Group 5 matches the opening square bracket for the reference label.
Group 6 matches the reference label.
Group 7 matches the closing square bracket for the reference label.
(defconst markdown-regex-link-reference "\\(?1:!\\)?\\(?2:\\[\\)\\(?3:[^]^][^]]*\\|\\)\\(?4:\\]\\)[ ]?\\(?5:\\[\\)\\(?6:[^]]*?\\)\\(?7:\\]\\)" (#$ . 25179))
#@273 Regular expression for a reference definition.
Group 1 matches the opening square bracket.
Group 2 matches the reference label.
Group 3 matches the closing square bracket.
Group 4 matches the colon.
Group 5 matches the URL.
Group 6 matches the title attribute (optional).
(defconst markdown-regex-reference-definition "^ \\{0,3\\}\\(?1:\\[\\)\\(?2:[^]\n]+?\\)\\(?3:\\]\\)\\(?4::\\)\\s *\\(?5:.*?\\)\\s *\\(?6: \"[^\"]*\"$\\|$\\)" (#$ . 25803))
#@211 Regular expression for a footnote marker [^fn].
Group 1 matches the opening square bracket and carat.
Group 2 matches only the label, without the surrounding markup.
Group 3 matches the closing square bracket.
(defconst markdown-regex-footnote "\\(?1:\\[\\^\\)\\(?2:.+?\\)\\(?3:\\]\\)" (#$ . 26254))
#@426 Regexp identifying Markdown headings.
Group 1 matches the text of a setext heading.
Group 2 matches the underline of a level-1 setext heading.
Group 3 matches the underline of a level-2 setext heading.
Group 4 matches the opening hash marks of an atx heading and whitespace.
Group 5 matches the text, without surrounding whitespace, of an atx heading.
Group 6 matches the closing whitespace and hash marks of an atx heading.
(defconst markdown-regex-header "^\\(?:\\(?1:[^\n	 -].*\\)\n\\(?:\\(?2:=+\\)\\|\\(?3:-+\\)\\)\\|\\(?4:#+[ 	]+\\)\\(?5:.*?\\)\\(?6:[ 	]*#*\\)\\)$" (#$ . 26561))
#@66 Regular expression for generic setext-style (underline) headers.
(defconst markdown-regex-header-setext "^\\([^\n	 -].*\\)\n\\(=+\\|-+\\)$" (#$ . 27153))
#@63 Regular expression for generic atx-style (hash mark) headers.
(defconst markdown-regex-header-atx "^\\(#+\\)[ 	]+\\(.*?\\)[ 	]*\\(#*\\)$" (#$ . 27314))
#@60 Regular expression for matching Markdown horizontal rules.
(defconst markdown-regex-hr "^\\(\\(?:\\* ?\\)\\{3\\}[ *]*\\|\\(?:- ?\\)\\{3\\}[ -]*\\|\\(?:_ ?\\)\\{3\\}[ _]*\\)$" (#$ . 27472))
#@566 Regular expression for matching inline code fragments.

Group 1 matches the entire code fragment including the backquotes.
Group 2 matches the opening backquotes.
Group 3 matches the code fragment itself, without backquotes.
Group 4 matches the closing backquotes.

The leading, unnumbered group ensures that the leading backquote
character is not escaped.
The last group, also unnumbered, requires that the character
following the code fragment is not a backquote.
Note that \(?:.\|
[^
]\) matches any character, including newlines,
but not two newlines in a row.
(defconst markdown-regex-code "\\(?:\\`\\|[^\\]\\)\\(?1:\\(?2:`+\\)\\(?3:\\(?:.\\|\n[^\n]\\)*?[^`]\\)\\(?4:\\2\\)\\)\\(?:[^`]\\|\\'\\)" (#$ . 27668))
#@130 Regular expression for matching <kbd> tags.
Groups 1 and 3 match the opening and closing tags.
Group 2 matches the key sequence.
(defconst markdown-regex-kbd "\\(?1:<kbd>\\)\\(?2:\\(?:.\\|\n[^\n]\\)*?\\)\\(?3:</kbd>\\)" (#$ . 28390))
#@434 Regular expression matching opening of GFM code blocks.
Group 1 matches the opening three backquotes and any following whitespace.
Group 2 matches the opening brace (optional) and surrounding whitespace.
Group 3 matches the language identifier (optional).
Group 4 matches the info string (optional).
Group 5 matches the closing brace (optional), whitespace, and newline.
Groups need to agree with `markdown-regex-tilde-fence-begin'.
(defconst markdown-regex-gfm-code-block-open "^[[:blank:]]*\\(?1:```\\)\\(?2:[[:blank:]]*{?[[:blank:]]*\\)\\(?3:[^`[:space:]]+?\\)?\\(?:[[:blank:]]+\\(?4:.+?\\)\\)?\\(?5:[[:blank:]]*}?[[:blank:]]*\\)$" (#$ . 28631))
#@157 Regular expression matching closing of GFM code blocks.
Group 1 matches the closing three backquotes.
Group 2 matches any whitespace and the final newline.
(defconst markdown-regex-gfm-code-block-close "^[[:blank:]]*\\(?1:```\\)\\(?2:\\s *?\\)$" (#$ . 29287))
#@61 Regular expression for matching preformatted text sections.
(defconst markdown-regex-pre "^\\(    \\|	\\).*$" (#$ . 29553))
#@45 Regular expression for matching list items.
(defconst markdown-regex-list "^\\([[:blank:]]*\\)\\([#0-9]+\\.\\|[*+:-]\\)\\([[:blank:]]+\\)\\(\\(?:\\[[ Xx]]\\)[[:blank:]]*\\)?" (#$ . 29683))
#@337 Regular expression for matching bold text.
Group 1 matches the character before the opening asterisk or
underscore, if any, ensuring that it is not a backslash escape.
Group 2 matches the entire expression, including delimiters.
Groups 3 and 5 matches the opening and closing delimiters.
Group 4 matches the text inside the delimiters.
(defconst markdown-regex-bold "\\(?1:^\\|[^\\]\\)\\(?2:\\(?3:\\*\\*\\|__\\)\\(?4:[^ \n	\\]\\|[^ \n	]\\(?:.\\|\n[^\n]\\)*?[^\\ ]\\)\\(?5:\\3\\)\\)" (#$ . 29879))
#@354 Regular expression for matching italic text.
The leading unnumbered matches the character before the opening
asterisk or underscore, if any, ensuring that it is not a
backslash escape.
Group 1 matches the entire expression, including delimiters.
Groups 2 and 4 matches the opening and closing delimiters.
Group 3 matches the text inside the delimiters.
(defconst markdown-regex-italic "\\(?:^\\|[^\\]\\)\\(?1:\\(?2:[*_]\\)\\(?3:[^ \n	\\]\\|[^ \n	*]\\(?:.\\|\n[^\n]\\)*?[^\\ ]\\)\\(?4:\\2\\)\\)" (#$ . 30383))
#@330 Regular expression for matching strike-through text.
Group 1 matches the character before the opening tilde, if any,
ensuring that it is not a backslash escape.
Group 2 matches the entire expression, including delimiters.
Groups 3 and 5 matches the opening and closing delimiters.
Group 4 matches the text inside the delimiters.
(defconst markdown-regex-strike-through "\\(?1:^\\|[^\\]\\)\\(?2:\\(?3:~~\\)\\(?4:[^ \n	\\]\\|[^ \n	]\\(?:.\\|\n[^\n]\\)*?[^\\ ]\\)\\(?5:~~\\)\\)" (#$ . 30899))
#@291 Regular expression for matching italic text in GitHub Flavored Markdown.
Underscores in words are not treated as special.
Group 1 matches the entire expression, including delimiters.
Groups 2 and 4 matches the opening and closing delimiters.
Group 3 matches the text inside the delimiters.
(defconst markdown-regex-gfm-italic "\\(?:^\\|[^\\]\\)\\(?1:\\(?2:[*_]\\)\\(?3:[^ \\]\\2\\|[^ ]\\(?:.\\|\n[^\n]\\)*?\\)\\(?4:\\2\\)\\)" (#$ . 31396))
#@304 Regular expression for matching blockquote lines.
Also accounts for a potential capital letter preceding the angle
bracket, for use with Leanpub blocks (asides, warnings, info
blocks, etc.).
Group 1 matches the leading angle bracket.
Group 2 matches the separating whitespace.
Group 3 matches the text.
(defconst markdown-regex-blockquote "^[ 	]*\\(?1:[A-Z]?>\\)\\(?2:[ 	]*\\)\\(?3:.*\\)$" (#$ . 31843))
#@46 Regular expression for matching line breaks.
(defconst markdown-regex-line-break "[^ \n	][ 	]*\\(  \\)$" (#$ . 32253))
#@560 Regular expression for matching wiki links.
This matches typical bracketed [[WikiLinks]] as well as 'aliased'
wiki links of the form [[PageName|link text]].
The meanings of the first and second components depend
on the value of `markdown-wiki-link-alias-first'.

Group 1 matches the entire link.
Group 2 matches the opening square brackets.
Group 3 matches the first component of the wiki link.
Group 4 matches the pipe separator, when present.
Group 5 matches the second component of the wiki link, when present.
Group 6 matches the closing square brackets.
(defconst markdown-regex-wiki-link "\\(?:^\\|[^\\]\\)\\(?1:\\(?2:\\[\\[\\)\\(?3:[^]|]+\\)\\(?:\\(?4:|\\)\\(?5:[^]]+\\)\\)?\\(?6:\\]\\]\\)\\)" (#$ . 32379))
#@46 Regular expression for matching inline URIs.
(defconst markdown-regex-uri (byte-code "\301\302!\303Q\207" [markdown-uri-types "\\(" regexp-opt ":[^]	\n<>,;() ]+\\)"] 3) (#$ . 33100))
#@64 Regular expression for matching inline URIs in angle brackets.
(defconst markdown-regex-angle-uri (byte-code "\301\302!\303Q\207" [markdown-uri-types "\\(<\\)\\(" regexp-opt ":[^]	\n<>,;()]+\\)\\(>\\)"] 3) (#$ . 33291))
#@57 Regular expression for matching inline email addresses.
(defconst markdown-regex-email "<\\(\\(?:\\sw\\|\\s_\\|\\s.\\)+@\\(?:\\sw\\|\\s_\\|\\s.\\)+\\)>" (#$ . 33519))
#@59 Make regular expression for matching any recognized link.
(defalias 'markdown-make-regex-link-generic #[0 "\305	\205	 \306\nP\306\306\f\307\260\207" [markdown-regex-link-inline markdown-enable-wiki-links markdown-regex-wiki-link markdown-regex-link-reference markdown-regex-angle-uri "\\(?:" "\\|" "\\)"] 8 (#$ . 33692)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put markdown-make-regex-link-generic speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@94 Regular expression for matching GFM checkboxes.
Group 1 matches the text to become a button.
(defconst markdown-regex-gfm-checkbox " \\(\\[[ xX]\\]\\) " (#$ . 34181))
#@47 Regular expression that matches a blank line.
(defconst markdown-regex-blank-line "^[[:blank:]]*$" (#$ . 34354))
#@51 Regular expression for matching block boundaries.
(defconst markdown-regex-block-separator "\n[\n	\f ]*\n" (#$ . 34473))
#@63 Regexp for block separators before lines with no indentation.
(defconst markdown-regex-block-separator-noindent (concat "\\(\\`\\|\\(" markdown-regex-block-separator "\\)[^\n	\f ]\\)") (#$ . 34600))
#@178 Regular expression for itex $..$ math mode expressions.
Groups 1 and 3 match the opening and closing dollar signs.
Group 2 matches the mathematical expression contained within.
(defconst markdown-regex-math-inline-single "\\(?:^\\|[^\\]\\)\\(?1:\\$\\)\\(?2:\\(?:[^\\$]\\|\\\\.\\)*\\)\\(?3:\\$\\)" (#$ . 34806))
#@176 Regular expression for itex $$..$$ math mode expressions.
Groups 1 and 3 match opening and closing dollar signs.
Group 2 matches the mathematical expression contained within.
(defconst markdown-regex-math-inline-double "\\(?:^\\|[^\\]\\)\\(?1:\\$\\$\\)\\(?2:\\(?:[^\\$]\\|\\\\.\\)*\\)\\(?3:\\$\\$\\)" (#$ . 35124))
#@258 Regular expression for [..] or \[..\] display math.
Groups 1 and 4 match the opening and closing markup.
Group 3 matches the mathematical expression contained within.
Group 2 matches the opening slashes, and is used internally to
match the closing slashes.
(defconst markdown-regex-math-display "^[[:blank:]]*\\(\\(\\\\\\{1,2\\}\\)\\[\\)\\([^z-a]*?\\)\\(\\2]\\)$" (#$ . 35446))
#@183 Return regexp matching a tilde code fence at least NUM-TILDES long.
END-OF-LINE is the regexp construct to indicate end of line; $ if
missing.

(fn NUM-TILDES &optional END-OF-LINE)
(defalias 'markdown-make-tilde-fence-regex #[513 "\300\301\302\303\206\n \304%\207" [format "%s%d%s%s" "^[[:blank:]]*\\([~]\\{" ",\\}\\)" "$"] 8 (#$ . 35831)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put markdown-make-tilde-fence-regex speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@401 Regular expression for matching tilde-fenced code blocks.
Group 1 matches the opening tildes.
Group 2 matches (optional) opening brace and surrounding whitespace.
Group 3 matches the language identifier (optional).
Group 4 matches the info string (optional).
Group 5 matches the closing brace (optional) and any surrounding whitespace.
Groups need to agree with `markdown-regex-gfm-code-block-open'.
(defconst markdown-regex-tilde-fence-begin (byte-code "\300\301\302\303\304\305\206\f \306%\207" [3 "\\([[:blank:]]*{?\\)[[:blank:]]*\\([^[:space:]]+?\\)?\\(?:[[:blank:]]+\\(.+?\\)\\)?\\([[:blank:]]*}?[[:blank:]]*\\)$" format "%s%d%s%s" "^[[:blank:]]*\\([~]\\{" ",\\}\\)" "$"] 8) (#$ . 36339))
#@209 Regular expression for matching declarative metadata statements.
This matches MultiMarkdown metadata as well as YAML and TOML
assignments such as the following:

    variable: value

or

    variable = value
(defconst markdown-regex-declarative-metadata "^[ 	]*\\(?:-[ 	]*\\)?\\([[:alpha:]][[:alpha:] _-]*?\\)\\([:=][ 	]*\\)\\(.*\\)$" (#$ . 37042))
#@50 Regular expression for matching Pandoc metadata.
(defconst markdown-regex-pandoc-metadata "^\\(%\\)\\([ 	]*\\)\\(.*\\(?:\n[ 	]+.*\\)*\\)" (#$ . 37397))
#@48 Regular expression for matching YAML metadata.
(defconst markdown-regex-yaml-metadata-border "\\(-\\{3\\}\\)$" (#$ . 37555))
#@60 Regular expression for matching YAML metadata end borders.
(defconst markdown-regex-yaml-pandoc-metadata-end-border "^\\(\\.\\{3\\}\\|\\-\\{3\\}\\)$" (#$ . 37686))
#@74 Return YAML metadata start border depending upon whether Pandoc is used.
(defalias 'markdown-get-yaml-metadata-start-border #[0 "\203 \302\202	 \303	P\207" [markdown-use-pandoc-style-yaml-metadata markdown-regex-yaml-metadata-border "^" "\\`"] 2 (#$ . 37856)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put markdown-get-yaml-metadata-start-border speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@80 Return YAML metadata end border depending upon whether Pandoc is used.

(fn _)
(defalias 'markdown-get-yaml-metadata-end-border #[257 "\203 	\207\n\207" [markdown-use-pandoc-style-yaml-metadata markdown-regex-yaml-pandoc-metadata-end-border markdown-regex-yaml-metadata-border] 2 (#$ . 38290)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put markdown-get-yaml-metadata-end-border speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@146 Regular expression for matching inline identifiers or attribute lists.
Compatible with Pandoc, Python Markdown, PHP Markdown Extra, and Leanpub.
(defconst markdown-regex-inline-attributes "[ 	]*\\(?:{:?\\)[ 	]*\\(?:\\(?:#[[:alpha:]_.:-]+\\|\\.[[:alpha:]_.:-]+\\|\\w+=['\"]?[^\n'\"}]*['\"]?\\),?[ 	]*\\)+\\(?:}\\)[ 	]*$" (#$ . 38757))
#@68 Regular expression for Leanpub section markers and related syntax.
(defconst markdown-regex-leanpub-sections "^\\({\\)\\(\\(?:appendix\\|backmatter\\|frontmatter\\|mainmatter\\|pagebreak\\)\\)\\(}\\)[ 	]*\n" (#$ . 39097))
#@425 The regular expression matching a sub- or superscript.
The leading un-numbered group matches the character before the
opening tilde or carat, if any, ensuring that it is not a
backslash escape, carat, or tilde.
Group 1 matches the entire expression, including markup.
Group 2 matches the opening markup--a tilde or carat.
Group 3 matches the text inside the delimiters.
Group 4 matches the closing markup--a tilde or carat.
(defconst markdown-regex-sub-superscript "\\(?:^\\|[^\\~^]\\)\\(?1:\\(?2:[~^]\\)\\(?3:[[:alnum:]]+\\)\\(?4:\\2\\)\\)" (#$ . 39326))
#@547 Regular expression matching common forms of include syntax.
Marked 2, Leanpub, and other processors support some of these forms:

<<[sections/section1.md]
<<(folder/filename)
<<[Code title](folder/filename)
<<{folder/raw_file.html}

Group 1 matches the opening two angle brackets.
Groups 2-4 match the opening square bracket, the text inside,
and the closing square bracket, respectively.
Groups 5-7 match the opening parenthesis, the text inside, and
the closing parenthesis.
Groups 8-10 match the opening brace, the text inside, and the brace.
(defconst markdown-regex-include "^\\(?1:<<\\)\\(?:\\(?2:\\[\\)\\(?3:.*\\)\\(?4:\\]\\)\\)?\\(?:\\(?5:(\\)\\(?6:.*\\)\\(?7:)\\)\\)?\\(?:\\(?8:{\\)\\(?9:.*\\)\\(?10:}\\)\\)?$" (#$ . 39889))
#@254 Regular expression for Pandoc inline footnote^[footnote text].
Group 1 matches the opening caret.
Group 2 matches the opening square bracket.
Group 3 matches the footnote text, without the surrounding markup.
Group 4 matches the closing square bracket.
(defconst markdown-regex-pandoc-inline-footnote "\\(?1:\\^\\)\\(?2:\\[\\)\\(?3:\\(?:.\\|\n[^\n]\\)*?\\)\\(?4:\\]\\)" (#$ . 40630))
#@277 Regular expression for matching HTML attributes and values.
Group 1 matches the attribute name.
Group 2 matches the following whitespace, equals sign, and value, if any.
Group 3 matches the equals sign, if any.
Group 4 matches single-, double-, or un-quoted attribute values.
(defconst markdown-regex-html-attr "\\(\\<[[:alpha:]:-]+\\>\\)\\(\\s-*\\(=\\)\\s-*\\(\".*?\"\\|'.*?'\\|[^'\">[:space:]]+\\)?\\)?" (#$ . 41021))
#@218 Regular expression for matching HTML tags.
Groups 1 and 9 match the beginning and ending angle brackets and slashes.
Group 2 matches the tag name.
Group 3 matches all attributes and whitespace following the tag name.
(defconst markdown-regex-html-tag (concat "\\(</?\\)\\(\\w+\\)\\(\\(\\s-+" markdown-regex-html-attr "\\)+\\s-*\\|\\s-*\\)\\(/?>\\)") (#$ . 41448))
#@48 Regular expression for matching HTML entities.
(defconst markdown-regex-html-entity "\\(&#?[[:alnum:]]+;\\)" (#$ . 41818))
#@53 Property list of all Markdown syntactic properties.
(defvar markdown--syntax-properties (byte-code "\300\301\302\301\303\301\304\301\305\301\306\301\307\301\310\301\311\301\312\301\313\301\314\301\315\301\316\301\317\301\320\301\321\301\322\301\323\301\324\301\325\301\326\301\327\301\330\301\331\301\332\301\2574\207" [markdown-tilde-fence-begin nil markdown-tilde-fence-end markdown-fenced-code markdown-yaml-metadata-begin markdown-yaml-metadata-end markdown-yaml-metadata-section markdown-gfm-block-begin markdown-gfm-block-end markdown-gfm-code markdown-list-item markdown-pre markdown-blockquote markdown-hr markdown-comment markdown-heading markdown-heading-1-setext markdown-heading-2-setext markdown-heading-1-atx markdown-heading-2-atx markdown-heading-3-atx markdown-heading-4-atx markdown-heading-5-atx markdown-heading-6-atx markdown-metadata-key markdown-metadata-value markdown-metadata-markup] 52) (#$ . 41947))
#@100 Return non-nil if POS is in a comment.
If POS is not given, use point instead.

(fn &optional POS)
(defalias 'markdown-in-comment-p #[256 "\300\206 `\301\"\207" [get-text-property markdown-comment] 4 (#$ . 42882)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put markdown-in-comment-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@62 Return non-nil if face of POS contain FACES.

(fn POS FACES)
(defalias 'markdown--face-p #[514 "\300\301\"\211<\203, \211\302\211\211:\203+ @\262>\211\262?\211\262\203+ A\262\202 \207\211>\207" [get-text-property face nil] 9 (#$ . 43252)])
#@328 Extend START to END region to include an entire block of text.
This helps improve syntax analysis for block constructs.
Returns a cons (NEW-START . NEW-END) or nil if no adjustment should be made.
Function is called repeatedly until it returns nil. For details, see
`syntax-propertize-extend-region-functions'.

(fn START END)
(defalias 'markdown-syntax-propertize-extend-region #[514 "\300 \301\302\"\216\212b\210\303\304w\210\305\306\304\307#\203 \310\225^\202 eb\210\303\304x\210\311\306\304\307#\2035 \310\224]\2026 d\312!\211\203B \211@\206C dW\205M \312!\211\203W \211A@\206X 	=\205c \211=?\205l d^B\266\206*\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] "\n" nil re-search-backward "\n\n" t 0 re-search-forward markdown-code-block-at-pos] 12 (#$ . 43512)])
#@185 Used in `jit-lock-after-change-extend-region-functions'.
Delegates to `markdown-syntax-propertize-extend-region'. START
and END are the previous region to refontify.

(fn START END _)
(defalias 'markdown-font-lock-extend-region-function #[771 "\302\"\211\205% dU\203 \303 \304\305\"\216\306@A\"\210)\210\211@\211A\211\207" [jit-lock-start jit-lock-end markdown-syntax-propertize-extend-region match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-syntax-propertize] 8 (#$ . 44344)])
#@204 Return a list describing the list item at point.
Assumes that match data is set for `markdown-regex-list'.  See the
documentation for `markdown-cur-list-item-bounds' for the format of
the returned list.
(defalias 'markdown--cur-list-item-bounds #[0 "\212\300\224\301\302!G\303\225\300\224Z\304\305\224\303\225\"\301\306!\307\310\311!!\312!\257\266\207)\207" [0 match-string-no-properties 1 3 buffer-substring-no-properties 2 4 butlast match-data t markdown-cur-list-item-end] 14 (#$ . 44880)])
#@468 Update list item BOUNDS given list MARKER, block INDENT, and CUR-BOUNDS.
Here, MARKER is a string representing the type of list and INDENT
is an integer giving the indentation, in spaces, of the current
block.  CUR-BOUNDS is a list of the form returned by
`markdown-cur-list-item-bounds' and BOUNDS is a list of bounds
values for parent list items.  When BOUNDS is nil, it means we are
at baseline (not inside of a nested list).

(fn MARKER INDENT CUR-BOUNDS BOUNDS)
(defalias 'markdown--append-list-item-bounds #[1028 "\211@AA@\206	 \301\203 \204 C\207\203$ \\Y\203$ B\207\2033 Y\2033 AB\207W\203_ G\302V\203[ A@AA@\211\262\203[ \\W\203[ A\262\2029 B\207\207" [markdown-list-indent-width 0 1] 8 (#$ . 45396)])
#@308 Propertize list items from START to END.
Stores nested list item information in the `markdown-list-item'
text property to make later syntax analysis easier.  The value of
this property is a list with elements of the form (begin . end)
giving the bounds of the current and parent list items.

(fn START END)
(defalias 'markdown-syntax-propertize-list-items #[514 "\212b\210\302\303\211\211\304 \210`W\205\205 \305\306#\205\205 G\262\307\310T\"\262\311 \210\312 \2033 \303\262\202 \211\313\314!)\262\203H \315 Z\316Y\204 \317 \320 \211@A@\3218\262\322$\262\n`X\203} `\nX\203} \315!\262	\323\324$\210\266\303\210\202 \266\204)\207" [markdown-regex-list inhibit-changing-match-data -100 nil markdown-search-backward-baseline re-search-forward limit format "^\\(    \\|	\\)\\{%d\\}" beginning-of-line markdown-new-baseline t looking-at line-number-at-pos 2 current-indentation markdown--cur-list-item-bounds 4 markdown--append-list-item-bounds put-text-property markdown-list-item] 16 (#$ . 46143)])
#@67 Match preformatted text blocks from START to END.

(fn START END)
(defalias 'markdown-syntax-propertize-pre-blocks #[514 "\212b\210\302\211\204\350 \303 \302\211\211\211\211`W\203\315 \211\204\315 \204% \304\262\202* GT\262\305\306\"\262\305\307S\"\262n\204C \302y\210\202 \310 \203N \302y\210\202 \311 \203\\ \302y\210\302\262\202 \312 \203\220 \313!\203\220 \314\224\262\315\313!)\262\204| \310 \203\206 m\204\206 \302y\210\202k \316\317!\210`\262\202 \313	!\203\247 \320\321\322!\323 #\262\324 \210\202 @\203\307 \315\313!)\262\203\307 \320\302\323 #\262\324 \210\202 \324 \210\202 \203\342 \211\203\342 \325\326D$\266\202 \266\315\202 \302\262)\207" [inhibit-changing-match-data markdown-regex-list nil markdown-calculate-list-levels 1 format "^\\(    \\|	\\)\\{%d\\}" "^\\(    \\|	\\)\\{0,%d\\}\\([^ 	]\\)" markdown-cur-line-blank-p markdown-new-baseline markdown-prev-line-blank looking-at 0 t skip-syntax-backward "-" markdown-update-list-levels match-string 2 current-indentation markdown-end-of-text-block put-text-property markdown-pre] 15 (#$ . 47182)])
#@1458 Mapping of regular expressions to "fenced-block" constructs.
These constructs are distinguished by having a distinctive start
and end pattern, both of which take up an entire line of text,
but no special pattern to identify text within the fenced
blocks (unlike blockquotes and indented-code sections).

Each element within this list takes the form:

  ((START-REGEX-OR-FUN START-PROPERTY)
   (END-REGEX-OR-FUN END-PROPERTY)
   MIDDLE-PROPERTY)

Each *-REGEX-OR-FUN element can be a regular expression as a string, or a
function which evaluates to same. Functions for START-REGEX-OR-FUN accept no
arguments, but functions for END-REGEX-OR-FUN accept a single numerical argument
which is the length of the first group of the START-REGEX-OR-FUN match, which
can be ignored if unnecessary. `markdown-maybe-funcall-regexp' is used to
evaluate these into "real" regexps.

The *-PROPERTY elements are the text properties applied to each part of the
block construct when it is matched using
`markdown-syntax-propertize-fenced-block-constructs'. START-PROPERTY is applied
to the text matching START-REGEX-OR-FUN, END-PROPERTY to END-REGEX-OR-FUN, and
MIDDLE-PROPERTY to the text in between the two. The value of *-PROPERTY is the
`match-data' when the regexp was matched to the text. In the case of
MIDDLE-PROPERTY, the value is a false match data of the form '(begin end), with
begin and end set to the edges of the "middle" text. This makes fontification
easier.
(defconst markdown-fenced-block-pairs (byte-code "\303B\304B\305	\306B\n\307B\310BBE\207" [markdown-regex-tilde-fence-begin markdown-regex-gfm-code-block-open markdown-regex-gfm-code-block-close (markdown-tilde-fence-begin) ((markdown-make-tilde-fence-regex markdown-tilde-fence-end) markdown-fenced-code) ((markdown-get-yaml-metadata-start-border markdown-yaml-metadata-begin) (markdown-get-yaml-metadata-end-border markdown-yaml-metadata-end) markdown-yaml-metadata-section) (markdown-gfm-block-begin) (markdown-gfm-block-end) (markdown-gfm-code)] 5) (#$ . 48304))
#@13 

(fn PROP)
(defalias 'markdown-text-property-at-point #[257 "\300`\"\207" [get-text-property] 4 (#$ . 50335)])
#@29 

(fn OBJECT &optional ARG)
(defalias 'markdown-maybe-funcall-regexp #[513 "\300!\203 \211\203 !\207 \207;\203 \207\301\302!\207" [functionp error "Object cannot be turned into regex"] 4 (#$ . 50454)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put markdown-maybe-funcall-regexp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@149 Return regexp to find all "start" sections of fenced block constructs.
Which construct is actually contained in the match must be found separately.
(defalias 'markdown-get-start-fence-regexp #[0 "\301\302\303\304\"\305#\207" [markdown-fenced-block-pairs mapconcat identity mapcar #[257 "\211@@\300\301!\203 \211\203 !\207 \207;\203 \207\302\303!\207" [nil functionp error "Object cannot be turned into regex"] 5 "\n\n(fn ENTRY)"] "\\|"] 5 (#$ . 50827)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put markdown-get-start-fence-regexp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
(defalias 'markdown-get-fenced-block-begin-properties #[0 "\301\302\"\207" [markdown-fenced-block-pairs cl-mapcar #[257 "\211@A@\207" [] 2 "\n\n(fn ENTRY)"]] 3])
(defalias 'markdown-get-fenced-block-end-properties #[0 "\301\302\"\207" [markdown-fenced-block-pairs cl-mapcar #[257 "\211A@A@\207" [] 2 "\n\n(fn ENTRY)"]] 3])
(defalias 'markdown-get-fenced-block-middle-properties #[0 "\301\302\"\207" [markdown-fenced-block-pairs cl-mapcar cl-third] 3])
#@169 Find previous place where property PROP is non-nil, up to LIM.
Return a cons of (pos . property). pos is point if point contains
non-nil PROP.

(fn PROP &optional LIM)
(defalias 'markdown-find-previous-prop #[513 "\300`\"\203 `\202 \301`\302\206 e$\300\"\204. \211eV\203. \300S\"\203. \211S\262\211\205< \300\"\205< \211B\207" [get-text-property previous-single-property-change nil] 7 (#$ . 51910)])
#@170 Find next place where property PROP is non-nil, up to LIM.
Return a cons of (POS . PROPERTY) where POS is point if point
contains non-nil PROP.

(fn PROP &optional LIM)
(defalias 'markdown-find-next-prop #[513 "\300`\"\203 `\202 \301`\302\206 d$\211\205# \300\"\205# \211B\207" [get-text-property next-single-property-change nil] 7 (#$ . 52331)])
#@94 Apply MAP-FN to SEQ and return element of SEQ with minimum value of MAP-FN.

(fn MAP-FN SEQ)
(defalias 'markdown-min-of-seq #[514 "\211\300\301\300:\203$ @\262!\211W\203 \211\262\262\210A\262\202 \207" [nil 1.0e+INF] 9 (#$ . 52693)])
#@94 Apply MAP-FN to SEQ and return element of SEQ with maximum value of MAP-FN.

(fn MAP-FN SEQ)
(defalias 'markdown-max-of-seq #[514 "\211\300\301\300:\203( @\262!\211\203  \211V\203  \211\262\262\210A\262\202 \207" [nil -1.0e+INF] 9 (#$ . 52946)])
#@279 Find previous block.
Detect whether `markdown-syntax-propertize-fenced-block-constructs' was
unable to propertize the entire block, but was able to propertize the beginning
of the block. If so, return a cons of (pos . property) where the beginning of
the block was propertized.
(defalias 'markdown-find-previous-block #[0 "`\301\302\303\304\305\306\307 \"\"\"\211\205y \310@A\"\211AAA@AA@Z\262\311\312\313\"\"A@@\314!\203F \211\203? !\266\202\202V  \266\202\202V ;\203Q \266\202\202V \315\316!\266\202\212\317 \312\320\"\216@b\210\321\322#\205m \323\224)\262)\211?\205w \266\203\207" [markdown-fenced-block-pairs markdown-max-of-seq car cl-remove-if null cl-mapcar markdown-find-previous-prop markdown-get-fenced-block-begin-properties get-text-property cl-find-if make-closure #[257 "\211@A@\300A=\207" [V0] 3 "\n\n(fn ENTRY)"] functionp error "Object cannot be turned into regex" match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] re-search-forward t 0] 9 (#$ . 53211)])
#@130 Return limits of an enclosing fenced block from its start, using PROP.
Return value is a list usable as `match-data'.

(fn PROP)
(defalias 'markdown-get-fenced-block-from-start #[257 "\3012Z \302\303\304\"\"\305!@AA@A@A@\212\306\225b\210m\204$ \307u\210\305!\211\204A \305!\211\2038 \211A@\202< \310\301\307\"\262\202Q \311!\210\306\225b\210\312 \210\305!A@\262)D\266\2050\207" [markdown-fenced-block-pairs no-rest-of-block cl-find-if make-closure #[257 "\211@A@\300=\207" [V0] 3 "\n\n(fn ENTRY)"] markdown-text-property-at-point 0 nil throw set-match-data beginning-of-line] 10 (#$ . 54229)])
#@131 Return limits of an enclosing fenced block from its middle, using PROP.
Return value is a list usable as `match-data'.

(fn PROP)
(defalias 'markdown-get-fenced-block-from-middle #[257 "\301\302\303\"\"\211@A@\212\304\224b\210o\204 \305y\210\306 \210\307!@)A@A@\212\304\225b\210\306 \210\307!A@)D\207" [markdown-fenced-block-pairs cl-find-if make-closure #[257 "\211AA@\300=\207" [V0] 3 "\n\n(fn ENTRY)"] 0 -1 beginning-of-line markdown-text-property-at-point] 8 (#$ . 54843)])
#@128 Return limits of an enclosing fenced block from its end, using PROP.
Return value is a list usable as `match-data'.

(fn PROP)
(defalias 'markdown-get-fenced-block-from-end #[257 "\301\302\303\"\"\304!A@AA@@A@\212\305\224b\210o\204  \306u\210\304!\211\2041 \307 \210\304!@\202G \310!\210\305\224b\210o\204@ \306y\210\307 \210\304!@\262)\211D\207" [markdown-fenced-block-pairs cl-find-if make-closure #[257 "\211A@A@\300=\207" [V0] 3 "\n\n(fn ENTRY)"] markdown-text-property-at-point 0 -1 beginning-of-line set-match-data] 8 (#$ . 55336)])
#@224 Get "fake" match data for block enclosing POS.
Returns fake match data which encloses the start, middle, and end
of the block construct enclosing POS, if it exists. Used in
`markdown-code-block-at-pos'.

(fn &optional POS)
(defalias 'markdown-get-enclosing-fenced-block-construct #[256 "\212\211\203 \211b\210\300 \210\301\302\303\304\305\306\307\310 \"D\311\306\307\312 \"D\313\306\307\314 \"DE\"\"@)\207" [beginning-of-line cl-remove-if null cl-mapcar #[257 "\211\211A\262\242\242\211\205  \300 \301\302\"\216\303\304!!\210!)\262\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] set-match-data markdown-text-property-at-point] 8 "\n\n(fn FUN-AND-PROP)"] markdown-get-fenced-block-from-start cl-find-if markdown-text-property-at-point markdown-get-fenced-block-begin-properties markdown-get-fenced-block-from-middle markdown-get-fenced-block-middle-properties markdown-get-fenced-block-from-end markdown-get-fenced-block-end-properties] 11 (#$ . 55893)])
#@233 Get match for REG up to END, if exists, and propertize appropriately.
FENCE-SPEC is an entry in `markdown-fenced-block-pairs' and
MIDDLE-BEGIN is the start of the "middle" section of the block.

(fn REG END FENCE-SPEC MIDDLE-BEGIN)
(defalias 'markdown-propertize-end-match #[1028 "\300\301#\2050 \302\224\302\225\303\301!\304AA@D$\210\305\"\210\304A@A@$\266\203\207" [re-search-forward t 0 match-data put-text-property markdown-syntax-propertize-yaml-metadata] 13 (#$ . 56904)])
#@367 Propertize according to `markdown-fenced-block-pairs' from START to END.
If unable to propertize an entire block (if the start of a block is within START
and END, but the end of the block is not), propertize the start section of a
block, then in a subsequent call propertize both middle and end by finding the
start which was previously propertized.

(fn START END)
(defalias 'markdown-syntax-propertize-fenced-block-constructs #[514 "\301\302\303\304\"\305#\212b\210\306 \211\203\225 \307\310\311\"\"@T\212@b\210\312@@\313\314!\203? \211\2038 !\266\202\202O  \266\202\202O ;\203J \266\202\202O \315\316!\266\202\317 \320 {\"\210\321\225\321\224Z)A@@\314!\203z \211\203s !\266\202\202\212  \266\202\202\212 ;\203\205 \266\202\202\212 \315\316!\266\202\322$\266\210\323\324#\205@\317 \320 {\307\310\325\"\"\212\320 T)A@@\321\224\203\305 \321\225\203\305 \321\225\321\224Z\202\306 \326\314!\203\337 \211\203\330 !\266\202\202\357  \266\202\202\357 ;\203\352 \266\202\202\357 \315\316!\266\202\212\327 \210\323@@\313\314!\203\211\203\n!\266\202\202! \266\202\202!;\203\266\202\202!\315\316!\266\202\320 \"\210)\330\326\224\326\225@A@\331\324!$\210\322$\266\202\226 )\207" [markdown-fenced-block-pairs mapconcat identity mapcar #[257 "\211@@\300\301!\203 \211\203 !\207 \207;\203 \207\302\303!\207" [nil functionp error #1="Object cannot be turned into regex"] 5 "\n\n(fn ENTRY)"] "\\|" markdown-find-previous-block cl-find-if make-closure #[257 "\300A@A@=\207" [V0] 3 "\n\n(fn ENTRY)"] string-match nil functionp error #1# point-at-bol point-at-eol 1 markdown-propertize-end-match re-search-forward t #[257 "\211@@\302\303!\203 \211\203 !\266\202\202-  \266\202\202- ;\203( \266\202\202- \304\305!\266\202\300\302\306\307#)\207" [V0 inhibit-changing-match-data nil functionp error #1# t string-match] 8 "\n\n(fn FENCED-PAIR)"] 0 beginning-of-line put-text-property match-data] 13 (#$ . 57407)])
#@54 Match blockquotes from START to END.

(fn START END)
(defalias 'markdown-syntax-propertize-blockquotes #[514 "\212b\210\301\302#\205\" \303\304\224!?\205\" \305\304\224\304\225\306\307\302!$\210\202 )\207" [markdown-regex-blockquote re-search-forward t markdown-code-block-at-pos 0 put-text-property markdown-blockquote match-data] 8 (#$ . 59390)])
#@59 Match horizontal rules from START to END.

(fn START END)
(defalias 'markdown-syntax-propertize-hrs #[514 "\212b\210\301\302#\205- \303\224\303\225b\210\304 \204& \305 \204& \306\307\310\302!$\210\211b\266\202 )\207" [markdown-regex-hr re-search-forward t 0 markdown-on-heading-p markdown-code-block-at-point-p put-text-property markdown-hr match-data] 10 (#$ . 59749)])
#@258 Propertize elements inside YAML metadata blocks from START to END.
Assumes region from START and END is already known to be the interior
region of a YAML metadata block as propertized by
`markdown-syntax-propertize-fenced-block-constructs'.

(fn START END)
(defalias 'markdown-syntax-propertize-yaml-metadata #[514 "\212b\210\301\302#\2030 \303\304\224\304\225\305\306\302!$\210\303\307\224\307\225\310\306\302!$\210\303\311\224\311\225\312\306\302!$\210\202 )\313\207" [markdown-regex-declarative-metadata re-search-forward t put-text-property 1 markdown-metadata-key match-data 2 markdown-metadata-markup 3 markdown-metadata-value nil] 8 (#$ . 60135)])
#@77 Match headings of type SYMBOL with REGEX from START to END.

(fn START END)
(defalias 'markdown-syntax-propertize-headings #[514 "b\210\301\302#\205L \303\304\224!\204 \305\304\224\304\225\306\307\302!$\210\305\304\224\304\225\310\311!\203, \312\202D \310\313!\2036 \314\202D \315\310\316!!G\317\320\321\"!\262\307\302!$\210\202 \207" [markdown-regex-header re-search-forward t markdown-code-block-at-pos 0 put-text-property markdown-heading match-data match-string-no-properties 2 markdown-heading-1-setext 3 markdown-heading-2-setext markdown-trim-whitespace 4 intern format "markdown-heading-%d-atx"] 10 (#$ . 60800)])
#@60 Match HTML comments from the START to END.

(fn START END)
(defalias 'markdown-syntax-propertize-comments #[514 "\304b\210\211\204z \305\306 8\307\306 8\204= \310\311#\203= \312 \204= \313 \204= \314\224\315\211T\316\317$\210\314\225T^d^b\266\202 \203t \211\203t \310	\311#\203t \314\225\315\nS\n\316\320$\210\321\n#\210\315\n\322\nD$\210\n^d^b\210)\266\202 \311\266\203\202 \304\207" [markdown-regex-comment-start markdown-regex-comment-end comment-end markdown--syntax-properties nil 4 syntax-ppss 8 re-search-forward t markdown-inline-code-at-point-p markdown-code-block-at-point-p 0 put-text-property syntax-table (11) (12) remove-text-properties markdown-comment] 11 (#$ . 61435)])
#@108 Function used as `syntax-propertize-function'.
START and END delimit region to propertize.

(fn START END)
(defalias 'markdown-syntax-propertize #[514 "\304 \305\211\305\306\307\"\216\212\310#\210\311\"\210\312\"\210\313\"\210\314\"\210\315\"\210\316\"\210\317\"-\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks markdown--syntax-properties buffer-modified-p t make-closure #[0 "\300?\205 \301\302!\207" [V0 restore-buffer-modified-p nil] 2] remove-text-properties markdown-syntax-propertize-fenced-block-constructs markdown-syntax-propertize-list-items markdown-syntax-propertize-pre-blocks markdown-syntax-propertize-blockquotes markdown-syntax-propertize-headings markdown-syntax-propertize-hrs markdown-syntax-propertize-comments] 8 (#$ . 62148)])
#@51 List of properties and values to apply to markup.
(defconst markdown-markup-properties '(face markdown-markup-face invisible markdown-markup) (#$ . 62947))
#@70 List of properties and values to apply to code block language names.
(defconst markdown-language-keyword-properties '(face markdown-language-keyword-face invisible markdown-markup) (#$ . 63109))
#@77 List of properties and values to apply to code block language info strings.
(defconst markdown-language-info-properties '(face markdown-language-info-face invisible markdown-markup) (#$ . 63310))
#@65 List of properties and values to apply to included code titles.
(defconst markdown-include-title-properties '(face markdown-link-title-face invisible markdown-markup) (#$ . 63512))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\210\316\301!\207" [custom-declare-variable markdown-hide-markup funcall function #[0 "\300\207" [nil] 1] "Determines whether markup in the buffer will be hidden.\nWhen set to nil, all markup is displayed in the buffer as it\nappears in the file.  An exception is when `markdown-hide-urls'\nis non-nil.\nSet this to a non-nil value to turn this feature on by default.\nYou can interactively toggle the value of this variable with\n`markdown-toggle-markup-hiding', \\[markdown-toggle-markup-hiding],\nor from the Markdown > Show & Hide menu.\n\nMarkup hiding works by adding text properties to positions in the\nbuffer---either the `invisible' property or the `display' property\nin cases where alternative glyphs are used (e.g., list bullets).\nThis does not, however, affect printing or other output.\nFunctions such as `htmlfontify-buffer' and `ps-print-buffer' will\nnot honor these text properties.  For printing, it would be better\nto first convert to HTML or PDF (e.g,. using Pandoc)." :group markdown :type boolean :safe booleanp :package-version (markdown-mode . "2.3") make-variable-buffer-local] 12)
#@207 Toggle the display or hiding of markup.
With a prefix argument ARG, enable markup hiding if ARG is positive,
and disable it otherwise.
See `markdown-hide-markup' for additional details.

(fn &optional ARG)
(defalias 'markdown-toggle-markup-hiding #[256 "\211\301=\203 ?\202 \302!\303V\211\203  \304\305!\210\306\307!\210\202( \310\305!\210\306\311!\210\312 \207" [markdown-hide-markup toggle prefix-numeric-value 0 add-to-invisibility-spec markdown-markup message "markdown-mode markup hiding enabled" remove-from-invisibility-spec "markdown-mode markup hiding disabled" markdown-reload-extensions] 4 (#$ . 64883) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(byte-code "\300\301!\210\302\303\304\305\306\307\306\310&\210\311\312\313\314\306\303%\210\311\315\316\317\306\303%\210\311\320\321\322\306\303%\210\311\323\324\325\306\303%\210\311\326\327\330\306\303%\210\311\331\332\333\306\303%\210\311\334\335\336\306\303%\210\311\337\340\341\306\303%\210\311\342\343\344\306\303%\210\311\345\346\347\306\303%\210\311\350\351\352\306\303%\210\311\353\354\355\306\303%\210\311\356\357\360\306\303%\210\311\361\362\363\306\303%\210\311\364\365\366\306\303%\210\311\367\370\371\306\303%\210\311\372\373\374\306\303%\210\311\375\376\377\306\303%\210\311\201@ \201A \201B \306\303%\210\311\201C \201D \201E \306\303%\210\311\201F \201G \201H \306\303%\210\311\201I \201J \201K \306\303%\210\311\201L \201M \201N \306\303%\210\311\201O \201P \201Q \306\303%\210\311\201R \201S \201T \306\303%\210\311\201U \201V \201W \306\303%\210\311\201X \201Y \201Z \306\303%\210\311\201[ \201\\ \201] \306\303%\210\311\201^ \201_ \201` \306\303%\210\311\201a \201b \201c \306\303%\210\311\201d \201e \201f \306\303%\210\311\201g \201h \201i \306\303%\210\311\201j \201k \201l \306\303%\210\311\201m \201n \201o \306\303%\210\311\201p \201q \201r \306\303%\210\201s \201t \201u \201v \201w DD\201x \201y \201z \201{ \201| \201} \201~ \306\303\201 \201\200 &\210\201s \201\201 \201u \201v \201\202 DD\201\203 \201y \201\204 \201{ \201| \201} \201\205 \306\303&\207" [require font-lock custom-declare-group markdown-faces nil "Faces used in Markdown Mode." :group markdown faces custom-declare-face markdown-italic-face ((t (:inherit italic))) "Face for italic text." markdown-bold-face ((t (:inherit bold))) "Face for bold text." markdown-strike-through-face ((t (:strike-through t))) "Face for strike-through text." markdown-markup-face ((t (:inherit shadow :slant normal :weight normal))) "Face for markup elements." markdown-header-rule-face ((t (:inherit markdown-markup-face))) "Base face for headers rules." markdown-header-delimiter-face ((t (:inherit markdown-markup-face))) "Base face for headers hash delimiter." markdown-list-face ((t (:inherit markdown-markup-face))) "Face for list item markers." markdown-blockquote-face ((t (:inherit font-lock-doc-face))) "Face for blockquote sections." markdown-code-face ((t (:inherit fixed-pitch))) "Face for inline code, pre blocks, and fenced code blocks.\nThis may be used, for example, to add a contrasting background to\ninline code fragments and code blocks." markdown-inline-code-face ((t (:inherit (markdown-code-face font-lock-constant-face)))) "Face for inline code." markdown-pre-face ((t (:inherit (markdown-code-face font-lock-constant-face)))) "Face for preformatted text." markdown-table-face ((t (:inherit (markdown-code-face)))) "Face for tables." markdown-language-keyword-face ((t (:inherit font-lock-type-face))) "Face for programming language identifiers." markdown-language-info-face ((t (:inherit font-lock-string-face))) "Face for programming language info strings." markdown-link-face ((t (:inherit link))) "Face for links." markdown-missing-link-face ((t (:inherit font-lock-warning-face))) "Face for missing links." markdown-reference-face ((t (:inherit markdown-markup-face))) "Face for link references." markdown-footnote-marker-face ((t (:inherit markdown-markup-face))) "Face for footnote markers." markdown-footnote-text-face ((t (:inherit font-lock-comment-face))) "Face for footnote text." markdown-url-face ((t (:inherit font-lock-string-face))) "Face for URLs that are part of markup.\nFor example, this applies to URLs in inline links:\n[link text](http://example.com/)." markdown-plain-url-face ((t (:inherit markdown-link-face))) "Face for URLs that are also links.\nFor example, this applies to plain angle bracket URLs:\n<http://example.com/>." markdown-link-title-face ((t (:inherit font-lock-comment-face))) "Face for reference link titles." markdown-line-break-face ((t (:inherit font-lock-constant-face :underline t))) "Face for hard line breaks." markdown-comment-face ((t (:inherit font-lock-comment-face))) "Face for HTML comments." markdown-math-face ((t (:inherit font-lock-string-face))) "Face for LaTeX expressions." markdown-metadata-key-face ((t (:inherit font-lock-variable-name-face))) "Face for metadata keys." markdown-metadata-value-face ((t (:inherit font-lock-string-face))) "Face for metadata values." markdown-gfm-checkbox-face ((t (:inherit font-lock-builtin-face))) "Face for GFM checkboxes." markdown-highlight-face ((t (:inherit highlight))) "Face for mouse highlighting." markdown-hr-face ((t (:inherit markdown-markup-face))) "Face for horizontal rules." markdown-html-tag-name-face ((t (:inherit font-lock-type-face))) "Face for HTML tag names." markdown-html-tag-delimiter-face ((t (:inherit markdown-markup-face))) "Face for HTML tag delimiters." markdown-html-attr-name-face ((t (:inherit font-lock-variable-name-face))) "Face for HTML attribute names." markdown-html-attr-value-face ((t (:inherit font-lock-string-face))) "Face for HTML attribute values." markdown-html-entity-face ((t (:inherit font-lock-variable-name-face))) "Face for HTML entities." custom-declare-variable markdown-header-scaling funcall function #[0 "\300\207" [nil] 1] "Whether to use variable-height faces for headers.\nWhen non-nil, `markdown-header-face' will inherit from\n`variable-pitch' and the scaling values in\n`markdown-header-scaling-values' will be applied to\nheaders of levels one through six respectively." :type boolean :initialize custom-initialize-default :set #[514 "\300\"\210\301!\207" [set-default markdown-update-header-faces] 5 "\n\n(fn SYMBOL VALUE)"] :package-version (markdown-mode . "2.2") markdown-header-scaling-values #[0 "\300\207" [(2.0 1.7 1.4 1.1 1.0 1.0)] 1] "List of scaling values for headers of level one through six.\nUsed when `markdown-header-scaling' is non-nil." list #[514 "\301\"\210\302\"\207" [markdown-header-scaling set-default markdown-update-header-faces] 5 "\n\n(fn SYMBOL VALUE)"]] 14)
#@44 Build the faces used for Markdown headers.
(defalias 'markdown-make-header-faces #[0 "\302\203\n \303B\262\304\305\306\307\310BBDC\311\312\313%\266\314\315\211W\205Z \211\211T\316\317\320\"!\2037 \321	8!\2028 \322\323\324\325\306\307\305\326FDCD\317\327E\330BBBB!\266\211T\262\202 \207" [markdown-header-scaling markdown-header-scaling-values (font-lock-function-name-face) variable-pitch custom-declare-face markdown-header-face t :inherit (:weight bold) "Base face for headers." :group markdown-faces 6 0 intern format "markdown-header-face-%s" float 1.0 eval defface quote :height "Face for level %s headers.\nYou probably don't want to customize this face directly. Instead\nyou can customize the base face `markdown-header-face' or the\nvariable-height variable `markdown-header-scaling'." (:group 'markdown-faces)] 15 (#$ . 71542)])
(markdown-make-header-faces)
#@201 Update header faces, depending on if header SCALING is desired.
If so, use given list of SCALING-VALUES relative to the baseline
size of `markdown-header-face'.

(fn &optional SCALING SCALING-VALUES)
(defalias 'markdown-update-header-faces #[512 "\301\302\211W\205@ \211\303\304\305T\"!\204 \306\202* \203% \3078!\202* \3078!\310N\2047 \311\312\313$\210\266\211T\262\202 \207" [markdown-header-scaling-values 6 0 intern format "markdown-header-face-%s" 1.0 float saved-face set-face-attribute nil :height] 12 (#$ . 72434)])
#@121 Return font-lock face for characters with given STATE.
See `font-lock-syntactic-face-function' for details.

(fn STATE)
(defalias 'markdown-syntactic-face #[257 "\3008\211\203	 \301\207\302\207" [4 markdown-comment-face nil] 3 (#$ . 72981)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable markdown-list-item-bullets funcall function #[0 "\300\207" [("●" "◎" "○" "◆" "◇" "►" "•")] 1] "List of bullets to use for unordered lists.\nIt can contain any number of symbols, which will be repeated.\nDepending on your font, some reasonable choices are:\n♥ ● ◇ ✚ ✜ ☯ ◆ ♠ ♣ ♦ ❀ ◆ ◖ ▶ ► • ★ ▸." :group markdown :type (repeat (string :tag "Bullet character")) :package-version (markdown-mode . "2.3")] 10)
#@66 Return a font-lock facespec expression for footnote marker text.
(defalias 'markdown--footnote-marker-properties #[0 "\302\303\205	 \304	DBB\207" [markdown-hide-markup markdown-footnote-display face markdown-footnote-marker-face display] 4 (#$ . 73780)])
#@73 Return a font-lock facespec expression for Pandoc inline footnote text.
(defalias 'markdown--pandoc-inline-footnote-properties #[0 "\302\303\205	 \304	DBB\207" [markdown-hide-markup markdown-footnote-display face markdown-footnote-text-face display] 4 (#$ . 74042)])
#@41 Syntax highlighting for Markdown files.
(defvar markdown-mode-font-lock-keywords (byte-code "\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326B\327	\330B\331\332\333\334\n\335B\257\336B\337\f\340B\341B\342\343\344/\345B\346\347\350\351\352\3530\354B1\355B\356BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB\207" [markdown-regex-kbd markdown-regex-email markdown-regex-html-attr markdown-regex-html-entity markdown-regex-footnote markdown-regex-pandoc-inline-footnote (markdown-match-yaml-metadata-begin (1 'markdown-markup-face)) (markdown-match-yaml-metadata-end (1 'markdown-markup-face)) (markdown-match-yaml-metadata-key (1 'markdown-metadata-key-face) (2 'markdown-markup-face) (3 'markdown-metadata-value-face)) (markdown-match-gfm-open-code-blocks (1 markdown-markup-properties) (2 markdown-markup-properties nil t) (3 markdown-language-keyword-properties nil t) (4 markdown-language-info-properties nil t) (5 markdown-markup-properties nil t)) (markdown-match-gfm-close-code-blocks (0 markdown-markup-properties)) (markdown-fontify-gfm-code-blocks) (markdown-fontify-tables) (markdown-match-fenced-start-code-block (1 markdown-markup-properties) (2 markdown-markup-properties nil t) (3 markdown-language-keyword-properties nil t) (4 markdown-language-info-properties nil t) (5 markdown-markup-properties nil t)) (markdown-match-fenced-end-code-block (0 markdown-markup-properties)) (markdown-fontify-fenced-code-blocks) (markdown-match-pre-blocks (0 'markdown-pre-face)) (markdown-fontify-headings) (markdown-match-declarative-metadata (1 'markdown-metadata-key-face) (2 'markdown-markup-face) (3 'markdown-metadata-value-face)) (markdown-match-pandoc-metadata (1 'markdown-markup-face) (2 'markdown-markup-face) (3 'markdown-metadata-value-face)) (markdown-fontify-hrs) (markdown-match-code (1 markdown-markup-properties prepend) (2 'markdown-inline-code-face prepend) (3 markdown-markup-properties prepend)) ((1 markdown-markup-properties) (2 'markdown-inline-code-face) (3 markdown-markup-properties)) (markdown-fontify-angle-uris) 'markdown-plain-url-face markdown-match-html-tag (1 'markdown-html-tag-delimiter-face t) (2 'markdown-html-tag-name-face t) (3 'markdown-html-tag-delimiter-face t) ((progn (goto-char (match-end 2)) (match-end 3)) nil (1 'markdown-html-attr-name-face) (3 'markdown-html-tag-delimiter-face nil t) (4 'markdown-html-attr-value-face nil t)) 'markdown-html-entity-face (markdown-fontify-list-items) ((1 markdown-markup-properties) (2 (markdown--footnote-marker-properties)) (3 markdown-markup-properties)) ((1 markdown-markup-properties) (2 markdown-markup-properties) (3 (markdown--pandoc-inline-footnote-properties)) (4 markdown-markup-properties)) (markdown-match-includes (1 markdown-markup-properties) (2 markdown-markup-properties nil t) (3 markdown-include-title-properties nil t) (4 markdown-markup-properties nil t) (5 markdown-markup-properties) (6 'markdown-url-face) (7 markdown-markup-properties)) (markdown-fontify-inline-links) (markdown-fontify-reference-links) ((1 'markdown-markup-face) (2 'markdown-reference-face) (3 'markdown-markup-face) (4 'markdown-markup-face) (5 'markdown-url-face) (6 'markdown-link-title-face)) (markdown-fontify-plain-uris) (markdown-match-math-single (1 'markdown-markup-face prepend) (2 'markdown-math-face append) (3 'markdown-markup-face prepend)) (markdown-match-math-double (1 'markdown-markup-face prepend) (2 'markdown-math-face append) (3 'markdown-markup-face prepend)) (markdown-match-math-display (1 'markdown-markup-face prepend) (3 'markdown-math-face append) (4 'markdown-markup-face prepend)) (markdown-match-bold (1 markdown-markup-properties prepend) (2 'markdown-bold-face append) (3 markdown-markup-properties prepend)) (markdown-match-italic (1 markdown-markup-properties prepend) (2 'markdown-italic-face append) (3 markdown-markup-properties prepend)) ((3 markdown-markup-properties) (4 'markdown-strike-through-face) (5 markdown-markup-properties)) (1 'markdown-line-break-face prepend) ((markdown-fontify-sub-superscripts) (markdown-match-inline-attributes (0 markdown-markup-properties prepend)) (markdown-match-leanpub-sections (0 markdown-markup-properties)) (markdown-fontify-blockquotes) (markdown-match-wiki-link (0 'markdown-link-face prepend))) markdown-regex-reference-definition markdown-regex-strike-through markdown-regex-line-break] 37) (#$ . 74316))
#@31 Counter for footnote numbers.
(defvar markdown-footnote-counter 0 (#$ . 78710))
(make-variable-buffer-local 'markdown-footnote-counter)
#@70 Regular expression matching any character for a footnote identifier.
(defconst markdown-footnote-chars "[[:alnum:]-]" (#$ . 78852))
#@73 Regular expression matching a footnote definition, capturing the label.
(defconst markdown-regex-footnote-definition (concat "^ \\{0,3\\}\\[\\(\\^" markdown-footnote-chars "*?\\)\\]:\\(?:[ 	]+\\|$\\)") (#$ . 78990))
#@111 Return t if `flyspell' should check word just before point.
Used for `flyspell-generic-check-word-predicate'.
(defalias 'markdown-flyspell-check-word-p #[0 "\212`Sb\210\300 \203 \301\302!\203* \303 \204* \304\305\206 `\306\"\262\204* \307`\310\"\203Z \304\311\312!\211\203V \313@A\"\304:\203T @\262\314\315\"\203M \316!\210A\262\2029 \266\210\202[ \317)\207" [markdown-code-block-at-point-p markdown-text-property-at-point markdown-yaml-metadata-section markdown-inline-code-at-point-p nil get-text-property markdown-comment markdown--face-p (markdown-reference-face markdown-markup-face markdown-plain-url-face markdown-inline-code-face markdown-url-face) bounds-of-thing-at-point word overlays-in overlay-get flyspell-overlay delete-overlay t] 7 (#$ . 79213)])
#@58 Return t if the current line is blank and nil otherwise.
(defalias 'markdown-cur-line-blank-p #[0 "\212\302 \210\303\304!)\262)\207" [markdown-regex-blank-line inhibit-changing-match-data beginning-of-line t looking-at] 3 (#$ . 79996)])
#@133 Return t if the previous line is blank and nil otherwise.
If we are at the first line, then consider the previous line to be blank.
(defalias 'markdown-prev-line-blank #[0 "\301 eU\206 \212\302y\210\303!)\207" [markdown-regex-blank-line line-beginning-position -1 looking-at] 2 (#$ . 80244)])
#@61 Like `markdown-prev-line-blank', but preserve `match-data'.
(defalias 'markdown-prev-line-blank-p #[0 "\300 \301\302\"\216\303 )\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-prev-line-blank] 4 (#$ . 80545)])
#@124 Return t if the next line is blank and nil otherwise.
If we are at the last line, then consider the next line to be blank.
(defalias 'markdown-next-line-blank-p #[0 "\300 dU\206 \212\301y\210\302 )\207" [line-end-position 1 markdown-cur-line-blank-p] 2 (#$ . 80813)])
#@136 Return the number of leading whitespace characters in the previous line.
Return 0 if the current line is the first line in the buffer.
(defalias 'markdown-prev-line-indent #[0 "\212\300 eU\203\f \301\202 \302y\210\303 )\207" [line-beginning-position 0 -1 current-indentation] 2 (#$ . 81089)])
#@119 Return the number of leading whitespace characters in the next line.
Return 0 if line is the last line in the buffer.
(defalias 'markdown-next-line-indent #[0 "\212\300 dU\203\f \301\202 \302y\210\303 )\207" [line-end-position 0 1 current-indentation] 2 (#$ . 81390)])
#@109 Determine if the current line begins a new baseline level.
Assume point is positioned at beginning of line.
(defalias 'markdown-new-baseline #[0 "\303!\206 \303	!\206 \304 \305U\205 \303\n!?\205 \306 \207" [markdown-regex-header markdown-regex-hr markdown-regex-list looking-at current-indentation 0 markdown-prev-line-blank] 2 (#$ . 81667)])
#@73 Search backward baseline point with no indentation and not a list item.
(defalias 'markdown-search-backward-baseline #[0 "\303\210\303\211\206	 o?\205? \304\303\305#\210\306\225\203 \306\225b\210\307 \203' \305\262\202 	\305\310!)\262\2039 \303\262\202 \305\262\202 \207" [markdown-regex-block-separator-noindent markdown-regex-list inhibit-changing-match-data nil re-search-backward t 2 markdown-new-baseline looking-at] 5 (#$ . 82021)])
#@383 Update list levels given list MARKER, block INDENT, and current LEVELS.
Here, MARKER is a string representing the type of list, INDENT is an integer
giving the indentation, in spaces, of the current block, and LEVELS is a
list of the indentation levels of parent list items.  When LEVELS is nil,
it means we are at baseline (not inside of a nested list).

(fn MARKER INDENT LEVELS)
(defalias 'markdown-update-list-levels #[771 "\203 \211\204 C\211\262\207\203\" @\\Y\203\" B\211\262\207\203. @Y\203. \207@W\203N \211G\301V\203M A@\\W\203M \211A\262\2025 \207\207" [markdown-list-indent-width 1] 6 (#$ . 82479)])
#@377 Calculate list levels at point.
Return a list of the form (n1 n2 n3 ...) where n1 is the
indentation of the deepest nested list item in the branch of
the list at the point, n2 is the indentation of the parent
list item, and so on.  The depth of the list item is therefore
the length of the returned list.  If the point is not at or
immediately  after a list item, return nil.
(defalias 'markdown-calculate-list-levels #[0 "\212`\302\211\211\303 \210`W\203K \304\305#\203K \306\307GT\"\262\310 \210\311 \203, \302\262\202E \211\305\312!)\262\204E \313 \262\314\315\316!#\262\302\210\202 \266\204)\207" [markdown-regex-list inhibit-changing-match-data nil markdown-search-backward-baseline re-search-forward t format "^\\(    \\|	\\)\\{%d\\}" beginning-of-line markdown-new-baseline looking-at current-indentation markdown-update-list-levels match-string 2] 8 (#$ . 83119)])
#@159 Search backward from point for a list item with indentation LEVEL.
Set point to the beginning of the item, and return point, or nil
upon failure.

(fn LEVEL)
(defalias 'markdown-prev-list-item #[257 "\304\211\211`\262\305y\210\306 \262\307\310!)\262\203K \311 \211\262\203K \3128U\203+ `\207\3128W\2035 \304\207o\203@ \304\211\262\202\232 \3128V\203\247 \202\235 o\203V \304\211\262\202\232 \313 \204\235 Y\204\235 W\203s \314 \203s \304\211\262\202\232 \n\307\310!)\262\203\206 \304\211\262\202\232 \307\310!)\262\203\231 \304\211\262\202\232 \307\203\247 \305y\210\306 \262\202 \207" [markdown-regex-list inhibit-changing-match-data markdown-regex-header markdown-regex-hr nil -1 current-indentation t looking-at markdown-cur-list-item-bounds 3 markdown-cur-line-blank-p markdown-next-line-blank-p] 7 (#$ . 84015)])
#@165 Search forward from point for the next list item with indentation LEVEL.
Set point to the beginning of the item, and return point, or nil
upon failure.

(fn LEVEL)
(defalias 'markdown-next-list-item #[257 "\305\211\211`\262\306!\203 \307\225b\210\305y\210\310 \262m\204\234 \311 \204\222 	\312\306!)\262\203P \313 \211\262\203P \3148V\204\222 \3148U\203F `\207\3148W\203\234 \305\207Y\204\222 W\203h \315 \203h \305\211\262\202\217 \312\306!)\262\203{ \305\211\262\202\217 \f\312\306!)\262\203\216 \305\211\262\202\217 \312\203\234 \305y\210\310 \262\202 \207" [markdown-regex-header-setext markdown-regex-list inhibit-changing-match-data markdown-regex-header markdown-regex-hr nil looking-at 0 current-indentation markdown-cur-line-blank-p t markdown-cur-list-item-bounds 3 markdown-prev-line-blank-p] 7 (#$ . 84871)])
#@200 Move to end of list item with pre-marker indentation LEVEL.
Return the point at the end when a list item was found at the
original point.  If the point is not in a list item, do nothing.

(fn LEVEL)
(defalias 'markdown-cur-list-item-end #[257 "\304\211y\210\305 \262m\204; \211Y\2041 \306!\2041 \211W\203# \307 \204; \306\310	\311\n\311\312\260!\204; \304y\210\305 \262\202 \212\313 \210\306	\314P!)\203O \315\225b\210\202S \316\304x\210\304\210`\207" [markdown-regex-blank-line markdown-regex-list markdown-regex-header markdown-regex-hr nil current-indentation looking-at markdown-prev-line-blank "\\(?:" "\\|" "\\)" beginning-of-line "[ 	]*$" 3 " 	\n"] 10 (#$ . 85729)])
#@1006 Return bounds for list item at point.
Return a list of the following form:

    (begin end indent nonlist-indent marker checkbox match)

The named components are:

  - begin: Position of beginning of list item, including leading indentation.
  - end: Position of the end of the list item, including list item text.
  - indent: Number of characters of indentation before list marker (an integer).
  - nonlist-indent: Number characters of indentation, list
    marker, and whitespace following list marker (an integer).
  - marker: String containing the list marker and following whitespace
            (e.g., "- " or "* ").
  - checkbox: String containing the GFM checkbox portion, if any,
    including any trailing whitespace before the text
    begins (e.g., "[x] ").
  - match: match data for markdown-regex-list

As an example, for the following unordered list item

   - item

the returned list would be

    (1 14 3 5 "- " nil (1 6 1 4 4 5 5 6))

If the point is not inside a list item, return nil.
(defalias 'markdown-cur-list-item-bounds #[0 "\300\301 \302\"@\207" [get-text-property point-at-bol markdown-list-item] 3 (#$ . 86420)])
#@66 Return t if there is a list item at the point and nil otherwise.
(defalias 'markdown-list-item-at-point-p #[0 "\300 \301\302\"\216\303 )\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-cur-list-item-bounds] 4 (#$ . 87568)])
#@142 Return bounds of previous item in the same list of any level.
The return value has the same form as that of
`markdown-cur-list-item-bounds'.
(defalias 'markdown-prev-list-item-bounds #[0 "\212\302 \212\303 )\304\2053 @b\210\211\2041 o\2041 \305\306#\2031 \307	!\204 \310 \204 `\262\202 \302 \266\203)\207" [markdown-regex-list markdown-regex-hr markdown-cur-list-item-bounds markdown-beginning-of-list nil re-search-backward t looking-at markdown-code-block-at-point-p] 7 (#$ . 87849)])
#@138 Return bounds of next item in the same list of any level.
The return value has the same form as that of
`markdown-cur-list-item-bounds'.
(defalias 'markdown-next-list-item-bounds #[0 "\212\302 \212\303 )\304\205: @b\210\304\210\211\2044 m\2044 \305\306#\2034 \307	!\204 \310 \204 `\262\202 \211\205: \302 \266\203)\207" [markdown-regex-list markdown-regex-hr markdown-cur-list-item-bounds markdown-end-of-list nil re-search-forward t looking-at markdown-code-block-at-point-p] 7 (#$ . 88351)])
#@51 Move point to beginning of list at point, if any.
(defalias 'markdown-beginning-of-list #[0 "`\212\301 \210\302d!\210\303!\205 `)\211\205 \211X\205 \211b\207" [markdown-regex-list markdown-search-backward-baseline markdown-next-list-item looking-at] 4 (#$ . 88860) nil])
#@45 Move point to end of list at point, if any.
(defalias 'markdown-end-of-list #[0 "`\212\300 \205 \301\302!\210\303\304!\210m\204 \302u\210`)\211\205$ \211Y\205$ \211b\207" [markdown-beginning-of-list markdown-next-list-item 1 skip-syntax-backward "-"] 4 (#$ . 89142) nil])
#@46 Move point to beginning of parent list item.
(defalias 'markdown-up-list #[0 "\300 \211\205  \301\3028S!\210\300 \211\205 \3028\3028W\205 `\262\207" [markdown-cur-list-item-bounds markdown-prev-list-item 3] 5 (#$ . 89423) nil])
#@361 Call `bounds-of-thing-at-point' for THING with slight modifications.
Does not include trailing newlines when THING is 'line.  Handles the
end of buffer case by setting both endpoints equal to the value of
`point-max', since an empty region will trigger empty markup insertion.
Return bounds of form (beg . end) if THING is found, or nil otherwise.

(fn THING)
(defalias 'markdown-bounds-of-thing-at-point #[257 "\300!\211@A\2054 \301=\2031 m\203  \302 \203  \211\262\2021 \303\206& `Sf\304\"\2031 \211S\262B\207" [bounds-of-thing-at-point line markdown-cur-line-blank-p char-equal 10] 7 (#$ . 89664)])
#@389 Find out whether Markdown REFERENCE is defined.
REFERENCE should not include the square brackets.
When REFERENCE is defined, return a list of the form (text start end)
containing the definition text itself followed by the start and end
locations of the text.  Otherwise, return nil.
Leave match data for `markdown-regex-reference-definition'
intact additional processing.

(fn REFERENCE)
(defalias 'markdown-reference-definition #[257 "\211\227\212eb\210\3012+ \302\303\304#\205* \211\305\306!\227\230\203\n \307\301\305\310!\310\224\310\225E\"\210\202\n 0)\207" [markdown-regex-reference-definition found re-search-forward nil t match-string-no-properties 2 throw 5] 7 (#$ . 90282)])
#@93 Return all defined reference labels and their line numbers (not including square brackets).
(defalias 'markdown-get-defined-references #[0 "\212eb\210\301\302\301\303#\203$ \304\305!\306\227\307\305\224!B\310\311\312\313&\266\202\202 \314!\262)\207" [markdown-regex-reference-definition nil re-search-forward t match-string-no-properties 2 cl-adjoin markdown-line-number-at-pos :test equal :key car reverse] 9 (#$ . 90974)])
#@47 Return a list of all used URIs in the buffer.
(defalias 'markdown-get-used-uris #[0 "\212eb\210\304\305\306\307	\307\n\307\310\260	\304\311#\203J \312 \204 \313 \204 \314\315!\2066 \314\316!\2066 \314\317!\2066 \314\320!\211\235\203@ \202C \211B\262\262\202 \321!\262)\207" [markdown-regex-link-inline markdown-regex-angle-uri markdown-regex-uri markdown-regex-email nil re-search-forward "\\(?:" "\\|" "\\)" t markdown-inline-code-at-point-p markdown-code-block-at-point-p match-string-no-properties 6 10 12 13 reverse] 11 (#$ . 91412)])
#@539 Return non-nil if there is an inline code fragment at POS.
Return nil otherwise.  Set match data according to
`markdown-match-code' upon success.
This function searches the block for a code fragment that
contains the point using `markdown-match-code'.  We do this
because `thing-at-point-looking-at' does not work reliably with
`markdown-regex-code'.

The match data is set as follows:
Group 1 matches the opening backquotes.
Group 2 matches the code fragment itself, without backquotes.
Group 3 matches the closing backquotes.

(fn POS)
(defalias 'markdown-inline-code-at-pos #[257 "\212\211b\210`\300 \210`\301\302 \210\303!\203! \304\211\262\203! \305\225W\204 \305\224f\306=\203- \305\202. \307\205= \211\224X\205= \305\225V\262\266\203)\207" [markdown-end-of-text-block nil markdown-beginning-of-text-block markdown-match-code t 0 96 1] 7 (#$ . 91970)])
#@132 Return non-nil if there is an inline code fragment at POS.
Like `markdown-inline-code-at-pos`, but preserves match data.

(fn POS)
(defalias 'markdown-inline-code-at-pos-p #[257 "\300 \301\302\"\216\303!)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-inline-code-at-pos] 5 (#$ . 92844)])
#@107 Return non-nil if the point is at an inline code fragment.
See `markdown-inline-code-at-pos' for details.
(defalias 'markdown-inline-code-at-point #[0 "\300`!\207" [markdown-inline-code-at-pos] 2 (#$ . 93192)])
#@241 Return non-nil if there is inline code at the POS.
This is a predicate function counterpart to
`markdown-inline-code-at-point' which does not modify the match
data.  See `markdown-code-block-at-point-p' for code blocks.

(fn &optional POS)
(defalias 'markdown-inline-code-at-point-p #[256 "\300 \301\302\"\216\303\206 `!)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-inline-code-at-pos] 5 (#$ . 93410)])
#@230 Return match data list if there is a code block at POS.
Uses text properties at the beginning of the line position.
This includes pre blocks, tilde-fenced code blocks, and GFM
quoted code blocks.  Return nil otherwise.

(fn POS)
(defalias 'markdown-code-block-at-pos #[257 "\212\211b\210\300 )\301\302\"\206# \303!\211A@\211\203  W\205! \207\266\202\207" [point-at-bol get-text-property markdown-pre markdown-get-enclosing-fenced-block-construct] 6 (#$ . 93876)])
(defalias 'markdown-code-block-at-point 'markdown-code-block-at-point-p)
#@256 Return non-nil if there is a code block at the POS.
This includes pre blocks, tilde-fenced code blocks, and GFM
quoted code blocks.  This function does not modify the match
data.  See `markdown-inline-code-at-point-p' for inline code.

(fn &optional POS)
(defalias 'markdown-code-block-at-point-p #[256 "\300 \301\302\"\216\303\206 `!)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-code-block-at-pos] 5 (#$ . 94426)])
#@114 Return non-nil if there is a heading at the POS.
Set match data for `markdown-regex-header'.

(fn &optional POS)
(defalias 'markdown-heading-at-point #[256 "\300\206 `\301\"\211\205 \302!\210\303\207" [get-text-property markdown-heading set-match-data t] 4 (#$ . 94905)])
#@121 Return non-nil if the line begins with a pipe symbol.
This may be useful for tables and Pandoc's line_blocks extension.
(defalias 'markdown-pipe-at-bol-p #[0 "\300\301 f\302\"\207" [char-equal point-at-bol 124] 3 (#$ . 95188)])
#@201 Return t if PROP from BEGIN to END is equal to one of the given PROP-VALUES.
Also returns t if PROP is a list containing one of the PROP-VALUES.
Return nil otherwise.

(fn BEGIN END PROP PROP-VALUES)
(defalias 'markdown-range-property-any #[1028 "\300\3012` \302\"\211\205] \211@\303\"\211\262\203V <\203< \211\2038 \211@\211>\2031 \304\301\"\210A\266\202\202  \210\202V \211\203U \211@\211=\203N \304\301\"\210A\266\202\202= \210A\266\202\202	 \2620\207" [nil found number-sequence get-text-property throw] 12 (#$ . 95423)])
#@24 

(fn BEGIN END PROPS)
(defalias 'markdown-range-properties-exist #[771 "\300\"\301C\301:\203% @\240\210\302\303\304\"\"\211\262\204% A\262\202 \207" [number-sequence nil cl-some make-closure #[257 "\301\300\242\"\207" [V0 get-text-property] 4 "\n\n(fn PROP)"]] 10 (#$ . 95972)])
#@159 Match inline REGEX from the point to LAST.
When FACELESS is non-nil, do not return matches where faces have been applied.

(fn REGEX LAST &optional FACELESS)
(defalias 'markdown-match-inline-generic #[770 "\300\301#\205C \302\303\224!\205 \304\305\224\305\225\306\307$\203+ A@bW\205A \310#\207\211\203= \305\225bW\205A \310#\207\305\225X\266\202\207" [re-search-forward t markdown-code-block-at-pos 1 text-property-not-all 0 face nil markdown-match-inline-generic] 9 (#$ . 96271)])
#@60 Match inline code fragments from point to LAST.

(fn LAST)
(defalias 'markdown-match-code #[257 "o\204 \301u\210\302\303\304\"\305$\2052 \306\307\224\307\225\310\224\310\225\311\224\311\225\312\224\312\225\257!\210\313\225T^d^b\210\305\207" [markdown-regex-code -1 markdown-search-until-condition make-closure #[0 "\301\224T\300^b\205. \301\224\302\206 `\303\"\262?\205. \301\225\302\206! `\303\"\262?\205. \304\301\224!?\207" [V0 1 get-text-property markdown-comment markdown-code-block-at-pos] 4] t set-match-data 1 2 3 4 0] 10 (#$ . 96774)])
#@18 

(fn BEGIN END)
(defalias 'markdown--gfm-markup-underscore-p #[514 "f\301=\211\204\n \302\207\212\303 \304\305\"\216b\210\306\307S\"\205) b\210\310\302\311!)\262)\262)\207" [inhibit-changing-match-data 95 t match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-back "\\(?:^\\|[[:blank:][:punct:]]\\)" "\\(?:[[:blank:][:punct:]]\\|$\\)" looking-at] 7 (#$ . 97336)])
#@54 Match inline bold from the point to LAST.

(fn LAST)
(defalias 'markdown-match-bold #[257 "\301\"\205m \302\303!\304\224\304\225\305!\204E \305!\204E \306\307\206! `\310\"\262\204E \311\211\312\313$\204E \311\312\314$\204E \203U \315\"\204U T^b\210`W\205k \316!\207\317\304\224\304\225\320\224\320\225\321\224\321\225\322\224\322\225\257!\210\323\266\203\207" [markdown-regex-bold markdown-match-inline-generic derived-mode-p gfm-mode 2 markdown-inline-code-at-pos-p nil get-text-property markdown-comment markdown-range-property-any face (markdown-url-face markdown-plain-url-face) (markdown-hr-face markdown-math-face) markdown--gfm-markup-underscore-p markdown-match-bold set-match-data 3 4 5 t] 13 (#$ . 97753)])
#@57 Match inline italics from the point to LAST.

(fn LAST)
(defalias 'markdown-match-italic #[257 "\302\303!\211\203 \202\f 	\304\"\205\235 \305\306\224\307\"?\205\235 \306\224\306\225\310\225\311\206( `Sff\"\204r \312!\204r \312S!\204r \313\314\206D `\315\"\262\204r \316\211\317\320$\204r \316\317\321$\204r \203\205 \322fTf\"\204r \323\"\204\205 T^b\210`W\205\233 \324!\207\325\306\224\306\225\326\224\326\225\327\224\327\225\310\224\310\225\257!\210\330\266\203\207" [markdown-regex-gfm-italic markdown-regex-italic derived-mode-p gfm-mode markdown-match-inline-generic markdown--face-p 1 (markdown-html-attr-name-face markdown-html-attr-value-face) 4 eql markdown-inline-code-at-pos-p nil get-text-property markdown-comment markdown-range-property-any face (markdown-url-face markdown-plain-url-face) (markdown-bold-face markdown-list-face markdown-hr-face markdown-math-face) char-equal markdown--gfm-markup-underscore-p markdown-match-italic set-match-data 2 3 t] 15 (#$ . 98493)])
#@180 Match REGEX from point to LAST.
REGEX is either `markdown-regex-math-inline-single' for matching
$..$ or `markdown-regex-math-inline-double' for matching $$..$$.

(fn REGEX LAST)
(defalias 'markdown-match-math-generic #[514 "\300\"\205, \301\224\301\225\302\303\304$\204 \305\306 #\203$ \307\"\202% \310\311\225Tb\210\266\202\207" [markdown-match-inline-generic 1 markdown-range-property-any face (markdown-inline-code-face markdown-bold-face) markdown-range-properties-exist markdown-get-fenced-block-middle-properties markdown-match-math-generic t 0] 9 (#$ . 99512)])
#@49 Match list items from point to LAST.

(fn LAST)
(defalias 'markdown-match-list-items #[257 "`\211\300\301\300\"@\301\"@\211\262\203 \211@W\2032 `W\2032 \302\303$\211\262\2032 b\204 \211\205I \304\3058\262!\210\306 ]Td^b\210\307\207" [markdown-list-item get-text-property next-single-property-change nil set-match-data 6 point-at-eol t] 10 (#$ . 100097)])
#@62 Match single quoted $..$ math from point to LAST.

(fn LAST)
(defalias 'markdown-match-math-single #[257 "\205) \302\303f\304\"\203% n\204% \302`Sf\305\"\204% \302`Sf\304\"\204% \306u\210\307	\"\207" [markdown-enable-math markdown-regex-math-inline-single char-equal nil 36 92 -1 markdown-match-math-generic] 4 (#$ . 100476)])
#@64 Match double quoted $$..$$ math from point to LAST.

(fn LAST)
(defalias 'markdown-match-math-double #[257 "\2052 \302\303f\304\"\203. \302`Tf\304\"\203. n\204. \302`Sf\305\"\204. \302`Sf\304\"\204. \306u\210\307	\"\207" [markdown-enable-math markdown-regex-math-inline-double char-equal nil 36 92 -1 markdown-match-math-generic] 4 (#$ . 100811)])
#@77 Match bracketed display math [..] and \[..\] from point to LAST.

(fn LAST)
(defalias 'markdown-match-math-display #[257 "\205 \302	\"\207" [markdown-enable-math markdown-regex-math-display markdown-match-math-generic] 4 (#$ . 101167)])
#@116 Match text with PROPERTY from point to LAST.
Restore match data previously stored in PROPERTY.

(fn PROPERTY LAST)
(defalias 'markdown-match-propertized-text #[514 "\300`\"\301\204 \302`\301$\262\211U\204 \300\"\262\2050 \303!\210\304\225`]Td^b\210\207" [get-text-property nil next-single-property-change set-match-data 0] 9 (#$ . 101414)])
#@129 Match preformatted blocks from point to LAST.
Use data stored in 'markdown-pre text property during syntax
analysis.

(fn LAST)
(defalias 'markdown-match-pre-blocks #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-pre] 4 (#$ . 101777)])
#@137 Match GFM quoted code blocks from point to LAST.
Use data stored in 'markdown-gfm-code text property during syntax
analysis.

(fn LAST)
(defalias 'markdown-match-gfm-code-blocks #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-gfm-code] 4 (#$ . 102038)])
#@13 

(fn LAST)
(defalias 'markdown-match-gfm-open-code-blocks #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-gfm-block-begin] 4 (#$ . 102316)])
#@13 

(fn LAST)
(defalias 'markdown-match-gfm-close-code-blocks #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-gfm-block-end] 4 (#$ . 102482)])
#@61 Match fenced code blocks from the point to LAST.

(fn LAST)
(defalias 'markdown-match-fenced-code-blocks #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-fenced-code] 4 (#$ . 102647)])
#@13 

(fn LAST)
(defalias 'markdown-match-fenced-start-code-block #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-tilde-fence-begin] 4 (#$ . 102855)])
#@13 

(fn LAST)
(defalias 'markdown-match-fenced-end-code-block #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-tilde-fence-end] 4 (#$ . 103026)])
#@128 Match blockquotes from point to LAST.
Use data stored in 'markdown-blockquote text property during syntax
analysis.

(fn LAST)
(defalias 'markdown-match-blockquotes #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-blockquote] 4 (#$ . 103194)])
#@68 Match horizontal rules comments from the point to LAST.

(fn LAST)
(defalias 'markdown-match-hr #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-hr] 4 (#$ . 103461)])
#@56 Match HTML comments from the point to LAST.

(fn LAST)
(defalias 'markdown-match-comments #[257 "\300\301\"\205! `\300\302\"\205 `W\205 \303u\210\304`D!\210\305\262\207" [skip-syntax-forward "^<" "^>" nil set-match-data t] 5 (#$ . 103651)])
#@277 Match inline links from point to LAST.
When REF is non-nil, match reference links instead of standard
links with URLs.
This function should only be used during font-lock, as it
determines syntax based on the presence of faces for previously
processed elements.

(fn LAST REF)
(defalias 'markdown-match-generic-links #[514 "\302\303\211\204V `W\203V \304\303!\210\305\203 \202 	\306#\203V \307\310\224\311\225\312$\204I \307\313\224\310\225\312$\204I \314\315 f\316\"\203P \314\315 Tf\316\"\203P \304\303!\210\202 \317\262\202 \266\311\224\205x\320\224\311\224\212\311\224b\210\321 \210`)\3221| b\205x \323`\320\"0\202~ \210\303T^\303\211\211\211\211\211\203L	W\203Lb\203L\314`f\203\250 \324\202\251 \325\"\203L`\262\3261\274 \323`\320\"0\202\276 \210\303\262\203E	X\203EX\203E\204\371 \327\330\317#\203\371 `S\262b\205\357 \331\330T\317#\262\211\205\367 \211T\262T\262\206S\262\304\206\n\211\205T\211TTSS\211TS\257!\210\303\262b\210\202L^\262\203dW\203db\210\332\"\207\203uU\203u\266\303\207\266\317\207" [markdown-regex-link-reference markdown-regex-link-inline (markdown-pre-face markdown-code-face markdown-inline-code-face markdown-comment-face) nil set-match-data re-search-forward limit markdown-range-property-any 0 2 face 4 char-equal point-at-bol 60 t 1 markdown-end-of-text-block (error) scan-sexps 91 40 (error) search-forward "\"" search-backward markdown-match-generic-links] 32 (#$ . 103906)])
#@57 Match angle bracket URIs from point to LAST.

(fn LAST)
(defalias 'markdown-match-angle-uris #[257 "\301\"\205 \302\225Tb\207" [markdown-regex-angle-uri markdown-match-inline-generic 0] 4 (#$ . 105447)])
#@49 Match plain URIs from point to LAST.

(fn LAST)
(defalias 'markdown-match-plain-uris #[257 "\301\302#\205\f \303\225Tb\207" [markdown-regex-uri markdown-match-inline-generic t 0] 5 (#$ . 105660)])
#@127 Conditional search function used in `markdown-search-until-condition'.
Made into a variable to allow for dynamic let-binding.
(defvar markdown-conditional-search-function 're-search-forward (#$ . 105866))
#@29 

(fn CONDITION &rest ARGS)
(defalias 'markdown-search-until-condition #[385 "\301\211\204 \302\"\203  \262\202 \207" [markdown-conditional-search-function nil apply] 6 (#$ . 106077)])
#@19 

(fn POS REGEXP)
(defalias 'markdown-metadata-line-p #[514 "\212\301!\302U\206/ \303y\210\304\305\306!)\262\203& \301`!\302V\203& \303y\210\202\f \211\305\306!)\262)\207" [inhibit-changing-match-data line-number-at-pos 1 -1 "^\\s-+[[:alpha:]]" t looking-at] 5 (#$ . 106275)])
#@240 Match metadata declarations specified by REGEXP from point to LAST.
These declarations must appear inside a metadata block that begins at
the beginning of the buffer and ends with a blank line (or the end of
the buffer).

(fn REGEXP LAST)
(defalias 'markdown-match-generic-metadata #[514 "`\300b\301\302\303\304#\211\203 V\203 db\210\303\207W\203! \202\" b\210\301^\304#\203U \305`\"\203U \300\224\300\225\306\224\306\225\307\224\310``\257!\266\304\207b\210\303\207" [1 re-search-forward "\n[ 	]*\n\\|\n\\'\\|\\'" nil t markdown-metadata-line-p 2 3 set-match-data] 19 (#$ . 106566)])
#@63 Match declarative metadata from the point to LAST.

(fn LAST)
(defalias 'markdown-match-declarative-metadata #[257 "\301\"\207" [markdown-regex-declarative-metadata markdown-match-generic-metadata] 4 (#$ . 107183)])
#@58 Match Pandoc metadata from the point to LAST.

(fn LAST)
(defalias 'markdown-match-pandoc-metadata #[257 "\301\"\207" [markdown-regex-pandoc-metadata markdown-match-generic-metadata] 4 (#$ . 107407)])
#@13 

(fn LAST)
(defalias 'markdown-match-yaml-metadata-begin #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-yaml-metadata-begin] 4 (#$ . 107616)])
#@13 

(fn LAST)
(defalias 'markdown-match-yaml-metadata-end #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-yaml-metadata-end] 4 (#$ . 107785)])
#@13 

(fn LAST)
(defalias 'markdown-match-yaml-metadata-key #[257 "\300\301\"\207" [markdown-match-propertized-text markdown-metadata-key] 4 (#$ . 107950)])
#@49 Match wiki links from point to LAST.

(fn LAST)
(defalias 'markdown-match-wiki-link #[257 "\205[ 	?\205[ \303\n\"\205[ \304\224\304\225\305\206 `\306\"\262\204B \211\305\206) `\306\"\262\204B \307!\204B \307!\204B \310!\203R T^b\210`W\205Y \311!\207\312D!\210\313\266\202\207" [markdown-enable-wiki-links markdown-wiki-link-fontify-missing markdown-regex-wiki-link markdown-match-inline-generic 1 get-text-property markdown-comment markdown-inline-code-at-pos-p markdown-code-block-at-pos markdown-match-wiki-link set-match-data t] 7 (#$ . 108110)])
#@56 Match inline attributes from point to LAST.

(fn LAST)
(defalias 'markdown-match-inline-attributes #[257 "\302\303\"\205; \304\305!\306\307\310#)\266\203\204 \311!\207\312\305\224!\2066 \312\305\225!\2066 \306\313\2062 `\314\"\262?\205; \307\207" [markdown-regex-inline-attributes inhibit-changing-match-data markdown-match-inline-generic "[ 	]*\\({\\)\\([^\n]*\\)}[ 	]*$" match-string 0 nil t string-match markdown-match-inline-attributes markdown-inline-code-at-pos-p get-text-property markdown-comment] 8 (#$ . 108683)])
#@62 Match Leanpub section markers from point to LAST.

(fn LAST)
(defalias 'markdown-match-leanpub-sections #[257 "\301\"\205% \302\303\224!\206  \302\303\225!\206  \304\305\206 `\306\"\262?\205% \307\207" [markdown-regex-leanpub-sections markdown-match-inline-generic markdown-inline-code-at-pos-p 0 nil get-text-property markdown-comment t] 5 (#$ . 109223)])
#@350 Match include statements from point to LAST.
Sets match data for the following seven groups:
Group 1: opening two angle brackets
Group 2: opening title delimiter (optional)
Group 3: title text (optional)
Group 4: closing title delimiter (optional)
Group 5: opening filename delimiter
Group 6: filename
Group 7: closing filename delimiter

(fn LAST)
(defalias 'markdown-match-includes #[257 "\301\"\205\333 \302\224\303\206 `\304\"\262\206) \302\225\303\206 `\304\"\262\206) \305\302\224!?\211\203` \306\224\203` \307\224\204` \310\311\224\312\225\311\224\311\225\313\224\313\225\314\224\314\225\315\224\315\225\306\224\306\225\316\224\316\225\312\224\312\225\257!\210\202\330 \211\203\225 \313\224\203\225 \306\224\204\225 \312\224\204\225 \310\311\224\315\225\311\224\311\225\317\211\211\211\211\211\313\224\313\225\314\224\314\225\315\224\315\225\257!\210\202\330 \211\203\312 \307\224\203\312 \313\224\204\312 \306\224\204\312 \310\311\224\320\225\311\224\311\225\317\211\211\211\211\211\307\224\307\225\321\224\321\225\320\224\320\225\257!\210\202\330 \317y\210`W\203\330 \322!\262\211\262\207" [markdown-regex-include markdown-match-inline-generic 0 get-text-property markdown-comment markdown-code-block-at-pos 5 8 set-match-data 1 7 2 3 4 6 nil 10 9 markdown-match-includes] 19 (#$ . 109592)])
#@48 Match HTML tags from point to LAST.

(fn LAST)
(defalias 'markdown-match-html-tag #[257 "\205\" \302	\303#\205\" \304\305\224\305\225\306\224\306\225\307\224\307\225\310\224\310\225\257!\210\303\207" [markdown-enable-html markdown-regex-html-tag markdown-match-inline-generic t set-match-data 0 1 2 9] 10 (#$ . 110914)])
#@102 Return the first displayable character or string in SEQ.
SEQ may be an atom or a sequence.

(fn SEQ)
(defalias 'markdown--first-displayable #[257 "\211<\203	 \211\202 \211C\211@;\203 \300\301\"\207\302@!\205! \300\303\"\207" [cl-find-if #[257 "\300\301\302\303\"\262\"\207" [mapcar char-displayable-p append nil] 7 "\n\n(fn STR)"] characterp char-displayable-p] 5 (#$ . 111245)])
#@72 Generate atx markup string of given LEVEL for left margin.

(fn LEVEL)
(defalias 'markdown--marginalize-string #[257 "Z\301\302\"\301\303\"P\207" [markdown-marginalize-headers-margin-width make-string 32 35] 6 (#$ . 111639)])
#@58 Update the window configuration to create a left margin.
(defalias 'markdown-marginalize-update-current #[0 "\203 \302\303\304\"	_\211\305 \245\306\303\"\207\306\303	\"\207" [window-system markdown-marginalize-headers-margin-width window-font-width nil markdown-header-delimiter-face default-font-width set-window-margins] 6 (#$ . 111875)])
#@64 Add text properties to headings from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-headings #[257 "\302\303\"\205\211 \304 \305\306\307\"!\310D\310\311\203 \312\202( 	\205( \313\314\315!DDBB\310\311\2051 \316BB\310\317\205: \320BB\321\225\203h \322\321\224\321\225#\210\321U\203\\ \322\323\224\323\225#\266\202\210 \322\324\224\324\225#\266\202\210 \322\325\224\325\225#\210\322\326\224\326\225#\210\327\225\203\206 \322\327\224\327\225#\210\266\330\207" [markdown-hide-markup markdown-marginalize-headers markdown-match-propertized-text markdown-heading markdown-outline-level intern format "markdown-header-face-%d" face markdown-header-delimiter-face (display #1="") display (margin left-margin) markdown--marginalize-string (display #1#) markdown-header-rule-face (display #1#) 1 add-text-properties 2 3 4 5 6 t] 11 (#$ . 112226)])
#@13 

(fn LAST)
(defalias 'markdown-fontify-tables #[257 "\300\301\302#\205 \303 \205 \304\305 \306 Td^\307\310$\210\311y\210\302\207" [re-search-forward "|" t markdown-table-at-point-p font-lock-append-text-property line-beginning-position line-end-position face markdown-table-face 1] 6 (#$ . 113097)])
#@74 Apply font-lock properties to blockquotes from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-blockquotes #[257 "\302!\205* \303!\304\305\224\305\225	\203 \306\307\310F\202 \311#\210\312\313\224\313\225\306\307$\210\314\262\207" [markdown-blockquote-display-char markdown-hide-markup markdown-match-blockquotes markdown--first-displayable add-text-properties 1 face markdown-blockquote-face display (face markdown-markup-face) font-lock-append-text-property 0 t] 9 (#$ . 113407)])
#@75 Apply font-lock properties to list markers from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-list-items #[257 "\305!\205[ \306\307!G\211\245\310	G\"	8\311\312\224\312\225\313#\210\n\203X \314\315\312!\316\317\320#)\266\203\203@ \311\312\224\312\225\321D#\266\202Z \315\312!\322\230\203X \323\324\f!!\311\312\224\312\225\321D#\266\266\317\207" [markdown-list-indent-width markdown-list-item-bullets markdown-hide-markup inhibit-changing-match-data markdown-definition-display-char markdown-match-list-items match-string-no-properties 1 mod add-text-properties 2 (face markdown-list-face) "[\\*\\+-]" match-string nil t string-match display ":" char-to-string markdown--first-displayable] 11 (#$ . 113908)])
#@72 Add text properties to horizontal rules from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-hrs #[257 "\302!\205- \303!\304\305\224\305\225\306\307\310\311	\205$ \205$ \312\313\314 S\n\"DBBBB#\210\311\262\207" [markdown-hr-display-char markdown-hide-markup markdown-match-hr markdown--first-displayable add-text-properties 0 face markdown-hr-face font-lock-multiline t display make-string window-body-width] 13 (#$ . 114641)])
#@79 Apply text properties to sub- and superscripts from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-sub-superscripts #[257 "\303\304\305$\205= \306\307!\310\230\211\203 	@\202 	A\311\312\313\314F\n\203+ \315\316\224\316\225\317$\210\320\307\224\307\225#\210\320\321\224\321\225#\266\305\207" [markdown-regex-sub-superscript markdown-sub-superscript-display markdown-hide-markup markdown-search-until-condition #[0 "\300 ?\205 \301 ?\205 \302\303\206 `\304\"\262?\207" [markdown-code-block-at-point-p markdown-inline-code-at-point-p nil get-text-property markdown-comment] 4] t match-string 2 "~" face markdown-markup-face invisible markdown-markup put-text-property 3 display add-text-properties 4] 9 (#$ . 115087)])
#@35 Syntax table for `markdown-mode'.
(defvar markdown-mode-syntax-table (byte-code "\301!\302\303\304#\210\207" [text-mode-syntax-table make-syntax-table modify-syntax-entry 34 "."] 5) (#$ . 115829))
#@74 If previous line is not already blank, insert a blank line before point.
(defalias 'markdown-ensure-blank-line-before #[0 "n\204 \300c\210o\206 \301\302\303\"?\205 \300c\207" ["\n" looking-back "\n\\s-*\n" nil] 3 (#$ . 116034)])
#@116 If following line is not already blank, insert a blank line after point.
Return the point where it was originally.
(defalias 'markdown-ensure-blank-line-after #[0 "\212l\204 \301c\210m\206 \302\303\304!)\262?\205 \301c)\207" [inhibit-changing-match-data "\n" "\n\\s-*\n" t looking-at] 3 (#$ . 116273)])
#@569 Insert the strings S1 and S2, wrapping around region or THING.
If a region is specified by the optional BEG and END arguments,
wrap the strings S1 and S2 around that region.
If there is an active region, wrap the strings S1 and S2 around
the region.  If there is not an active region but the point is at
THING, wrap that thing (which defaults to word).  Otherwise, just
insert S1 and S2 and place the point in between.  Return the
bounds of the entire wrapped string, or nil if nothing was wrapped
and S1 and S2 were only inserted.

(fn S1 S2 &optional THING BEG END)
(defalias 'markdown-wrap-or-insert #[1282 "\300\211\211\211\203 \203 \262\262`	G\\\262\202Y \301 \2033 \302 \262\303 \262`	G\\\262\202Y \304\206: \305!\211\262\203S @\262A\262`	G\\\262\202Y `\262`\262b\210c\210b\210c\210\211\203n \211b\210U?\205\203 	G\\G\\\262B\207" [nil use-region-p region-beginning region-end markdown-bounds-of-thing-at-point word] 11 (#$ . 116589)])
#@290 Return desired position of point after an unwrapping operation.
CUR gives the position of the point before the operation.
Additionally, two cons cells must be provided.  PREFIX gives the
bounds of the prefix string and SUFFIX gives the bounds of the
suffix string.

(fn CUR PREFIX SUFFIX)
(defalias 'markdown-point-after-unwrap #[771 "AW\203\n @\207@W\203 A@ZZ\207AX\203- A@Z@Z\\Z\207\207" [] 7 (#$ . 117577)])
#@408 Remove prefix and suffix of thing at point and reposition the point.
When the thing at point matches REGEXP, replace the subexpression
ALL with the string in subexpression TEXT.  Reposition the point
in an appropriate location accounting for the removal of prefix
and suffix strings.  Return new bounds of string from group TEXT.
When REGEXP is nil, assumes match data is already set.

(fn REGEXP ALL TEXT)
(defalias 'markdown-unwrap-thing-at-point #[771 "\203\n \300!\205= `\224\224B\225\225B\224\225B\301\302!\303\211\304\n%\210\305#b\210@AA@ZZB\211\262\266\204\207" [thing-at-point-looking-at replace-match match-string t nil markdown-point-after-unwrap] 13 (#$ . 118012)])
#@270 Remove prefix and suffix of all things in region from BEG to END.
When a thing in the region matches REGEXP, replace the
subexpression ALL with the string in subexpression TEXT.
Return a cons cell containing updated bounds for the region.

(fn BEG END REGEXP ALL TEXT)
(defalias 'markdown-unwrap-things-in-region #[1285 "\212b\210\300\301\211\302Z\303#\2034 \304!G\262\304!G\262Z\\\262\305\306!\303\211\301	%\210\202 ZB\266\203)\207" [0 nil re-search-forward t match-string-no-properties replace-match match-string] 14 (#$ . 118715)])
#@411 Insert or replace a horizontal rule.
By default, use the first element of `markdown-hr-strings'.  When
ARG is non-nil, as when given a prefix, select a different
element as follows.  When prefixed with \[universal-argument],
use the last element of `markdown-hr-strings' instead.  When
prefixed with an integer from 1 to the length of
`markdown-hr-strings', use the element in that position instead.

(fn ARG)
(defalias 'markdown-insert-hr #[257 "\302!\203\f \303\224\303\225|\210\304 \210\211\305\232\203 \306	!@c\210\202= \211\250\2039 \211\303V\2039 \211	GX\2039 \211S	8c\210\202= 	@c\210\307 \207" [markdown-regex-hr markdown-hr-strings thing-at-point-looking-at 0 markdown-ensure-blank-line-before (4) reverse markdown-ensure-blank-line-after] 3 (#$ . 119279) "*P"])
#@84 

(fn START-DELIM END-DELIM REGEX START-GROUP END-GROUP FACE &optional SKIP-SPACE)
(defalias 'markdown--insert-common #[1798 "\300 \203G \301\302 \303 %\211@A\203) \203) \212b\210\304\305w\210`\262)\211\203= \203= \212\211b\210\304\305x\210`\262)\306\n\n\305%\207\307`C\"\203} \212\307`C\"\203b o\204b \310u\210\202P GS[u\210n\204p \310u\210\311!\205{ \312\305#)\207\313!\203\211 \312\305#\207\306\314\305\211%\207" [use-region-p markdown-unwrap-things-in-region region-beginning region-end "[ 	]" nil markdown-wrap-or-insert markdown--face-p -1 looking-at markdown-unwrap-thing-at-point thing-at-point-looking-at word] 16 (#$ . 120059)])
#@301 Insert markup to make a region or word bold.
If there is an active region, make the region bold.  If the point
is at a non-bold word, make the word bold.  If the point is at a
bold word or phrase, remove the bold markup.  Otherwise, simply
insert bold delimiters and place the point in between them.
(defalias 'markdown-insert-bold #[0 "\203 \302\202	 \303\304\211	\305\306\307\310&\207" [markdown-bold-underscore markdown-regex-bold "__" "**" markdown--insert-common 2 4 markdown-bold-face t] 9 (#$ . 120736) nil])
#@316 Insert markup to make a region or word italic.
If there is an active region, make the region italic.  If the point
is at a non-italic word, make the word italic.  If the point is at an
italic word or phrase, remove the italic markup.  Otherwise, simply
insert italic delimiters and place the point in between them.
(defalias 'markdown-insert-italic #[0 "\203 \302\202	 \303\304\211	\305\306\307\310&\207" [markdown-italic-underscore markdown-regex-italic "_" "*" markdown--insert-common 1 3 markdown-italic-face t] 9 (#$ . 121263) nil])
#@346 Insert markup to make a region or word strikethrough.
If there is an active region, make the region strikethrough.  If the point
is at a non-bold word, make the word strikethrough.  If the point is at a
strikethrough word or phrase, remove the strikethrough markup.  Otherwise,
simply insert bold delimiters and place the point in between them.
(defalias 'markdown-insert-strike-through #[0 "\301\302\211\303\304\305\306&\207" [markdown-regex-strike-through markdown--insert-common "~~" 2 4 markdown-strike-through-face t] 8 (#$ . 121811) nil])
#@282 Insert markup to make a region or word an inline code fragment.
If there is an active region, make the region an inline code
fragment.  If the point is at a word, make the word an inline
code fragment.  Otherwise, simply insert code delimiters and
place the point in between them.
(defalias 'markdown-insert-code #[0 "\301 \203 \302\303 \304 \305\306%\307\310\211\311@A%\207\312 \203# \313\311\314\315#\207\307\310\211\316\311\211%\207" [markdown-regex-code use-region-p markdown-unwrap-things-in-region region-beginning region-end 1 3 markdown-wrap-or-insert "`" nil markdown-inline-code-at-point markdown-unwrap-thing-at-point 0 2 word] 7 (#$ . 122365) nil])
#@215 Insert markup to wrap region or word in <kbd> tags.
If there is an active region, use the region.  If the point is at
a word, use the word.  Otherwise, simply insert <kbd> tags and
place the point in between them.
(defalias 'markdown-insert-kbd #[0 "\301 \203 \302\303 \304 \305\306%\307\310\311\312@A%\207\313!\203$ \314\312\305\306#\207\307\310\311\315\312\211%\207" [markdown-regex-kbd use-region-p markdown-unwrap-things-in-region region-beginning region-end 0 2 markdown-wrap-or-insert "<kbd>" "</kbd>" nil thing-at-point-looking-at markdown-unwrap-thing-at-point word] 7 (#$ . 123037) nil])
#@123 Insert an inline link with TEXT pointing to URL.
Optionally, the user can provide a TITLE.

(fn TEXT URL &optional TITLE)
(defalias 'markdown-insert-inline-link #[770 "`\205	 \300\301Q\262\302\303\304\260c\210\204 \211Tb\207?\205) \305G\\\\b\207" [" \"" "\"" "[" "](" ")" 3] 10 (#$ . 123646)])
#@119 Insert an inline link with alt TEXT pointing to URL.
Optionally, also provide a TITLE.

(fn TEXT URL &optional TITLE)
(defalias 'markdown-insert-inline-image #[770 "`\205	 \300\301Q\262\302\303\304\260c\210\204 \305\\b\207?\205* \306G\\\\b\207" [" \"" "\"" "![" "](" ")" 2 4] 10 (#$ . 123959)])
#@533 Insert a reference link and, optionally, a reference definition.
The link TEXT will be inserted followed by the optional LABEL.
If a URL is given, also insert a definition for the reference
LABEL according to `markdown-reference-location'.  If a TITLE is
given, it will be added to the end of the reference definition
and will be used to populate the title attribute when converted
to XHTML.  If URL is nil, insert only the link portion (for
example, when a reference label is already defined).

(fn TEXT LABEL &optional URL TITLE)
(defalias 'markdown-insert-reference-link #[1026 "\300\301\302\260c\210\205 \303\304\230\203 \202 #\207" ["[" "][" "]" markdown-insert-reference-definition ""] 9 (#$ . 124274)])
#@533 Insert a reference image and, optionally, a reference definition.
The alt TEXT will be inserted followed by the optional LABEL.
If a URL is given, also insert a definition for the reference
LABEL according to `markdown-reference-location'.  If a TITLE is
given, it will be added to the end of the reference definition
and will be used to populate the title attribute when converted
to XHTML.  If URL is nil, insert only the link portion (for
example, when a reference label is already defined).

(fn TEXT LABEL &optional URL TITLE)
(defalias 'markdown-insert-reference-image #[1026 "\300\301\302\260c\210\205 \303\304\230\203 \202 #\207" ["![" "][" "]" markdown-insert-reference-definition ""] 9 (#$ . 125003)])
#@270 Add definition for reference LABEL with URL and TITLE.
LABEL is a Markdown reference label without square brackets.
URL and TITLE are optional.  When given, the TITLE will
be used to populate the title attribute when converted to XHTML.

(fn LABEL &optional URL TITLE)
(defalias 'markdown-insert-reference-definition #[769 "`\305\267\202 db\210\202 \306 \210\202 \307 \210\202 \310 \210	\203H m\203H \311\312`\313Ze]\314#\210\315\316\317\320\314#)\203H \321\322!\210`Sf\323=\203H \324u\210\325 \204V \326!\204V \327c\210\330\331\261\210\203f c\210\202i `\262G\322V\203v \332\333\261\210\327\315\334!)\262\204\205 \327c\210\211b\210\205\222 \335\336\337!\"\207" [markdown-reference-location enable-local-variables case-fold-search markdown-regex-reference-definition inhibit-changing-match-data #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (end 7 immediately 13 subtree 19 header 25)) markdown-end-of-text-block markdown-end-of-subtree markdown-end-of-defun search-backward "\n\f" 3000 :move t search-forward "Local Variables:" nil beginning-of-line 0 10 -1 markdown-cur-line-blank-p thing-at-point-looking-at "\n" "\n[" "]: " " \"" "\"" looking-at message markdown--substitute-command-keys "Reference [%s] was defined, press \\[markdown-do] to jump there"] 8 (#$ . 125734)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\303\311\312&	\210\300\313\302\303\314DD\315\306\307\310\316\317\320\311\321&\207" [custom-declare-variable markdown-link-make-text-function funcall function #[0 "\300\207" [nil] 1] "Function that automatically generates a link text for a URL.\n\nIf non-nil, this function will be called by\n`markdown--insert-link-or-image' and the result will be the\ndefault link text. The function should receive exactly one\nargument that corresponds to the link URL." :group markdown :type :package-version (markdown-mode . "2.5") markdown-disable-tooltip-prompt #[0 "\300\207" [nil] 1] "Disable prompt for tooltip when inserting a link or image.\n\nIf non-nil, `markdown-insert-link' and `markdown-insert-link'\nwill not prompt the user to insert a tooltip text for the given\nlink or image." boolean :safe booleanp (markdown-mode . "2.5")] 12)
#@233 Interactively insert new or update an existing link or image.
When IMAGE is non-nil, insert an image.  Otherwise, insert a link.
This is an internal function called by
`markdown-insert-link' and `markdown-insert-image'.

(fn IMAGE)
(defalias 'markdown--insert-link-or-image #[257 "\303 \2031 \304\305 \306 \"\307\"\203\" \305 \306 \310\311\312\"\310\211\257\202, \305 \306 \310\211\211\257\262\2024 \313`!\211@A@\3148\3158\3168\3178\205N \320\321Q\322\323\324 \"\322\325\"\326 \327\330\331\"\310\211\206h %\307\332\"\203w \311\333\"\202~ \211\334\230\205~ \334\211?\205\204 \203\215 \335\202\226 \203\225 \336\202\226 \337\206\246 	\205\246 \205\246 	!\327	\310\211%\211G\312U?\205\267 \211\205\275 \211?\334\230\211\203\311 \202\313 \211\205\322 \340!\206\330 \211?\205\341 \327\341\"\206\352 \206\352 \n?\205\363 \342\343\"\211G\312U?\205\374 \211\203	\203	\344\345!\210\203\203|\210\2040\2030\2030\346#\207\203G\203G\203G\347#\207\203\201\203\201\203g\350?\205`\310$\210\202v\351?\205r\310$\210?\205\220\352#\207?\205\220\205\220\353\f!\207" [markdown-regex-uri markdown-link-make-text-function markdown-disable-tooltip-prompt use-region-p buffer-substring-no-properties region-beginning region-end string-match nil match-string 0 markdown-link-at-pos 2 3 4 5 "[" "]" mapcar car markdown-get-defined-references #[257 "\300\301Q\207" ["[" "]"] 4 "\n\n(fn REF)"] markdown-get-used-uris completing-read "URL or [reference]: " append "\\`\\[\\(.*\\)\\]\\'" 1 "" "Alt text: " "Link text: " "Link text (blank for plain URL): " markdown-reference-definition "Reference URL: " read-string "Title (tooltip text, optional): " user-error "Reference required: implicit image references are invalid" markdown-insert-inline-link markdown-insert-inline-image markdown-insert-reference-image markdown-insert-reference-link markdown-insert-reference-definition markdown-insert-uri] 31 (#$ . 127962)])
#@1513 Insert new or update an existing link, with interactive prompts.
If the point is at an existing link or URL, update the link text,
URL, reference label, and/or title.  Otherwise, insert a new link.
The type of link inserted (inline, reference, or plain URL)
depends on which values are provided:

*   If a URL and TEXT are given, insert an inline link: [TEXT](URL).
*   If [REF] and TEXT are given, insert a reference link: [TEXT][REF].
*   If only TEXT is given, insert an implicit reference link: [TEXT][].
*   If only a URL is given, insert a plain link: <URL>.

In other words, to create an implicit reference link, leave the
URL prompt empty and to create a plain URL link, leave the link
text empty.

If there is an active region, use the text as the default URL, if
it seems to be a URL, or link text value otherwise.

If a given reference is not defined, this function will
additionally prompt for the URL and optional title.  In this case,
the reference definition is placed at the location determined by
`markdown-reference-location'.  In addition, it is possible to
have the `markdown-link-make-text-function' function, if non-nil,
define the default link text before prompting the user for it.

If `markdown-disable-tooltip-prompt' is non-nil, the user will
not be prompted to add or modify a tooltip text.

Through updating the link, this function can be used to convert a
link of one type (inline, reference, or plain) to another type by
selectively adding or removing information via the prompts.
(defalias 'markdown-insert-link #[0 "\300\301!\207" [markdown--insert-link-or-image nil] 2 (#$ . 129990) nil])
#@975 Insert new or update an existing image, with interactive prompts.
If the point is at an existing image, update the alt text, URL,
reference label, and/or title. Otherwise, insert a new image.
The type of image inserted (inline or reference) depends on which
values are provided:

*   If a URL and ALT-TEXT are given, insert an inline image:
    ![ALT-TEXT](URL).
*   If [REF] and ALT-TEXT are given, insert a reference image:
    ![ALT-TEXT][REF].

If there is an active region, use the text as the default URL, if
it seems to be a URL, or alt text value otherwise.

If a given reference is not defined, this function will
additionally prompt for the URL and optional title.  In this case,
the reference definition is placed at the location determined by
`markdown-reference-location'.

Through updating the image, this function can be used to convert an
image of one type (inline or reference) to another type by
selectively adding or removing information via the prompts.
(defalias 'markdown-insert-image #[0 "\300\301!\207" [markdown--insert-link-or-image t] 2 (#$ . 131620) nil])
#@292 Insert markup for an inline URI.
If there is an active region, use it as the URI.  If the point is
at a URI, wrap it with angle brackets.  If the point is at an
inline URI, remove the angle brackets.  Otherwise, simply insert
angle brackets place the point between them.

(fn &optional URI)
(defalias 'markdown-insert-uri #[256 "\301 \203 \302\303 \304 \305\306%\307\310\311\312@A%\207\313!\203$ \314\312\305\306#\207\211\203. \310\311\261\207\307\310\311\315\312\211%\207" [markdown-regex-angle-uri use-region-p markdown-unwrap-things-in-region region-beginning region-end 0 2 markdown-wrap-or-insert "<" ">" nil thing-at-point-looking-at markdown-unwrap-thing-at-point url] 8 (#$ . 132711) nil])
#@254 Insert a wiki link of the form [[WikiLink]].
If there is an active region, use the region as the link text.
If the point is at a word, use the word as the link text.  If
there is no active region and the point is not at word, simply
insert link markup.
(defalias 'markdown-insert-wiki-link #[0 "\302 \203 \303\304\305\306\307 \310 %\207\311!\203+ 	\204 \312\313!\204% \314\306\315\316#\207\314\306\315\313#\207\303\304\305\"\207" [markdown-regex-wiki-link markdown-wiki-link-alias-first use-region-p markdown-wrap-or-insert "[[" "]]" nil region-beginning region-end thing-at-point-looking-at match-string 5 markdown-unwrap-thing-at-point 1 3] 6 (#$ . 133423) nil])
#@129 Remove header markup if point is at a header.
Return bounds of remaining header text if a header was removed
and nil otherwise.
(defalias 'markdown-remove-header #[0 "\302\303\304#\206 \302	\303\305#\207" [markdown-regex-header-atx markdown-regex-header-setext markdown-unwrap-thing-at-point 0 2 1] 4 (#$ . 134098) "*"])
#@729 Insert or replace header markup.
The level of the header is specified by LEVEL and header text is
given by TEXT.  LEVEL must be an integer from 1 and 6, and the
default value is 1.
When TEXT is nil, the header text is obtained as follows.
If there is an active region, it is used as the header text.
Otherwise, the current line will be used as the header text.
If there is not an active region and the point is at a header,
remove the header markup and replace with level N header.
Otherwise, insert empty header markup and place the point in
between.
The style of the header will be atx (hash marks) unless
SETEXT is non-nil, in which case a setext-style (underlined)
header will be inserted.

(fn &optional LEVEL TEXT SETEXT)
(defalias 'markdown-insert-header #[768 "\206 \302\302]\203 \303\202 \304^\262\204P \305 \203' \306\307 \310 \"\262\202K \311 \210\306\312 \313 \"\262\211\203K \314\315\316\317#)\266\203\203K \320\321!\262\322!\262\323 \210\315\203t \324\325!\303U\203f \326\202g \327\"\262\330\261\266\202\212 \324\331\"\262\211\332\261\210	\204\211 \332\261\210\210\333 \210\211\203\234 \325!T\206\231 \302[u\207	?\205\251 T\206\247 \302[u\207" [inhibit-changing-match-data markdown-asymmetric-header 1 2 6 use-region-p delete-and-extract-region region-beginning region-end markdown-remove-header line-beginning-position line-end-position "^[ 	]*$" nil t string-match read-string "Header text: " markdown-compress-whitespace-string markdown-ensure-blank-line-before make-string string-width 45 61 "\n" 35 " " markdown-ensure-blank-line-after] 10 (#$ . 134428) "p\nsHeader text: "])
#@1130 Insert or replace header markup.
The level and type of the header are determined automatically by
the type and level of the previous header, unless a prefix
argument is given via ARG.
With a numeric prefix valued 1 to 6, insert a header of the given
level, with the type being determined automatically (note that
only level 1 or 2 setext headers are possible).

With a \[universal-argument] prefix (i.e., when ARG is (4)),
promote the heading by one level.
With two \[universal-argument] prefixes (i.e., when ARG is (16)),
demote the heading by one level.
When SETEXT is non-nil, prefer setext-style headers when
possible (levels one and two).

When there is an active region, use it for the header text.  When
the point is at an existing header, change the type and level
according to the rules above.
Otherwise, if the line is not empty, create a header using the
text on the current line as the header text.
Finally, if the point is on a blank line, insert empty header
markup (atx) or prompt for text (setext).
See `markdown-insert-header' for more details about how the
header text is determined.

(fn &optional ARG SETEXT)
(defalias 'markdown-insert-header-dwim #[512 "\301\212\302!\204 \303\301\304#\203 \305 \262\306\225\262)\307\232\2030 \211\2030 \211\306V\2030 \211S\262\202P \310\232\203G \211\203G \211\311W\203G \211T\262\202P \203P \312!\262\211\203] \205[ \211\313X\262\314\301#\207" [markdown-regex-header nil thing-at-point-looking-at re-search-backward t markdown-outline-level 1 (4) (16) 6 prefix-numeric-value 2 markdown-insert-header] 7 (#$ . 136064) "*P"])
#@159 Insert or replace header markup, with preference for setext.
See `markdown-insert-header-dwim' for details, including how ARG is handled.

(fn &optional ARG)
(defalias 'markdown-insert-header-setext-dwim #[256 "\300\301\"\207" [markdown-insert-header-dwim t] 4 (#$ . 137668) "*P"])
#@82 Insert a first level atx-style (hash mark) header.
See `markdown-insert-header'.
(defalias 'markdown-insert-header-atx-1 #[0 "\300\301\302\211#\207" [markdown-insert-header 1 nil] 4 (#$ . 137957) "*"])
#@80 Insert a level two atx-style (hash mark) header.
See `markdown-insert-header'.
(defalias 'markdown-insert-header-atx-2 #[0 "\300\301\302\211#\207" [markdown-insert-header 2 nil] 4 (#$ . 138165) "*"])
#@82 Insert a level three atx-style (hash mark) header.
See `markdown-insert-header'.
(defalias 'markdown-insert-header-atx-3 #[0 "\300\301\302\211#\207" [markdown-insert-header 3 nil] 4 (#$ . 138371) "*"])
#@81 Insert a level four atx-style (hash mark) header.
See `markdown-insert-header'.
(defalias 'markdown-insert-header-atx-4 #[0 "\300\301\302\211#\207" [markdown-insert-header 4 nil] 4 (#$ . 138579) "*"])
#@81 Insert a level five atx-style (hash mark) header.
See `markdown-insert-header'.
(defalias 'markdown-insert-header-atx-5 #[0 "\300\301\302\211#\207" [markdown-insert-header 5 nil] 4 (#$ . 138786) "*"])
#@82 Insert a sixth level atx-style (hash mark) header.
See `markdown-insert-header'.
(defalias 'markdown-insert-header-atx-6 #[0 "\300\301\302\211#\207" [markdown-insert-header 6 nil] 4 (#$ . 138993) "*"])
#@86 Insert a setext-style (underlined) first-level header.
See `markdown-insert-header'.
(defalias 'markdown-insert-header-setext-1 #[0 "\300\301\302\303#\207" [markdown-insert-header 1 nil t] 4 (#$ . 139201) "*"])
#@87 Insert a setext-style (underlined) second-level header.
See `markdown-insert-header'.
(defalias 'markdown-insert-header-setext-2 #[0 "\300\301\302\303#\207" [markdown-insert-header 2 nil t] 4 (#$ . 139418) "*"])
#@120 Return string containing necessary indentation for a blockquote at LOC.
Also see `markdown-pre-indentation'.

(fn LOC)
(defalias 'markdown-blockquote-indentation #[257 "\212\211b\210\300 G\301\302\211W\203 \303\304P\262\210\211T\262\202\n \303\262\266\204)\207" [markdown-calculate-list-levels "" 0 nil "    "] 8 (#$ . 139637)])
#@144 Start a blockquote section (or blockquote the region).
If Transient Mark mode is on and a region is active, it is used as
the blockquote text.
(defalias 'markdown-insert-blockquote #[0 "\300 \203\f \301\302 \303 \"\207\304 \210\305`!\306\261\210\307 \207" [use-region-p markdown-blockquote-region region-beginning region-end markdown-ensure-blank-line-before markdown-blockquote-indentation "> " markdown-ensure-blank-line-after] 3 (#$ . 139981) nil])
#@195 Format the region using a block prefix.
Arguments BEG and END specify the beginning and end of the
region.  The characters PREFIX will appear at the beginning
of each line.

(fn BEG END PREFIX)
(defalias 'markdown-block-region #[771 "\212\300 \300 \301\302\303#b\210\304\305!\210`\306\223\210\307 \210\310 \210b\210\311\305!\210\307 \210\312 \210`\306\223\210b\210\313 W\205N m?\205N l\203E \211\202F c\210\306y\210\2021 \266\203)\207" [make-marker replace-regexp-in-string "[[:blank:]]+\\'" "" skip-syntax-backward "-" nil delete-horizontal-space markdown-ensure-blank-line-after skip-syntax-forward markdown-ensure-blank-line-before line-beginning-position] 9 (#$ . 140441)])
#@105 Blockquote the region.
Arguments BEG and END specify the beginning and end of the region.

(fn BEG END)
(defalias 'markdown-blockquote-region #[514 "\300\301eS]!\302P#\207" [markdown-block-region markdown-blockquote-indentation "> "] 8 (#$ . 141134) "*r"])
#@125 Return string containing necessary whitespace for a pre block at LOC.
Also see `markdown-blockquote-indentation'.

(fn LOC)
(defalias 'markdown-pre-indentation #[257 "\212\211b\210\300 G\301T\302\211W\203 \301\303P\262\210\211T\262\202 \301\262\266\204)\207" [markdown-calculate-list-levels nil 0 "    "] 8 (#$ . 141402)])
#@144 Start a preformatted section (or apply to the region).
If Transient Mark mode is on and a region is active, it is marked
as preformatted text.
(defalias 'markdown-insert-pre #[0 "\300 \203\f \301\302 \303 \"\207\304 \210\305`!c\210\306 \207" [use-region-p markdown-pre-region region-beginning region-end markdown-ensure-blank-line-before markdown-pre-indentation markdown-ensure-blank-line-after] 3 (#$ . 141741) nil])
#@122 Format the region as preformatted text.
Arguments BEG and END specify the beginning and end of the region.

(fn BEG END)
(defalias 'markdown-pre-region #[514 "\300eS]!\301#\207" [markdown-pre-indentation markdown-block-region] 7 (#$ . 142167) "*r"])
#@215 Insert a backquote.
The numeric prefix argument ARG says how many times to repeat the insertion.
Call `markdown-insert-gfm-code-block' interactively
if three backquotes inserted at the beginning of line.

(fn ARG)
(defalias 'markdown-electric-backquote #[257 "\301\302!!\210\205 \303\304\305\"\205 \306\307!\210\310\311!\207" [markdown-gfm-use-electric-backquote self-insert-command prefix-numeric-value looking-back "^```" nil replace-match "" call-interactively markdown-insert-gfm-code-block] 4 (#$ . 142428) "*P"])
#@74 Language specifiers recognized by GitHub's syntax highlighting features.
(defconst markdown-gfm-recognized-languages '("1C-Enterprise" "4D" "ABAP" "ABNF" "AGS-Script" "AMPL" "ANTLR" "API-Blueprint" "APL" "ASN.1" "ASP" "ATS" "ActionScript" "Ada" "Adobe-Font-Metrics" "Agda" "Alloy" "Alpine-Abuild" "Altium-Designer" "AngelScript" "Ant-Build-System" "ApacheConf" "Apex" "Apollo-Guidance-Computer" "AppleScript" "Arc" "AsciiDoc" "AspectJ" "Assembly" "Asymptote" "Augeas" "AutoHotkey" "AutoIt" "Awk" "Ballerina" "Batchfile" "Befunge" "BibTeX" "Bison" "BitBake" "Blade" "BlitzBasic" "BlitzMax" "Bluespec" "Boo" "Brainfuck" "Brightscript" "C#" "C++" "C-ObjDump" "C2hs-Haskell" "CLIPS" "CMake" "COBOL" "COLLADA" "CSON" "CSS" "CSV" "CWeb" "Cabal-Config" "Cap'n-Proto" "CartoCSS" "Ceylon" "Chapel" "Charity" "ChucK" "Cirru" "Clarion" "Clean" "Click" "Clojure" "Closure-Templates" "Cloud-Firestore-Security-Rules" "CoNLL-U" "CodeQL" "CoffeeScript" "ColdFusion" "ColdFusion-CFC" "Common-Lisp" "Common-Workflow-Language" "Component-Pascal" "Cool" "Coq" "Cpp-ObjDump" "Creole" "Crystal" "Csound" "Csound-Document" "Csound-Score" "Cuda" "Cycript" "Cython" "D-ObjDump" "DIGITAL-Command-Language" "DM" "DNS-Zone" "DTrace" "Dafny" "Darcs-Patch" "Dart" "DataWeave" "Dhall" "Diff" "DirectX-3D-File" "Dockerfile" "Dogescript" "Dylan" "EBNF" "ECL" "ECLiPSe" "EJS" "EML" "EQ" "Eagle" "Easybuild" "Ecere-Projects" "EditorConfig" "Edje-Data-Collection" "Eiffel" "Elixir" "Elm" "Emacs-Lisp" "EmberScript" "Erlang" "F#" "F*" "FIGlet-Font" "FLUX" "Factor" "Fancy" "Fantom" "Faust" "Filebench-WML" "Filterscript" "Formatted" "Forth" "Fortran" "Fortran-Free-Form" "FreeMarker" "Frege" "G-code" "GAML" "GAMS" "GAP" "GCC-Machine-Description" "GDB" "GDScript" "GEDCOM" "GLSL" "GN" "Game-Maker-Language" "Genie" "Genshi" "Gentoo-Ebuild" "Gentoo-Eclass" "Gerber-Image" "Gettext-Catalog" "Gherkin" "Git-Attributes" "Git-Config" "Glyph" "Glyph-Bitmap-Distribution-Format" "Gnuplot" "Go" "Golo" "Gosu" "Grace" "Gradle" "Grammatical-Framework" "Graph-Modeling-Language" "GraphQL" "Graphviz-(DOT)" "Groovy" "Groovy-Server-Pages" "HAProxy" "HCL" "HLSL" "HTML" "HTML+Django" "HTML+ECR" "HTML+EEX" "HTML+ERB" "HTML+PHP" "HTML+Razor" "HTTP" "HXML" "Hack" "Haml" "Handlebars" "Harbour" "Haskell" "Haxe" "HiveQL" "HolyC" "Hy" "HyPhy" "IDL" "IGOR-Pro" "INI" "IRC-log" "Idris" "Ignore-List" "Inform-7" "Inno-Setup" "Io" "Ioke" "Isabelle" "Isabelle-ROOT" "JFlex" "JSON" "JSON-with-Comments" "JSON5" "JSONLD" "JSONiq" "JSX" "Jasmin" "Java" "Java-Properties" "Java-Server-Pages" "JavaScript" "JavaScript+ERB" "Jison" "Jison-Lex" "Jolie" "Jsonnet" "Julia" "Jupyter-Notebook" "KRL" "KiCad-Layout" "KiCad-Legacy-Layout" "KiCad-Schematic" "Kit" "Kotlin" "LFE" "LLVM" "LOLCODE" "LSL" "LTspice-Symbol" "LabVIEW" "Lasso" "Latte" "Lean" "Less" "Lex" "LilyPond" "Limbo" "Linker-Script" "Linux-Kernel-Module" "Liquid" "Literate-Agda" "Literate-CoffeeScript" "Literate-Haskell" "LiveScript" "Logos" "Logtalk" "LookML" "LoomScript" "Lua" "M4" "M4Sugar" "MATLAB" "MAXScript" "MLIR" "MQL4" "MQL5" "MTML" "MUF" "Macaulay2" "Makefile" "Mako" "Markdown" "Marko" "Mask" "Mathematica" "Maven-POM" "Max" "MediaWiki" "Mercury" "Meson" "Metal" "Microsoft-Developer-Studio-Project" "MiniD" "Mirah" "Modelica" "Modula-2" "Modula-3" "Module-Management-System" "Monkey" "Moocode" "MoonScript" "Motorola-68K-Assembly" "Muse" "Myghty" "NASL" "NCL" "NEON" "NL" "NPM-Config" "NSIS" "Nearley" "Nemerle" "NetLinx" "NetLinx+ERB" "NetLogo" "NewLisp" "Nextflow" "Nginx" "Nim" "Ninja" "Nit" "Nix" "Nu" "NumPy" "OCaml" "ObjDump" "Object-Data-Instance-Notation" "ObjectScript" "Objective-C" "Objective-C++" "Objective-J" "Odin" "Omgrofl" "Opa" "Opal" "Open-Policy-Agent" "OpenCL" "OpenEdge-ABL" "OpenQASM" "OpenRC-runscript" "OpenSCAD" "OpenStep-Property-List" "OpenType-Feature-File" "Org" "Ox" "Oxygene" "Oz" "P4" "PHP" "PLSQL" "PLpgSQL" "POV-Ray-SDL" "Pan" "Papyrus" "Parrot" "Parrot-Assembly" "Parrot-Internal-Representation" "Pascal" "Pawn" "Pep8" "Perl" "Pic" "Pickle" "PicoLisp" "PigLatin" "Pike" "PlantUML" "Pod" "Pod-6" "PogoScript" "Pony" "PostCSS" "PostScript" "PowerBuilder" "PowerShell" "Prisma" "Processing" "Proguard" "Prolog" "Propeller-Spin" "Protocol-Buffer" "Public-Key" "Pug" "Puppet" "Pure-Data" "PureBasic" "PureScript" "Python" "Python-console" "Python-traceback" "QML" "QMake" "Quake" "RAML" "RDoc" "REALbasic" "REXX" "RHTML" "RMarkdown" "RPC" "RPM-Spec" "RUNOFF" "Racket" "Ragel" "Raku" "Rascal" "Raw-token-data" "Readline-Config" "Reason" "Rebol" "Red" "Redcode" "Regular-Expression" "Ren'Py" "RenderScript" "Rich-Text-Format" "Ring" "Riot" "RobotFramework" "Roff" "Roff-Manpage" "Rouge" "Ruby" "Rust" "SAS" "SCSS" "SMT" "SPARQL" "SQF" "SQL" "SQLPL" "SRecode-Template" "SSH-Config" "STON" "SVG" "SWIG" "Sage" "SaltStack" "Sass" "Scala" "Scaml" "Scheme" "Scilab" "Self" "ShaderLab" "Shell" "ShellSession" "Shen" "Slash" "Slice" "Slim" "SmPL" "Smali" "Smalltalk" "Smarty" "Solidity" "SourcePawn" "Spline-Font-Database" "Squirrel" "Stan" "Standard-ML" "Starlark" "Stata" "Stylus" "SubRip-Text" "SugarSS" "SuperCollider" "Svelte" "Swift" "SystemVerilog" "TI-Program" "TLA" "TOML" "TSQL" "TSX" "TXL" "Tcl" "Tcsh" "TeX" "Tea" "Terra" "Texinfo" "Text" "Textile" "Thrift" "Turing" "Turtle" "Twig" "Type-Language" "TypeScript" "Unified-Parallel-C" "Unity3D-Asset" "Unix-Assembly" "Uno" "UnrealScript" "UrWeb" "VBA" "VBScript" "VCL" "VHDL" "Vala" "Verilog" "Vim-Snippet" "Vim-script" "Visual-Basic-.NET" "Volt" "Vue" "Wavefront-Material" "Wavefront-Object" "Web-Ontology-Language" "WebAssembly" "WebIDL" "WebVTT" "Wget-Config" "Windows-Registry-Entries" "Wollok" "World-of-Warcraft-Addon-Data" "X-BitMap" "X-Font-Directory-Index" "X-PixMap" "X10" "XC" "XCompose" "XML" "XML-Property-List" "XPages" "XProc" "XQuery" "XS" "XSLT" "Xojo" "Xtend" "YAML" "YANG" "YARA" "YASnippet" "Yacc" "ZAP" "ZIL" "Zeek" "ZenScript" "Zephir" "Zig" "Zimpl" "cURL-Config" "desktop" "dircolors" "eC" "edn" "fish" "mIRC-Script" "mcfunction" "mupad" "nanorc" "nesC" "ooc" "reStructuredText" "sed" "wdl" "wisp" "xBase") (#$ . 142957))
#@41 Language names used in GFM code blocks.
(defvar markdown-gfm-used-languages nil (#$ . 149000))
(make-variable-buffer-local 'markdown-gfm-used-languages)
#@12 

(fn STR)
(defalias 'markdown-trim-whitespace #[257 "\300\301\302#\207" [replace-regexp-in-string "\\(?:[[:space:]\n]+\\'\\|\\`[[:space:]\n]+\\)" ""] 5 (#$ . 149159)])
#@12 

(fn STR)
(defalias 'markdown-clean-language-string #[257 "\300\301\302\303!#\207" [replace-regexp-in-string "{\\.?\\|}" "" markdown-trim-whitespace] 6 (#$ . 149337)])
#@15 

(fn WIDGET)
(defalias 'markdown-validate-language-string #[257 "\300!\211\301!\230?\205 \302\303\304\305\"#\210\207" [widget-value markdown-clean-language-string widget-put :error format "Invalid language spec: '%s'"] 8 (#$ . 149513)])
#@76 Create corpus of recognized GFM code block languages for the given buffer.
(defalias 'markdown-gfm-get-corpus #[0 "\304	\"\304\n\203 \305\306\"\202 \"\207" [markdown-gfm-additional-languages markdown-gfm-recognized-languages markdown-gfm-used-languages markdown-gfm-downcase-languages append cl-mapcar downcase] 6 (#$ . 149763)])
#@58 Clean LANG and add to list of used languages.

(fn LANG)
(defalias 'markdown-gfm-add-used-language #[257 "\211\301\"B\211\207" [markdown-gfm-used-languages remove] 5 (#$ . 150105)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\210\300\316\302\303\317DD\320\306\307\310\321&\207" [custom-declare-variable markdown-spaces-after-code-fence funcall function #[0 "\300\207" [1] 1] "Number of space characters to insert after a code fence.\n\\<gfm-mode-map>\\[markdown-insert-gfm-code-block] inserts this many spaces between an\nopening code fence and an info string." :group markdown :type integer :safe natnump :package-version (markdown-mode . "2.3") markdown-code-block-braces #[0 "\300\207" [nil] 1] "When non-nil, automatically insert braces for GFM code blocks." boolean] 12)
#@433 Insert GFM code block for language LANG.
If LANG is nil, the language will be queried from user.  If a
region is active, wrap this region with the markup instead.  If
the region boundaries are not on empty lines, these are added
automatically in order to have the correct markup.  When EDIT is
non-nil (e.g., when \[universal-argument] is given), edit the
code block in an indirect buffer after insertion.

(fn &optional LANG EDIT)
(defalias 'markdown-insert-gfm-code-block #[512 "\303\230\204\n \304!\210G\305V\203 \204 \306	\307\"P\262\203% \310\202& \303\203. \311\202/ \303\312 \203\202 \313 \314 \315b\210\316 b\210\317\320\315\"\204K \321 \210\211j\210\322c\210\323 \210`\262b\210\320\324\325!)\262\204l \321 \210\326y\210\327 \210\211j\210\322	\261\210\330\331 \"\207\316 \315\332\333!\210\327 \210j\210\331 \262\322\320\261\210j\210\204\246 \334c\210j\210\322c\210\323 \210\330`\"\266\305\210\205\276 \335 \207" [markdown-code-block-braces markdown-spaces-after-code-fence inhibit-changing-match-data "" markdown-gfm-add-used-language 0 make-string 32 "{" "}" use-region-p region-beginning region-end nil current-indentation looking-back "\n" newline "```" markdown-ensure-blank-line-after t looking-at -1 markdown-ensure-blank-line-before markdown-syntax-propertize-fenced-block-constructs point-at-bol delete-horizontal-space :backward-only 10 markdown-edit-code-block] 12 (#$ . 150921) (byte-code "\303\3041 \305\306\307\310 \303\311	@\312&!0\202 \210\313)\nD\207" [completion-ignore-case markdown-gfm-used-languages current-prefix-arg nil (quit) markdown-clean-language-string completing-read "Programming language: " markdown-gfm-get-corpus confirm markdown-gfm-language-history ""] 8)])
#@233 Return the language name for a GFM or tilde fenced code block.
The beginning of the block may be described by POS-PROP,
a cons of (pos . prop) giving the position and property
at the beginning of the block.

(fn &optional POS-PROP)
(defalias 'markdown-code-block-lang #[256 "\211\204 \300\301\302\303\304\305\306 \"\"\"\262\211\205> \211@b\210\307\310`A\"!\210\311\224\311\225\205< \211\205< f\312=\2038 T\262\313\"\266\202\207" [markdown-max-of-seq car cl-remove-if null cl-mapcar markdown-find-previous-prop markdown-get-fenced-block-begin-properties set-match-data get-text-property 3 46 buffer-substring-no-properties] 8 (#$ . 152671)])
#@25 

(fn &optional BUFFER)
(defalias 'markdown-gfm-parse-buffer-for-languages #[256 "r\211\206 pq\210\212eb\210\300\301\211\211\302!\262\2032 \303!\262\203& \304!\210\305`\"b\210\301\262\202 \266*\301\207" [markdown-gfm-block-begin nil markdown-find-next-prop markdown-code-block-lang markdown-gfm-add-used-language next-single-property-change] 8 (#$ . 153327)])
#@216 Insert details disclosure element to make content foldable.
If a region is active, wrap this region with the disclosure
element. More detais here 'https://developer.mozilla.org/en-US/docs/Web/HTML/Element/details'.
(defalias 'markdown-insert-foldable-block #[0 "\301 \203M \302 \303 b\210\304 b\210\305\306\307\"\204 \310 \210\211j\210\311c\210\312 \210b\210\306\313\314!)\262\2049 \310 \210\315y\210\316 \210\211j\210\317\306\261\210\320\321\261\210\322\321!\207\304 \323\324!\210\316 \210\211j\210\317\306\261\210\320\321\306\261\210\311c\210\211j\210\312 \210\322\321!\207" [inhibit-changing-match-data use-region-p region-beginning region-end current-indentation looking-back "\n" nil newline "</details>" markdown-ensure-blank-line-after t looking-at -1 markdown-ensure-blank-line-before "<details>" "<summary>" " </summary>" search-backward delete-horizontal-space :backward-only] 6 (#$ . 153706) nil])
#@65 Increment `markdown-footnote-counter' and return the new value.
(defalias 'markdown-footnote-counter-inc #[0 "\302U\203' \212eb\210\303\304	\305Qd\306#\203& \307\310\311!!\211V\203\" \211\210\202\n )T\211\207" [markdown-footnote-counter markdown-footnote-chars 0 re-search-forward "^\\[\\^\\(" "*?\\)\\]:" t string-to-number match-string 1] 4 (#$ . 154632)])
#@74 Insert footnote with a new number and move point to footnote definition.
(defalias 'markdown-insert-footnote #[0 "\300 \301\302\"c\210\303 \210\304 \210\305 \204 \306c\210\301\307\"c\210\310 \207" [markdown-footnote-counter-inc format "[^%d]" markdown-footnote-text-find-new-location markdown-ensure-blank-line-before markdown-cur-line-blank-p "\n" "[^%d]: " markdown-ensure-blank-line-after] 4 (#$ . 155002) nil])
#@68 Position the point at the proper location for a new footnote text.
(defalias 'markdown-footnote-text-find-new-location #[0 "\301\267\202 db\207\302 \207\303 \207\304 \207\305\207" [markdown-footnote-location #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (end 6 immediately 9 subtree 12 header 15)) markdown-end-of-text-block markdown-end-of-subtree markdown-end-of-defun nil] 2 (#$ . 155426)])
#@191 Kill the footnote at point.
The footnote text is killed (and added to the kill ring), the
footnote marker is deleted.  Point has to be either at the
footnote marker or in the footnote text.
(defalias 'markdown-footnote-kill #[0 "\300\211\301 \211\203 \302@!\211\203 \211Sb\266\202 \303\262\210\204A \304 \211\204* \305\306!\210\211A@\262\307@!\211\204= \305\310@\"\210\211b\266\311 \203K \211\202L b\207" [nil markdown-footnote-text-positions markdown-footnote-find-marker t markdown-footnote-delete-marker error "Not at a footnote" markdown-footnote-find-text "No text for footnote `%s'" markdown-footnote-kill-text] 8 (#$ . 155868) nil])
#@206 Delete a footnote marker at point.
Returns a list (ID START) containing the footnote ID and the
start position of the marker before deletion.  If no footnote
marker was deleted, this function returns NIL.
(defalias 'markdown-footnote-delete-marker #[0 "\300 \211\205 \211A@AA@|\210\301!\207" [markdown-footnote-marker-positions butlast] 3 (#$ . 156528)])
#@218 Kill footnote text at point.
Returns the start position of the footnote text before deletion,
or NIL if point was not inside a footnote text.

The killed text is placed in the kill ring (without the footnote
number).
(defalias 'markdown-footnote-kill-text #[0 "\300 \211\2057 \301A@AA@\"\302\303@\304Q\"\210\305\306\307\"!\210\310 \2032 \311 \2032 o\2042 `S`|\210A@\262\207" [markdown-footnote-text-positions delete-and-extract-region string-match "\\[\\" "\\]:[[:space:]]*\\(\\(.*\n?\\)*\\)" kill-new match-string 1 markdown-cur-line-blank-p markdown-prev-line-blank-p] 6 (#$ . 156893)])
#@44 Jump to the text of the footnote at point.
(defalias 'markdown-footnote-goto-text #[0 "\300 @\211\204 \301\302!\210\303!\211\204 \304\305\"\210\211b\207" [markdown-footnote-marker-positions user-error "Not at a footnote marker" markdown-footnote-find-text error "No definition found for footnote `%s'"] 5 (#$ . 157495) nil])
#@65 Return from a footnote to its footnote number in the main text.
(defalias 'markdown-footnote-return #[0 "\212\300 @)\211\204 \301\302!\210\303!\211\204 \304\305\"\210\211b\207" [markdown-footnote-text-positions user-error "Not in a footnote" markdown-footnote-find-marker error "Footnote marker `%s' not found"] 5 (#$ . 157830) nil])
#@202 Find the location of the footnote marker with ID.
The actual buffer position returned is the position directly
following the marker's closing bracket.  If no marker is found,
NIL is returned.

(fn ID)
(defalias 'markdown-footnote-find-marker #[257 "\212eb\210\300\301\302Q\303\304#\205 \305\303x\210`)\207" [re-search-forward "\\[" "\\]\\([^:]\\|\\'\\)" nil t "^]"] 5 (#$ . 158175)])
#@225 Find the location of the text of footnote ID.
The actual buffer position returned is the position of the first
character of the text, after the footnote's identifier.  If no
footnote text is found, NIL is returned.

(fn ID)
(defalias 'markdown-footnote-find-text #[257 "\212eb\210\300\301\302Q\303\304#\205 \305\303w\210`)\207" [re-search-forward "^ \\{0,3\\}\\[" "\\]:" nil t "[ 	]"] 5 (#$ . 158568)])
#@156 Return the position and ID of the footnote marker point is on.
The return value is a list (ID START END).  If point is not on a
footnote, NIL is returned.
(defalias 'markdown-footnote-marker-positions #[0 "\302\303\304Q\305 \"\204 \306\307Q\310\311!)\262\205C \212\312\310\311!)\262\203- \313u\210\2021 \314\315x\210\311\316\317Q!\210\320\313!\313\224S\313\225TE)\207" [markdown-footnote-chars inhibit-changing-match-data looking-back "\\[\\^" "*\\]?" line-beginning-position "\\[?\\^" "*?\\]" t looking-at "\\[" 1 "^[" nil "\\(\\^" "*?\\)\\]" match-string] 4 (#$ . 158980)])
#@345 Return the start and end positions of the footnote text point is in.
The exact return value is a list of three elements: (ID START END).
The start position is the position of the opening bracket
of the footnote id.  The end position is directly after the
newline that ends the footnote.  If point is not in a footnote,
NIL is returned instead.
(defalias 'markdown-footnote-text-positions #[0 "\212\301\302\303!\210\304!\203 \305\303!`D\211\262\204- o\204- \306 \204' \307 \310Y\203- \311y\210\202 \211\205] \312 dU\204J \313 \204D \314 \310Y\203J \301y\210\2021 \306 \203U \311y\210\202J \301y\210\315`C\"\262)\207" [markdown-regex-footnote-definition nil move-beginning-of-line 1 looking-at match-string markdown-cur-line-blank-p current-indentation 4 -1 line-end-position markdown-next-line-blank-p markdown-next-line-indent append] 4 (#$ . 159573)])
#@398 Return a list of all defined footnotes.
Result is an alist of pairs (MARKER . LINE), where MARKER is the
footnote marker, a string, and LINE is the line number containing
the footnote definition.

For example, suppose the following footnotes are defined at positions
448 and 475:

[^1]: First footnote here.
[^marker]: Second footnote.

Then the returned list is: (("^1" . 478) ("^marker" . 475))
(defalias 'markdown-get-defined-footnotes #[0 "\212eb\210\301\302\303\301\304$\2033 \305\306!\307\224G\307U\204. B\211\235\203' \202* \211B\262\262\266\202 \310!\262)\207" [markdown-regex-footnote-definition nil markdown-search-until-condition #[0 "\300 ?\205 \301 ?\205 \302\303\206 `\304\"\262?\207" [markdown-code-block-at-point-p markdown-inline-code-at-point-p nil get-text-property markdown-comment] 4] t match-string-no-properties 1 0 reverse] 6 (#$ . 160439)])
#@435 Kill thing at point and add important text, without markup, to kill ring.
Possible things to kill include (roughly in order of precedence):
inline code, headers, horizontal rules, links (add link text to
kill ring), images (add alt text to kill ring), angle uri, email
addresses, bold, italics, reference definition (add URI to kill
ring), footnote markers and text (kill both marker and text, add
text to kill ring), and list items.
(defalias 'markdown-kill-thing-at-point #[0 "\306\307 \203 \310\311\312!!\210\313\224\313\225|\207\314!\203$ \310\311\312!!\210\313\224\313\225|\207\314	!\2036 \310\311\315!!\210\313\224\313\225|\207\314\n!\203H \310\311\313!!\210\313\224\313\225|\207\314!\203Z \310\311\316!!\210\313\224\313\225|\207\314\f!\203l \310\311\316!!\210\313\224\313\225|\207\314!\203~ \310\311\312!!\210\313\224\313\225|\207\314!\203\221 \310\311\315!!\210\313\224\313\225|\207\203\250 \314!\203\250 \310\317 !\210\315\224\315\225|\207\314!\203\273 \310\311\320!!\210\312\224\312\225|\207\314!\203\316 \310\311\316!!\210\315\224\315\225|\207\314!\203\341 \310\311\320!!\210\312\224\312\225|\207\314!\203\353 \321 \207\322 \211\262\203\366 \321 \207\314!\203	\310\311\323!!\210\313\224\313\225|\207\324 \211\262\203\310\325@A@\"!\207\326\327!\207" [markdown-regex-header-atx markdown-regex-header-setext markdown-regex-hr markdown-regex-link-inline markdown-regex-link-reference markdown-regex-angle-uri nil markdown-inline-code-at-point kill-new match-string 2 0 thing-at-point-looking-at 1 3 markdown-wiki-link-alias 4 markdown-footnote-kill markdown-footnote-text-positions 5 markdown-cur-list-item-bounds delete-and-extract-region user-error "Nothing found at point to kill" markdown-regex-email markdown-enable-wiki-links markdown-regex-wiki-link markdown-regex-bold markdown-regex-italic markdown-regex-strike-through markdown-regex-footnote markdown-regex-reference-definition] 5 (#$ . 161330) "*"])
#@49 Kill visible heading and add it to `kill-ring'.
(defalias 'markdown-kill-outline #[0 "\212\300 \210\301`\302 \210`\")\207" [markdown-outline-previous kill-region markdown-outline-next] 3 (#$ . 163282) nil])
#@78 Kill visible code block, list item, or blockquote and add it to `kill-ring'.
(defalias 'markdown-kill-block #[0 "\212\300 \210\301`\302 \210`\")\207" [markdown-backward-block kill-region markdown-forward-block] 3 (#$ . 163495) nil])
#@139 Return the position after the index of CUR-POS in POSITIONS.
Positions are calculated by `markdown-calc-indents'.

(fn CUR-POS POSITIONS)
(defalias 'markdown-indent-find-next-position #[514 "\211\203 @\232\204 \211A\262\202  \211A@\206 \300\207" [0] 4 (#$ . 163735)])
#@143 Return the maximal element that precedes CUR-POS from POSITIONS.
Positions are calculated by `markdown-calc-indents'.

(fn CUR-POS POSITIONS)
(defalias 'markdown-outdent-find-next-position #[514 "\300\211\203 \211@\211W\203 ]\262A\266\202\202 \210\207" [0] 7 (#$ . 164016)])
#@442 Indent the current line using some heuristics.
If the _previous_ command was either `markdown-enter-key' or
`markdown-cycle', then we should cycle to the next
reasonable indentation position.  Otherwise, we could have been
called directly by `markdown-enter-key', by an initial call of
`markdown-cycle', or indirectly by `auto-fill-mode'.  In
these cases, indent to the default position.
Positions are calculated by `markdown-calc-indents'.
(defalias 'markdown-indent-line #[0 "\301 i\302\303 \210i\304=\204 \305@!\207\306\307!\310\"\262\311\"Z\\\312]\305!\210\313!\207" [this-command markdown-calc-indents nil back-to-indentation markdown-cycle indent-line-to sort delete-dups < markdown-indent-find-next-position 0 move-to-column] 8 (#$ . 164307) nil])
#@247 Return a list of indentation columns to cycle through.
The first element in the returned list should be considered the
default indentation level.  This function does not worry about
duplicate positions, which are handled up by calling functions.
(defalias 'markdown-calc-indents #[0 "\302\211\211\303 \262C\262\212\304y\210\305!\205 \306\225\307\224Z)\211\262\203& B\262\310`!G\262B\262\203? 	\\B\262\202D 	B\262\203U 	V\203U 	ZB\262\311 \211\262\203c \312\"\262\307B\262\313!\207" [markdown-regex-list tab-width nil markdown-prev-line-indent -1 looking-at 3 0 markdown-pre-indentation markdown-calculate-list-levels append reverse] 6 (#$ . 165081)])
#@522 Handle RET depending on the context.
If the point is at a table, move to the next row.  Otherwise,
indent according to value of `markdown-indent-on-enter'.
When it is nil, simply call `newline'.  Otherwise, indent the next line
following RET using `markdown-indent-line'.  Furthermore, when it
is set to 'indent-and-new-item and the point is in a list item,
start a new item with the same indentation. If the point is in an
empty list item, remove it (so that pressing RET twice when in a
list simply adds a blank line).
(defalias 'markdown-enter-key #[0 "\301 \203	 \302\303!\207\203B \304\305=\203< \306 \211\262\203< \211@A@AAA@ZU\2038 |\210\307 \210\310 \207\302\311!\207\307 \210\310 \207\307 \207" [markdown-indent-on-enter markdown-table-at-point-p call-interactively markdown-table-next-row nil indent-and-new-item markdown-cur-list-item-bounds newline markdown-indent-line markdown-insert-list-item] 6 (#$ . 165770) nil])
#@265 Handle BACKSPACE by cycling through indentation points.
When BACKSPACE is pressed, if there is only whitespace
before the current point, then outdent the line one level.
Otherwise, do normal delete by repeating
`backward-delete-char-untabify' ARG times.

(fn ARG)
(defalias 'markdown-outdent-or-delete #[257 "\300 \203	 \301!\207i\212\302 \210i)\303 \304V\203% U\203% \305\306\"!\207\301!\207" [use-region-p backward-delete-char-untabify back-to-indentation markdown-calc-indents 0 indent-line-to markdown-outdent-find-next-position] 8 (#$ . 166718) "*p"])
#@71 Find the leftmost column in the region from BEG to END.

(fn BEG END)
(defalias 'markdown-find-leftmost-column #[514 "\301\212b\210`W\203% \302 \210\303\304\305!)\262\204 \211i^\262\306y\210\202 )\207" [inhibit-changing-match-data 1000 back-to-indentation "[ 	]*$" t looking-at 1] 6 (#$ . 167288)])
#@180 Indent the region from BEG to END using some heuristics.
When ARG is non-nil, outdent the region instead.
See `markdown-indent-line' and `markdown-indent-line'.

(fn BEG END ARG)
(defalias 'markdown-indent-region #[771 "\301\302\303 !\304\"\305\"\203 \306\"\202 \307\"\310Z#\210\311\211\207" [deactivate-mark sort delete-dups markdown-calc-indents < markdown-find-leftmost-column markdown-outdent-find-next-position markdown-indent-find-next-position indent-rigidly nil] 11 (#$ . 167602) "*r\nP"])
#@84 Call `markdown-indent-region' on region from BEG to END with prefix.

(fn BEG END)
(defalias 'markdown-outdent-region #[514 "\300\301#\207" [markdown-indent-region t] 6 (#$ . 168122) "*r"])
#@18 

(fn START END)
(defalias 'markdown--indent-region #[514 "\301\212\211b\210\302 \262b\210n\203 \303y\210`W\2030 \304 \204* n\203' l\204* \305 \210\303y\210\202 \211\301\211\223*\207" [deactivate-mark nil point-marker 1 markdown-code-block-at-point-p indent-according-to-mode] 5 (#$ . 168320)])
#@69 Association list of form (regexp . function) for markup completion.
(defconst markdown-complete-alist '((markdown-regex-header-atx . markdown-complete-atx) (markdown-regex-header-setext . markdown-complete-setext) (markdown-regex-hr . markdown-complete-hr)) (#$ . 168627))
#@333 Return t if ATX header markup is incomplete and nil otherwise.
Assumes match data is available for `markdown-regex-header-atx'.
Checks that the number of trailing hash marks equals the number of leading
hash marks, that there is only a single space before and after the text,
and that there is no extraneous whitespace in the text.
(defalias 'markdown-incomplete-atx-p #[0 "\301\302!G\301\303!GU?\206M \301\304!G\305V\203< \304\224\302\225TU?\206M \303\224\304\225TU?\206M \306\301\304!\307\310\311#)\266\203\206M \301\304!G\305U\205M \303\224\302\225\304\\U?\207" [inhibit-changing-match-data match-string 1 3 2 0 "[ 	\n]\\{2\\}" nil t string-match] 7 (#$ . 168907)])
#@374 Complete and normalize ATX headers.
Add or remove hash marks to the end of the header to match the
beginning.  Ensure that there is only a single space between hash
marks and header text.  Removes extraneous whitespace from header text.
Assumes match data is available for `markdown-regex-header-atx'.
Return nil if markup was complete and non-nil if markup was completed.
(defalias 'markdown-complete-atx #[0 "\300 \205: \301 \211\302\225\303\223\302\225b\210\302\225\304\225|\210\305\306\307!\261\210\310\311\306\302!!\312\211\303\302%\210\307\225b\210\307\225\302\224|\210\305c\210\211b\266\202\207" [markdown-incomplete-atx-p make-marker 2 nil 3 " " match-string 1 replace-match markdown-compress-whitespace-string t] 8 (#$ . 169587)])
#@236 Return t if setext header markup is incomplete and nil otherwise.
Assumes match data is available for `markdown-regex-header-setext'.
Checks that length of underline matches text and that there is no
extraneous whitespace in the text.
(defalias 'markdown-incomplete-setext-p #[0 "\301\302!G\301\303!GU?\206 \304\301\302!\305\306\307#)\266\203\207" [inhibit-changing-match-data match-string 1 2 "[ 	\n]\\{2\\}" nil t string-match] 7 (#$ . 170335)])
#@296 Complete and normalize setext headers.
Add or remove underline characters to match length of header
text.  Removes extraneous whitespace from header text.  Assumes
match data is available for `markdown-regex-header-setext'.
Return nil if markup was complete and non-nil if markup was completed.
(defalias 'markdown-complete-setext #[0 "\300 \205, \301\302\303!!\304\224f\305\306\"\203 \304\202 \303\307\224b\210\307\224\307\225|\210\310\311#\210\311\266\203\207" [markdown-incomplete-setext-p markdown-compress-whitespace-string match-string 1 2 char-equal 45 0 markdown-insert-header t] 7 (#$ . 170795)])
#@130 Return non-nil if hr is not in `markdown-hr-strings' and nil otherwise.
Assumes match data is available for `markdown-regex-hr'.
(defalias 'markdown-incomplete-hr-p #[0 "\301\302!\235?\207" [markdown-hr-strings match-string 0] 2 (#$ . 171413)])
#@291 Complete horizontal rules.
If horizontal rule string is a member of `markdown-hr-strings',
do nothing.  Otherwise, replace with the car of
`markdown-hr-strings'.
Assumes match data is available for `markdown-regex-hr'.
Return nil if markup was complete and non-nil if markup was completed.
(defalias 'markdown-complete-hr #[0 "\301 \205 \302@!\210\303\207" [markdown-hr-strings markdown-incomplete-hr-p replace-match t] 2 (#$ . 171666)])
#@188 Complete markup of object near point or in region when active.
Handle all objects in `markdown-complete-alist', in order.
See `markdown-complete-at-point' and `markdown-complete-region'.
(defalias 'markdown-complete #[0 "\300 \203\f \301\302 \303 \"\207\304 \207" [use-region-p markdown-complete-region region-beginning region-end markdown-complete-at-point] 3 (#$ . 172113) "*"])
#@98 Complete markup of object near point.
Handle all elements of `markdown-complete-alist' in order.
(defalias 'markdown-complete-at-point #[0 "\301\211\203( \302@@!@AA\262\303!\203# \304\262\211 \262\301\262\266\202 \2034 \211\2067 \305\306!\207\305\307!\207" [markdown-complete-alist nil eval thing-at-point-looking-at t user-error "Markup at point is complete" "Nothing to complete at point"] 7 (#$ . 172500) "*"])
#@205 Complete markup of objects in region from BEG to END.
Handle all objects in `markdown-complete-alist', in order.  Each
match is checked to ensure that a previous regexp does not also
match.

(fn BEG END)
(defalias 'markdown-complete-region #[514 "\301 \302\223\302\211\203o \211@\303@!Ab\210\304\305#\203W \306\307!\203 \302\310 \311\312\"\216\211\203G \211@\204@ \313\302\"\262A\266\202\2020 \210)\210\211\204S \212 \210)\210\202 \235\203a \202d B\262\266A\266\202\202 \210\207" [markdown-complete-alist make-marker nil eval re-search-forward limit match-string 0 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-back] 15 (#$ . 172934) "*r"])
#@56 Complete markup for all objects in the current buffer.
(defalias 'markdown-complete-buffer #[0 "\300ed\"\207" [markdown-complete-region] 3 (#$ . 173653) "*"])
#@392 Cycle ATX header markup.
Promote header (decrease level) when ARG is 1 and demote
header (increase level) if arg is -1.  When REMOVE is non-nil,
remove the header when the level reaches zero and stop cycling
when it reaches six.  Otherwise, perform a proper cycling through
levels one through six.  Assumes match data is available for
`markdown-regex-header-atx'.

(fn ARG &optional REMOVE)
(defalias 'markdown-cycle-atx #[513 "\300\301!G\211\\\300\302!\204, \303\246\262\304U\203 \303\202* \304W\203) \303\\\202* \262\304U\2038 \305\306\304\302#\207\303X\205M \304\224b\210\304\224\304\225|\210\307\306#\207" [match-string 1 2 6 0 markdown-unwrap-thing-at-point nil markdown-insert-header] 9 (#$ . 173819)])
#@432 Cycle setext header markup.
Promote header (increase level) when ARG is 1 and demote
header (decrease level or remove) if arg is -1.  When demoting a
level-two setext header, replace with a level-three atx header.
When REMOVE is non-nil, remove the header when the level reaches
zero.  Otherwise, cycle back to a level six atx header.  Assumes
match data is available for `markdown-regex-header-setext'.

(fn ARG &optional REMOVE)
(defalias 'markdown-cycle-setext #[513 "\300\224f\301\302\"\203 \303\202 \300\211\\\204 \211\304U\203 \305\262\211\304U\203+ \306\307\304\303#\207\211\300X\2037 \310\307\311#\207\211\305X\205B \310\307\211#\207" [2 char-equal 61 1 0 6 markdown-unwrap-thing-at-point nil markdown-insert-header t] 9 (#$ . 174549)])
#@332 Cycle string used for horizontal rule from `markdown-hr-strings'.
When ARG is 1, cycle forward (demote), and when ARG is -1, cycle
backwards (promote).  When REMOVE is non-nil, remove the hr instead
of cycling when the end of the list is reached.
Assumes match data is available for `markdown-regex-hr'.

(fn ARG &optional REMOVE)
(defalias 'markdown-cycle-hr #[513 "\301U\203\f \302!\202 \303\304!\235\211A@\206- \203+ \305U\203& \306\202- \211@\202- @\307!\207" [markdown-hr-strings -1 reverse match-string 0 1 "" replace-match] 7 (#$ . 175311)])
#@113 Cycle bold markup between underscores and asterisks.
Assumes match data is available for `markdown-regex-bold'.
(defalias 'markdown-cycle-bold #[0 "\212\300\301!\211\302\230\203 \303\202 \302\304\305\211\306\301%\210\304\305\211\306\307%\266\202)\207" [match-string 3 "**" "__" replace-match t nil 5] 8 (#$ . 175876)])
#@117 Cycle italic markup between underscores and asterisks.
Assumes match data is available for `markdown-regex-italic'.
(defalias 'markdown-cycle-italic #[0 "\212\300\301!\211\302\230\203 \303\202 \302\304\305\211\306\301%\210\304\305\211\306\307%\266\202)\207" [match-string 2 "*" "_" replace-match t nil 4] 8 (#$ . 176206)])
#@58 Return a formatted prompt for Markdown markup insertion.
(defalias 'markdown--style-map-prompt #[0 "\205C \301\302\303\304\305#\306\302\307\304\310#\306\302\311\304\312#\306\302\313\304\314#\306\302\315\304\316#\306\302\317\304\320#\306\302\321\304\305#\306\302\322\304\323#\306\302\324\304\325#\306\302\326\304\327#\330\260\207" [markdown-enable-prefix-prompts "Markdown: " propertize "bold" face markdown-bold-face ", " "italic" markdown-italic-face "code" markdown-inline-code-face "C = GFM code" markdown-code-face "pre" markdown-pre-face "footnote" markdown-footnote-text-face "F = foldable" "q = blockquote" markdown-blockquote-face "h & 1-6 = heading" markdown-header-face "- = hr" markdown-hr-face ", C-h = more"] 23 (#$ . 176539)])
#@50 Return prompt for Markdown buffer-wide commands.
(defalias 'markdown--command-map-prompt #[0 "\2051 \301\302\303\304\305#\306\302\307\304\305#\310\302\311\304\305#\312\302\313\304\305#\314\302\315\304\305#\316\302\317\304\305#\320\302\321\304\305#\322\260\207" [markdown-enable-prefix-prompts "Command: " propertize "m" face markdown-bold-face "arkdown, " "p" "review, " "o" "pen, " "e" "xport, export & pre" "v" "iew, " "c" "heck refs, " "u" "nused refs, C-h = more"] 17 (#$ . 177288)])
#@44 Keymap for Markdown text styling commands.
(defvar markdown-mode-style-map (byte-code "\300\301 !\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\342#\210\207" [make-keymap markdown--style-map-prompt define-key "1" markdown-insert-header-atx-1 "2" markdown-insert-header-atx-2 "3" markdown-insert-header-atx-3 "4" markdown-insert-header-atx-4 "5" markdown-insert-header-atx-5 "6" markdown-insert-header-atx-6 "!" markdown-insert-header-setext-1 "@" markdown-insert-header-setext-2 "b" markdown-insert-bold "c" markdown-insert-code "C" markdown-insert-gfm-code-block "f" markdown-insert-footnote "F" markdown-insert-foldable-block "h" markdown-insert-header-dwim "H" markdown-insert-header-setext-dwim "i" markdown-insert-italic "k" markdown-insert-kbd "l" markdown-insert-link "p" markdown-insert-pre "P" markdown-pre-region "q" markdown-insert-blockquote "s" markdown-insert-strike-through "t" markdown-insert-table "Q" markdown-blockquote-region "w" markdown-insert-wiki-link "-" markdown-insert-hr "[" markdown-insert-gfm-checkbox "e"] 5) (#$ . 177784))
#@43 Keymap for Markdown buffer-wide commands.
(defvar markdown-mode-command-map (byte-code "\300\301 !\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\207" [make-keymap markdown--command-map-prompt define-key "m" markdown-other-window "p" markdown-preview "e" markdown-export "v" markdown-export-and-preview "o" markdown-open "l" markdown-live-preview-mode "w" markdown-kill-ring-save "c" markdown-check-refs "u" markdown-unused-refs "n" markdown-cleanup-list-numbers "]" markdown-complete-buffer "^" markdown-table-sort-lines "|" markdown-table-convert-region "t" markdown-table-transpose] 5) (#$ . 179294))
#@33 Keymap for Markdown major mode.
(defvar markdown-mode-map (byte-code "\302 \303\304#\210\303\305\306#\210\303\307\310#\210\303\311\312#\210\303\313\314#\210\303\315\316#\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\336#\210\303\337\340#\210\303\341\340#\210\303\342\340#\210\303\343\344#\210\303\345\346#\210\303\347\350#\210\303\351\352#\210\303\353\354#\210\303\355	#\210\303\356\357#\210\303\360\361#\210\303\362\312#\210\303\363\314#\210\303\364\365#\210\303\366\367#\210\303\370\371#\210\303\372\373#\210\303\374\375#\210\303\376\377#\210\303\201@ \201A #\210\303\201B \201A #\210\303\201C \201D #\210\303\201E \201F #\210\303\201G \201H #\210\303\201I \201J #\210\303\201K \201L #\210\303\201M \201N #\210\303\201O \201P #\210\303\201Q \201R #\210\303\201S \201T #\210\303\201U \201V #\210\303\201W \201X #\210\303\201Y \201Z #\210\303\201[ \201\\ #\210\303\201] \201^ #\210\303\201_ \201` #\210\303\201a \201b #\210\303\201c \201d #\210\303\201e \201f #\210\303\201g \357#\210\303\201h \361#\210\303\201i \312#\210\303\201j \314#\210\303\201k \306#\210\303\201l \306#\210\303\201m \306#\210\303\201n \201o #\210\303\201p \201q #\210\303\201r \201s #\210\303\201t \201u #\210\303\201v \201w #\210\303\201x \201y #\210\303\201z \201{ #\210\303\201| \201} #\210\303\201~ \201 #\210\303\201\200 \201\201 #\210\303\201\202 \201\203 #\210\303\201\204 \201\205 #\210\303\201\206 \201\207 #\210\303\201\210 \201\203 #\210\303\201\211 \201\201 #\210\303\201\212 \201\213 #\210\303\201\214 \201A #\210\303\201\215 \201\216 #\210\303\201\217 \201\220 #\210\207" [markdown-mode-style-map markdown-mode-command-map make-keymap define-key "" "\f" markdown-insert-link "" markdown-kill-thing-at-point [3 67108909] markdown-promote [3 67108925] markdown-demote "" markdown-complete "" markdown-follow-thing-at-point "" markdown-do "'" markdown-edit-code-block "" markdown-enter-key "" markdown-outdent-or-delete ">" markdown-indent-region "<" markdown-outdent-region "	" markdown-cycle [S-iso-lefttab] markdown-shifttab [S-tab] [backtab] "" markdown-outline-next "" markdown-outline-previous "" markdown-outline-next-same-level "" markdown-outline-previous-same-level "" markdown-outline-up "" [3 up] markdown-move-up [3 down] markdown-move-down [3 left] [3 right] [3 S-up] markdown-table-delete-row [3 S-down] markdown-table-insert-row [3 S-left] markdown-table-delete-column [3 S-right] markdown-table-insert-column [3 134217736] markdown-mark-subtree "ns" markdown-narrow-to-subtree [134217741] markdown-insert-list-item "\n" [remap backward-paragraph] markdown-backward-paragraph [remap forward-paragraph] markdown-forward-paragraph [remap mark-paragraph] markdown-mark-paragraph [201326715] markdown-backward-block [201326717] markdown-forward-block [3 134217832] markdown-mark-block "nb" markdown-narrow-to-block [remap backward-page] markdown-backward-page [remap forward-page] markdown-forward-page [remap mark-page] markdown-mark-page [remap narrow-to-page] markdown-narrow-to-page [134217838] markdown-next-link [134217840] markdown-previous-link "" markdown-toggle-math "" markdown-toggle-fontify-code-blocks-natively "	" markdown-toggle-inline-images "\f" markdown-toggle-url-hiding "" markdown-toggle-markup-hiding "u" "d" "l" "r" "L" "l" "r" "u" markdown-insert-uri "f" markdown-insert-footnote "w" markdown-insert-wiki-link "1" markdown-insert-header-atx-1 "2" markdown-insert-header-atx-2 "3" markdown-insert-header-atx-3 "4" markdown-insert-header-atx-4 "5" markdown-insert-header-atx-5 "6" markdown-insert-header-atx-6 "!" markdown-insert-header-setext-1 "@" markdown-insert-header-setext-2 "h" markdown-insert-header-dwim "H" markdown-insert-header-setext-dwim "s" "t" "	" markdown-insert-image "m" "" markdown-toggle-gfm-checkbox "-" markdown-insert-hr] 5) (#$ . 180109))
#@40 Keymap for following links with mouse.
(defvar markdown-mode-mouse-map (byte-code "\205 \301 \302\303\304#\210\302\305\306#\210\211\262\207" [markdown-mouse-follow-link make-sparse-keymap define-key [follow-link] mouse-face [mouse-2] markdown-follow-thing-at-point] 5) (#$ . 184160))
#@54 Keymap for `gfm-mode'.
See also `markdown-mode-map'.
(defvar gfm-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\207" [markdown-mode-map make-sparse-keymap set-keymap-parent define-key "d" markdown-insert-strike-through "`" markdown-electric-backquote] 5) (#$ . 184455))
#@25 Menu for Markdown mode.
(defvar markdown-mode-menu nil (#$ . 184761))
(easy-menu-do-define 'markdown-mode-menu markdown-mode-map "Menu for Markdown mode." '("Markdown" "---" ("Movement" ["Jump" markdown-do] ["Follow Link" markdown-follow-thing-at-point] ["Next Link" markdown-next-link] ["Previous Link" markdown-previous-link] "---" ["Next Heading or List Item" markdown-outline-next] ["Previous Heading or List Item" markdown-outline-previous] ["Next at Same Level" markdown-outline-next-same-level] ["Previous at Same Level" markdown-outline-previous-same-level] ["Up to Parent" markdown-outline-up] "---" ["Forward Paragraph" markdown-forward-paragraph] ["Backward Paragraph" markdown-backward-paragraph] ["Forward Block" markdown-forward-block] ["Backward Block" markdown-backward-block]) ("Show & Hide" ["Cycle Heading Visibility" markdown-cycle :enable (markdown-on-heading-p)] ["Cycle Heading Visibility (Global)" markdown-shifttab] "---" ["Narrow to Region" narrow-to-region] ["Narrow to Block" markdown-narrow-to-block] ["Narrow to Section" narrow-to-defun] ["Narrow to Subtree" markdown-narrow-to-subtree] ["Widen" widen (buffer-narrowed-p)] "---" ["Toggle Markup Hiding" markdown-toggle-markup-hiding :keys "C-c C-x C-m" :style radio :selected markdown-hide-markup]) "---" ("Headings & Structure" ["Automatic Heading" markdown-insert-header-dwim :keys "C-c C-s h"] ["Automatic Heading (Setext)" markdown-insert-header-setext-dwim :keys "C-c C-s H"] ("Specific Heading (atx)" ["First Level atx" markdown-insert-header-atx-1 :keys "C-c C-s 1"] ["Second Level atx" markdown-insert-header-atx-2 :keys "C-c C-s 2"] ["Third Level atx" markdown-insert-header-atx-3 :keys "C-c C-s 3"] ["Fourth Level atx" markdown-insert-header-atx-4 :keys "C-c C-s 4"] ["Fifth Level atx" markdown-insert-header-atx-5 :keys "C-c C-s 5"] ["Sixth Level atx" markdown-insert-header-atx-6 :keys "C-c C-s 6"]) ("Specific Heading (Setext)" ["First Level Setext" markdown-insert-header-setext-1 :keys "C-c C-s !"] ["Second Level Setext" markdown-insert-header-setext-2 :keys "C-c C-s @"]) ["Horizontal Rule" markdown-insert-hr :keys "C-c C-s -"] "---" ["Move Subtree Up" markdown-move-up :keys "C-c <up>"] ["Move Subtree Down" markdown-move-down :keys "C-c <down>"] ["Promote Subtree" markdown-promote :keys "C-c <left>"] ["Demote Subtree" markdown-demote :keys "C-c <right>"]) ("Region & Mark" ["Indent Region" markdown-indent-region] ["Outdent Region" markdown-outdent-region] "--" ["Mark Paragraph" mark-paragraph] ["Mark Block" markdown-mark-block] ["Mark Section" mark-defun] ["Mark Subtree" markdown-mark-subtree]) ("Tables" ["Move Row Up" markdown-move-up :enable (markdown-table-at-point-p) :keys "C-c <up>"] ["Move Row Down" markdown-move-down :enable (markdown-table-at-point-p) :keys "C-c <down>"] ["Move Column Left" markdown-demote :enable (markdown-table-at-point-p) :keys "C-c <left>"] ["Move Column Right" markdown-promote :enable (markdown-table-at-point-p) :keys "C-c <right>"] ["Delete Row" markdown-table-delete-row :enable (markdown-table-at-point-p)] ["Insert Row" markdown-table-insert-row :enable (markdown-table-at-point-p)] ["Delete Column" markdown-table-delete-column :enable (markdown-table-at-point-p)] ["Insert Column" markdown-table-insert-column :enable (markdown-table-at-point-p)] ["Insert Table" markdown-insert-table] "--" ["Convert Region to Table" markdown-table-convert-region] ["Sort Table Lines" markdown-table-sort-lines :enable (markdown-table-at-point-p)] ["Transpose Table" markdown-table-transpose :enable (markdown-table-at-point-p)]) ("Lists" ["Insert List Item" markdown-insert-list-item] ["Move Subtree Up" markdown-move-up :keys "C-c <up>"] ["Move Subtree Down" markdown-move-down :keys "C-c <down>"] ["Indent Subtree" markdown-demote :keys "C-c <right>"] ["Outdent Subtree" markdown-promote :keys "C-c <left>"] ["Renumber List" markdown-cleanup-list-numbers] ["Insert Task List Item" markdown-insert-gfm-checkbox :keys "C-c C-x ["] ["Toggle Task List Item" markdown-toggle-gfm-checkbox :enable (markdown-gfm-task-list-item-at-point) :keys "C-c C-d"]) ("Links & Images" ["Insert Link" markdown-insert-link] ["Insert Image" markdown-insert-image] ["Insert Footnote" markdown-insert-footnote :keys "C-c C-s f"] ["Insert Wiki Link" markdown-insert-wiki-link :keys "C-c C-s w"] "---" ["Check References" markdown-check-refs] ["Find Unused References" markdown-unused-refs] ["Toggle URL Hiding" markdown-toggle-url-hiding :style radio :selected markdown-hide-urls] ["Toggle Inline Images" markdown-toggle-inline-images :keys "C-c C-x C-i" :style radio :selected markdown-inline-image-overlays] ["Toggle Wiki Links" markdown-toggle-wiki-links :style radio :selected markdown-enable-wiki-links]) ("Styles" ["Bold" markdown-insert-bold] ["Italic" markdown-insert-italic] ["Code" markdown-insert-code] ["Strikethrough" markdown-insert-strike-through] ["Keyboard" markdown-insert-kbd] "---" ["Blockquote" markdown-insert-blockquote] ["Preformatted" markdown-insert-pre] ["GFM Code Block" markdown-insert-gfm-code-block] ["Edit Code Block" markdown-edit-code-block :enable (markdown-code-block-at-point-p)] ["Foldable Block" markdown-insert-foldable-block] "---" ["Blockquote Region" markdown-blockquote-region] ["Preformatted Region" markdown-pre-region] "---" ["Fontify Code Blocks Natively" markdown-toggle-fontify-code-blocks-natively :style radio :selected markdown-fontify-code-blocks-natively] ["LaTeX Math Support" markdown-toggle-math :style radio :selected markdown-enable-math]) "---" ("Preview & Export" ["Compile" markdown-other-window] ["Preview" markdown-preview] ["Export" markdown-export] ["Export & View" markdown-export-and-preview] ["Open" markdown-open] ["Live Export" markdown-live-preview-mode :style radio :selected markdown-live-preview-mode] ["Kill ring save" markdown-kill-ring-save]) ("Markup Completion and Cycling" ["Complete Markup" markdown-complete] ["Promote Element" markdown-promote :keys "C-c C--"] ["Demote Element" markdown-demote :keys "C-c C-="]) "---" ["Kill Element" markdown-kill-thing-at-point] "---" ("Documentation" ["Version" markdown-show-version] ["Homepage" markdown-mode-info] ["Describe Mode" (describe-function 'markdown-mode)] ["Guide" (browse-url "https://leanpub.com/markdown-mode")])))
#@142 Create and return a nested imenu index alist for the current buffer.
See `imenu-create-index-function' and `imenu--index-alist' for details.
(defalias 'markdown-imenu-create-nested-index #[0 "\302\303\304\211\212eb\210\305d\306#\203\207 \307 \204 \310\224\203\" \311\310\224\312\"\204 \313\314!\203= \315\262\316\313\315!\317\315\224\320\315\257B\262\202 \313\310!\203^ \314^\262\316\313\315!\317\315\224\320\314SZ\257B\262\202 \321\313\322!!\211\262\203 G^\262\316\313\323!\317\322\224\320GSZ\257B\262\202 \324\304\325\326\327!\304\211\211:\203<@\262\330\320\"\262\330\316\"\330\317\"BCU\203\273 \241\210\262\2022W\203	ZS\324\211W\203\336 \304	BC\262\210\211T\262\202\310 \266\203\367 @\211ABB\241\266\202\374 \f\241\210\211\262\262	\210\2022\331A!S\324\211W\203$\304\331@A!\262\210\211T\262\202\266\211\241\210\262	\210\262	\210A\262\304\262\202\221 \266\332!\262\333 \211G\324U\204P	\204UA\202\\A\334BC\244\262)\207" [markdown-regex-header markdown-add-footnotes-to-imenu (nil) 9999 nil re-search-forward t markdown-code-block-at-point-p 3 get-text-property markdown-yaml-metadata-end match-string-no-properties 2 1 :heading :point :level markdown-trim-whitespace 4 5 0 "-" "." reverse plist-get last copy-tree markdown-get-defined-footnotes "Footnotes"] 19 (#$ . 191033)])
#@140 Create and return a flat imenu index alist for the current buffer.
See `imenu-create-index-function' and `imenu--index-alist' for details.
(defalias 'markdown-imenu-create-flat-index #[0 "\302\303\211\211\212eb\210\304d\305#\203P \306\307 !\204 \310\311!\204 \312\313!\211\262\203- \313\224\262\202: \312\314!\211\262\203: \315\224\262G\316V\204D \262\317BC\"\262\202 	\203Y \320 \244\210)\207" [markdown-regex-header markdown-add-footnotes-to-imenu "-" nil re-search-forward t markdown-code-block-at-point-p point-at-bol markdown-text-property-at-point markdown-yaml-metadata-begin match-string-no-properties 1 5 4 0 append markdown-get-defined-footnotes] 8 (#$ . 192418)])
#@64 Jump to the definition of the reference at point or create it.
(defalias 'markdown-reference-goto-definition #[0 "\301!\2059 \302\303!\302\304!\211\305\230\203 \202 \211\227\306 \307\310\"\216\311!)\262A@\211\2030 \211b\2027 \312\224b\210\313!\266\204\207" [markdown-regex-link-reference thing-at-point-looking-at match-string-no-properties 3 6 "" match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-reference-definition 0 markdown-insert-reference-definition] 7 (#$ . 193116) nil])
#@311 Return a list of all links for REFERENCE.
REFERENCE should not include the surrounding square brackets.
Elements of the list have the form (text start line), where
text is the link text, start is the location at the beginning of
the link, and line is the line number on which the link appears.

(fn REFERENCE)
(defalias 'markdown-reference-find-links #[257 "\300!\301\302\211#\303\212eb\210\304\303\305#\203: \306\307!\206 \306\310!\311\224\312 E\211\235\2030 \2023 \211B\262\266\204\202 )\207" [regexp-quote format "!?\\(?:\\[\\(%s\\)\\][ ]?\\[\\]\\|\\[\\([^]]+?\\)\\][ ]?\\[%s\\]\\)" nil re-search-forward t match-string-no-properties 1 2 0 markdown-line-number-at-pos] 10 (#$ . 193653)])
#@10 

(fn F)
(defalias 'markdown-for-all-refs '(macro . #[257 "\300\301\302\303\304\305\306\307\310BEEE\311BBB\207" [let ((result)) save-excursion (goto-char (point-min)) while (re-search-forward markdown-regex-link-reference nil t) let* ((text (match-string-no-properties 3)) (reference (match-string-no-properties 6)) (target (downcase (if (string= reference "") text reference)))) (text target result) ((reverse result))] 11 (#$ . 194362)]))
#@24 

(fn _ TARGET RESULT)
(defalias 'markdown-collect-always '(macro . #[771 "\300\301BBB\207" [cl-pushnew (:test #'equal)] 7 (#$ . 194811)]))
#@27 

(fn TEXT TARGET RESULT)
(defalias 'markdown-collect-undefined '(macro . #[771 "\300\301\302\303\304EDC\305\306\307\310	\311\310\312BBDE\313BBB\314\303\315\316\311\310\317BBDEEFEE\207" [unless (markdown-reference-definition target) let entry assoc if (not entry) cl-pushnew cons list ((markdown-line-number-at-pos)) (:test #'equal) setcdr append (cdr entry) ((markdown-line-number-at-pos))] 18 (#$ . 194959)]))
#@43 Return a list of all Markdown references.
(defalias 'markdown-get-all-refs #[0 "\301\212eb\210\302\301\303#\2033 \304\305!\304\306!\211\307\230\203 \202 \211\227\211\235\203+ \266\204\202 \211B\266\204\202 )\310!\207" [markdown-regex-link-reference nil re-search-forward t match-string-no-properties 3 6 "" reverse] 6 (#$ . 195388)])
#@395 Return a list of undefined Markdown references.
Result is an alist of pairs (reference . occurrences), where
occurrences is itself another alist of pairs (label . line-number).
For example, an alist corresponding to [Nice editor][Emacs] at line 12,
[GNU Emacs][Emacs] at line 45 and [manual][elisp] at line 127 is
(("emacs" ("Nice editor" . 12) ("GNU Emacs" . 45)) ("elisp" ("manual" . 127))).
(defalias 'markdown-get-undefined-refs #[0 "\301\212eb\210\302\301\303#\203] \304\305!\304\306!\211\307\230\203 \202 \211\227\310!\204X \311\"\211\204J \312 BCB\211\235\203? \202C \211B\262\266\205\202 \211\313A\312 BC\"\241\266\266\202 )\314!\207" [markdown-regex-link-reference nil re-search-forward t match-string-no-properties 3 6 "" markdown-reference-definition assoc markdown-line-number-at-pos append reverse] 10 (#$ . 195739)])
(defalias 'markdown-get-unused-refs #[0 "\300\301\302 \303 \304\305$\306\307\310$\207" [cl-sort cl-set-difference markdown-get-defined-references markdown-get-all-refs :test #[514 "@\232\207" [] 4 "\n\n(fn E1 E2)"] < :key cdr] 6])
#@294 Define a function to name and return a buffer.

By convention, NAME must be a name of a string constant with
%buffer% placeholder used to name the buffer, and will also be
used as a name of the function defined.

DOCSTRING will be used as the first part of the docstring.

(fn NAME DOCSTRING)
(defalias 'defun-markdown-buffer '(macro . #[514 "\300\301\302P\303\304\305\306\307\310\311\fFDDC\312BB\257\207" [defun (&optional buffer-name) "\n\nBUFFER-NAME is the name of the main buffer being visited." (or buffer-name (setq buffer-name (buffer-name))) let refbuf get-buffer-create replace-regexp-in-string "%buffer%" buffer-name ((with-current-buffer refbuf (when view-mode (View-exit-and-edit)) (use-local-map button-buffer-map) (erase-buffer)) refbuf)] 14 (#$ . 196833)]))
#@149 Pattern for name of buffer for listing undefined references.
The string %buffer% will be replaced by the corresponding
`markdown-mode' buffer name.
(defconst markdown-reference-check-buffer "*Undefined references for %buffer%*" (#$ . 197618))
#@135 Name and return buffer for reference checking.

BUFFER-NAME is the name of the main buffer being visited.

(fn &optional BUFFER-NAME)
(defalias 'markdown-reference-check-buffer #[256 "\211\204 \303 \262\304\305\306#!r\211q\210	\203 \307 \210\310\n!\210\311 \210)\207" [markdown-reference-check-buffer view-mode button-buffer-map buffer-name get-buffer-create replace-regexp-in-string "%buffer%" View-exit-and-edit use-local-map erase-buffer] 6 (#$ . 197868)])
#@146 Pattern for name of buffer for listing unused references.
The string %buffer% will be replaced by the corresponding
`markdown-mode' buffer name.
(defconst markdown-unused-references-buffer "*Unused references for %buffer%*" (#$ . 198340))
#@142 Name and return buffer for unused reference checking.

BUFFER-NAME is the name of the main buffer being visited.

(fn &optional BUFFER-NAME)
(defalias 'markdown-unused-references-buffer #[256 "\211\204 \303 \262\304\305\306#!r\211q\210	\203 \307 \210\310\n!\210\311 \210)\207" [markdown-unused-references-buffer view-mode button-buffer-map buffer-name get-buffer-create replace-regexp-in-string "%buffer%" View-exit-and-edit use-local-map erase-buffer] 6 (#$ . 198586)])
#@123 Pattern for name of buffer for listing references.
The string %buffer% will be replaced by the corresponding buffer name.
(defconst markdown-reference-links-buffer "*Reference links for %buffer%*" (#$ . 199069))
#@140 Name, setup, and return a buffer for listing links.

BUFFER-NAME is the name of the main buffer being visited.

(fn &optional BUFFER-NAME)
(defalias 'markdown-reference-links-buffer #[256 "\211\204 \303 \262\304\305\306#!r\211q\210	\203 \307 \210\310\n!\210\311 \210)\207" [markdown-reference-links-buffer view-mode button-buffer-map buffer-name get-buffer-create replace-regexp-in-string "%buffer%" View-exit-and-edit use-local-map erase-buffer] 6 (#$ . 199288)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\300\312\302\313\304\305\306\314\310\315&	\210\300\316\302\317\304\305\306\314\310\320&	\210\300\321\302\322\304\305\306\307\310\323&	\207" [define-button-type markdown-undefined-reference-button help-echo "mouse-1, RET: create definition for undefined reference" follow-link t face bold action #[257 "\300\301\"\300\302\"\303!\304!\210eb\210y\210\305!\210\306\307!\207" [button-get target-buffer target-line button-label switch-to-buffer-other-window markdown-insert-reference-definition markdown-check-refs t] 6 "\n\n(fn B)"] markdown-goto-line-button "mouse-1, RET: go to line" italic #[257 "\301\302\303\"!\210\302\304\"\305\306!)\207" [current-prefix-arg switch-to-buffer-other-window button-get target-buffer target-line call-interactively goto-line] 5 "\n\n(fn B)"] markdown-kill-line-button "mouse-1, RET: kill line" #[257 "\301\302\303\"!\210\302\304\"\305\306!\210)\307\310!\210\311\312!\207" [current-prefix-arg switch-to-buffer-other-window button-get target-buffer target-line call-interactively goto-line kill-line 1 markdown-unused-refs t] 5 "\n\n(fn B)"] markdown-location-button "mouse-1, RET: jump to location of link" #[257 "\300\301\"\300\302\"\303 \210\304!\210\211b\207" [button-get target-buffer target-char kill-buffer-and-window switch-to-buffer] 5 "\n\n(fn B)"]] 10)
#@193 Insert a button for creating REFERENCE in buffer OLDBUF.
REFERENCE should be a list of the form (reference . occurrences),
as returned by `markdown-get-undefined-refs'.

(fn REFERENCE OLDBUF)
(defalias 'markdown-insert-undefined-reference-button #[514 "@\300\301\302\303\304	A@A&\210\305c\210A\211\2039 \211@\211A\300\306!\301\307\303	\304&\210\310c\266A\266\202\202 \210\311\312!\210\313c\210\314 \207" [insert-button :type markdown-undefined-reference-button target-buffer target-line " (" number-to-string markdown-goto-line-button " " delete-char -1 ")" newline] 14 (#$ . 201131)])
#@130 Insert a button for creating REFERENCE in buffer OLDBUF.
REFERENCE must be a pair of (ref . line-number).

(fn REFERENCE OLDBUF)
(defalias 'markdown-insert-unused-reference-button #[514 "@A\300\301\302\303\304\305	\306	&	\210\307\310\"c\210\300\311\301\312\303\304\305	\306	&	\210\313c\210\314 \207" [insert-button :type markdown-goto-line-button face bold target-buffer target-line format " (%d) [" "X" markdown-kill-line-button "]" newline] 14 (#$ . 201739)])
#@177 Insert a button for jumping to LINK in buffer OLDBUF.
LINK should be a list of the form (text char line) containing
the link text, location, and line number.

(fn LINK OLDBUF)
(defalias 'markdown-insert-link-button #[514 "@A@AA@\300\301\302\303\304&\210\305\306\"c\207" [insert-button :type markdown-location-button target-buffer target-char format " (line %d)\n"] 13 (#$ . 202216)])
#@79 Jump to the location of the first use of REFERENCE.

(fn &optional REFERENCE)
(defalias 'markdown-reference-goto-link #[256 "\211\204 \301!\203 \302\303!\262\202 \304\305!\210\306!\211G\307U\203& \211@A@b\207\211G\307V\203[ p\310 r\211q\210\311\312\261\210\313!\211\203O \211@\314\"\210A\266\202\202= \210)\315!\210eb\210\303y\207\316\317\"\207" [markdown-regex-reference-definition thing-at-point-looking-at match-string-no-properties 2 user-error "No reference definition at point" markdown-reference-find-links 1 markdown-reference-links-buffer "Links using reference " ":\n\n" reverse markdown-insert-link-button view-buffer-other-window error "No links for reference %s"] 9 (#$ . 202616) nil])
#@514 Define a function NAME acting on result of CHECKER-FUNCTION.

DOCSTRING is used as a docstring for the defined function.

BUFFER-FUNCTION should name and return an auxiliary buffer to put
results in.

NONE-MESSAGE is used when CHECKER-FUNCTION returns no results.

BUFFER-HEADER is put into the auxiliary buffer first, followed by
calling INSERT-REFERENCE for each element in the list returned by
CHECKER-FUNCTION.

(fn NAME DOCSTRING CHECKER-FUNCTION BUFFER-FUNCTION NONE-MESSAGE BUFFER-HEADER INSERT-REFERENCE)
(defalias 'defun-markdown-ref-checker '(macro . #[1799 "\300\301\302P\303\304\305\306\307CD\310CDE\311\312\313\314\315\316DE\317BB\320\310\321D\322\323\324BE\325BBBBFE\257\207" [defun (&optional silent) "\n\nIf SILENT is non-nil, do not message anything when no\nsuch references found." (interactive "P") (unless (derived-mode-p 'markdown-mode) (user-error "Not available in current mode")) let (oldbuf (current-buffer)) refs refbuf if (null refs) progn when (not silent) message ((kill-buffer refbuf)) with-current-buffer insert dolist (ref refs) (ref oldbuf) ((view-buffer-other-window refbuf) (goto-char (point-min)) (forward-line 2))] 25 (#$ . 203336)]))
#@252 Show all undefined Markdown references in current `markdown-mode' buffer.

Links which have empty reference definitions are considered to be
defined.

If SILENT is non-nil, do not message anything when no
such references found.

(fn &optional SILENT)
(defalias 'markdown-check-refs #[256 "\300\301!\204\n \302\303!\210p\304 \305 \204 \204 \306\307!\210\310!\207r\211q\210\311c\210\211\203: \211@\312\"\210A\266\202\202' \210\313!\210eb\210\314y)\207" [derived-mode-p markdown-mode user-error "Not available in current mode" markdown-get-undefined-refs markdown-reference-check-buffer message "No undefined references found" kill-buffer "The following references are undefined:\n\n" markdown-insert-undefined-reference-button view-buffer-other-window 2] 9 (#$ . 204530) "P"])
#@173 Show all unused Markdown references in current `markdown-mode' buffer.

If SILENT is non-nil, do not message anything when no
such references found.

(fn &optional SILENT)
(defalias 'markdown-unused-refs #[256 "\300\301!\204\n \302\303!\210p\304 \305 \204 \204 \306\307!\210\310!\207r\211q\210\311c\210\211\203: \211@\312\"\210A\266\202\202' \210\313!\210eb\210\314y)\207" [derived-mode-p markdown-mode user-error "Not available in current mode" markdown-get-unused-refs markdown-unused-references-buffer message "No unused references found" kill-buffer "The following references are unused:\n\n" markdown-insert-unused-reference-button view-buffer-other-window 2] 9 (#$ . 205323) "P"])
#@502 Insert a new list item.
If the point is inside unordered list, insert a bullet mark.  If
the point is inside ordered list, insert the next number followed
by a period.  Use the previous list item to determine the amount
of whitespace to place before and after list markers.

With a \[universal-argument] prefix (i.e., when ARG is (4)),
decrease the indentation by one level.

With two \[universal-argument] prefixes (i.e., when ARG is (16)),
increase the indentation by one level.

(fn &optional ARG)
(defalias 'markdown-insert-list-item #[256 "\305\211\211\211\211\211\306 \307\310\"\216\212\311 \211\262\204% o\204% \312 \203% \313y\210\202 )\203T \212\314\305x\210\315\316!)\262)\203I \317 \210\320c\210\313y\210\202Q \312 \204Q \321 \210`\262\204\203 \212\204r m\204r \312 \203r \305y\210\311 \262\202Z )\203\203 `\262\312 \204\203 \321 \210\204\226 \312 \204\220 \320c\210\nc\210\202\237\3228\262\3238\262\3248\203\265 \325\326\327\3248#P\262\323U\203\336 Z\330]\262\212@b\210\331 \205\320 \311 )\211\203\332 \3238\262\210\202\360 \332U\203\355 \\\262\202\360 \262\333\334\"\262b\210\335\305\315\336#)\266\203\203\212\332U\203\337Pc\210\202\237\340\305!\210\212\316\341P!\204,\313y\330Y\204)\342\343!\342\322!\203D\f\203D\344\345!T!\202E\346GGZ\342\322!\203z\347\305\315\336#)\266\203\204z\211\330W\203z\211\343\342\322!GZV\203z\342\322!\330O\202\206\350Qc\266\202\237\351\305\315\336#)\266\203\203\237\261\210\352\353 \354 \")\207" [markdown-regex-list inhibit-changing-match-data markdown-unordered-list-item-prefix markdown-list-indent-width markdown-ordered-list-enumeration nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-cur-list-item-bounds markdown-cur-line-blank-p -1 " 	" t looking-at beginning-of-line "\n" newline 2 4 5 replace-regexp-in-string "[Xx]" " " 0 markdown-up-list 16 make-string 32 "[0-9]" string-match "1. " set-match-data "\\([0-9]+\\)\\(\\.[ 	]*\\)" match-string 1 int-to-string string-to-number "1" "	" ". " "[\\*\\+-]\\|#\\." markdown-syntax-propertize-list-items point-at-bol point-at-eol] 19 (#$ . 206028) "p"])
#@114 Move the current list item up in the list when possible.
In nested lists, move child items with the parent item.
(defalias 'markdown-move-list-item-up #[0 "\300\211\211\301 \211\262\205A `\262@b\210\302\3038!\203? \301 \262\3041; \305@A@@A@\306%\210@@Z\\b0\207\210\211b\207\211b\207" [nil markdown-cur-list-item-bounds markdown-prev-list-item 3 (error) transpose-regions t] 9 (#$ . 208234) nil])
#@116 Move the current list item down in the list when possible.
In nested lists, move child items with the parent item.
(defalias 'markdown-move-list-item-down #[0 "\300\211\211\301 \211\262\205> `\262\302\3038!\203< \301 \262\30418 \305@A@@A@\300%\210\211A@A@Z\\b0\207\210\211b\207\211b\207" [nil markdown-cur-list-item-bounds markdown-next-list-item 3 (error) transpose-regions] 9 (#$ . 208650) nil])
#@185 Indent (or demote) the current list item.
Optionally, BOUNDS of the current list item may be provided if available.
In nested lists, demote child items as well.

(fn &optional BOUNDS)
(defalias 'markdown-demote-list-item #[256 "\211\204\f \301 \211\262\205K \212\302 @\303\223\302 A@\303\223\304 \210\302 `\303\223\305 \210\302 `\303\223b\210`W\203D \306 \204> \307\310\"c\210\303y\210\202- \311\"\266\204)\207" [markdown-list-indent-width markdown-cur-list-item-bounds make-marker nil markdown-beginning-of-list markdown-end-of-list markdown-cur-line-blank-p make-string 32 markdown-syntax-propertize-list-items] 8 (#$ . 209065) nil])
#@188 Unindent (or promote) the current list item.
Optionally, BOUNDS of the current list item may be provided if available.
In nested lists, demote child items as well.

(fn &optional BOUNDS)
(defalias 'markdown-promote-list-item #[256 "\211\204\f \301 \211\262\205q \212\302 \303\304\"\216\305 @\306\223\305 A@\306\223\307 \210\305 `\306\223\310 \210\305 `\306\223\306\211b\210\311\312\313\"!\205k \314\225\314\224Z\262\312\313\"\262`W\203g \315\316#\203g \317\320\306\211#\210\306y\210\202L \321\"\266\206)\262)\207" [markdown-list-indent-width markdown-cur-list-item-bounds match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] make-marker nil markdown-beginning-of-list markdown-end-of-list looking-at format "^[ ]\\{1,%d\\}" 0 re-search-forward t replace-match "" markdown-syntax-propertize-list-items] 12 (#$ . 209716) nil])
#@239 Update the numbering for level PFX (as a string of spaces) and PREV-ITEM.
PREV-ITEM is width of previous-indentation and list number

Assume that the previously found match was for a numbered item in
a list.

(fn &optional PFX PREV-ITEM)
(defalias 'markdown-cleanup-list-numbers-level #[512 "\301\302\303\211\301\203\265 m\204\265 \303\262\304\305!\203v \306\307!\262\306\310!\262GGU\2043 GGU\203U \212\311\204@ \312P\202L T\262\313!\314Q!\210)\301\262\202\245 GGW\203m \315\"\262\301\262\202\245 \301\262\301\262\202\245 \304\316!\203\242 \306\310!\262\230\203\222 \211\203\245 \302\262\202\245 \231\203\245 \301\262\301\262\202\245 \303\262\203 \317 \210\301y\302U\262\202 \207" [markdown-ordered-list-enumeration nil 0 t looking-at "^\\(\\([ -]*\\)[0-9]+\\)\\. " match-string-no-properties 2 1 replace-match "1. " number-to-string ". " markdown-cleanup-list-numbers-level "^\\([ -]*\\)[^ 	\n].*$" beginning-of-line] 12 (#$ . 210593)])
#@40 Update the numbering of ordered lists.
(defalias 'markdown-cleanup-list-numbers #[0 "\212eb\210\300\301!)\207" [markdown-cleanup-list-numbers-level ""] 2 (#$ . 211586) nil])
#@409 `beginning-of-defun-function' for Markdown.
This is used to find the beginning of the defun and should behave
like ‘beginning-of-defun’, returning non-nil if it found the
beginning of a defun.  It moves the point backward, right before a
heading which defines a defun.  When ARG is non-nil, repeat that
many times.  When ARG is negative, move forward to the ARG-th
following section.

(fn &optional ARG)
(defalias 'markdown-beginning-of-defun #[256 "\211\204 \302\262\211\303W\203 \304\210\305!\203& `\303\224U\204& \306 \204& \303\225b\210\304o\204W \303V\203W \304\262\211\204P o\204P \307	\304\310#\203P \311\303\224!\210\303\224\262\2024 S\262\202' m\204\207 \303W\203\207 \304\262\211\204\200 m\204\200 \312	\304\310#\203\200 \311\303\224!\210\303\224\262\202d T\262\202W \211\205\217 \313 \210\314\207" [markdown-regex-header-setext markdown-regex-header 1 0 nil thing-at-point-looking-at markdown-code-block-at-point-p re-search-backward move markdown-code-block-at-pos re-search-forward beginning-of-line t] 6 (#$ . 211767)])
#@301 `end-of-defun-function’ for Markdown.
This is used to find the end of the defun at point.
It is called with no argument, right after calling ‘beginning-of-defun-raw’,
so it can assume that point is at the beginning of the defun body.
It should move point to the first position after the defun.
(defalias 'markdown-end-of-defun #[0 "m\204 \301u\210\302\211\204& m\204& \303\302\304#\203& \305\306\224!\204 \306\224\262\202 \211\2050 \211b\210\307\310!\207" [markdown-regex-header 1 nil re-search-forward move markdown-code-block-at-pos 0 skip-syntax-backward "-"] 5 (#$ . 212827)])
#@218 Move backward to previous beginning of a plain text block.
This function simply looks for blank lines without considering
the surrounding context in light of Markdown syntax.  For that, see
`markdown-backward-block'.
(defalias 'markdown-beginning-of-text-block #[0 "`\301\302\303#\203 \304\225b\210\202 eb\210\211`U\205/ o?\205/ \305y\210\301\302\303#\203- \304\225b\207eb\207" [markdown-regex-block-separator re-search-backward nil t 0 -1] 5 (#$ . 213426) nil])
#@212 Move forward to next beginning of a plain text block.
This function simply looks for blank lines without considering
the surrounding context in light of Markdown syntax.  For that, see
`markdown-forward-block'.
(defalias 'markdown-end-of-text-block #[0 "\301 \210\302\303w\210`eU\203 \303u\210\304\303\305#\203 \306\225b\210\202\" db\210\302\303x\210\303y\207" [markdown-regex-block-separator beginning-of-line " 	\n" nil re-search-forward t 0] 4 (#$ . 213900) nil])
#@169 Move the point to the start of the current paragraph.
With argument ARG, do it ARG times; a negative argument ARG = -N
means move forward N blocks.

(fn &optional ARG)
(defalias 'markdown-backward-paragraph #[256 "\211\204 \301\262\211\302W\203 \303[!\207\211\302\211W\205\274 \304\305\304x\210\306 \210\307\310 \311 \312#\203/ \313y\210m\204H \314!\203H \315\316!G\302U\203H \313y\210\202/ \304\211\314!\203p o\204i \314!\203i \315\316!G\302V\203i \313y\210\202P \304y\266\202\265 \317 \211\262\203\200 @b\266\202\265 o\204\254 \211\204\254 \320 \204\254 \314!\204\254 \307\310 \311 \321#\204\254 \307\310 \311 \322#\262\313y\210\202\200 o\204\263 \301y\210\266\211T\262\202 \207" [markdown-regex-blockquote 1 0 markdown-forward-paragraph nil " 	\n" beginning-of-line markdown-range-properties-exist point-at-bol point-at-eol (markdown-gfm-block-end markdown-tilde-fence-end) -1 looking-at match-string 3 markdown-cur-list-item-bounds markdown-cur-line-blank-p (markdown-gfm-block-end markdown-tilde-fence-end) (markdown-gfm-block-begin markdown-tilde-fence-begin)] 10 (#$ . 214377) "^p"])
#@161 Move forward to the next end of a paragraph.
With argument ARG, do it ARG times; a negative argument ARG = -N
means move backward N blocks.

(fn &optional ARG)
(defalias 'markdown-forward-paragraph #[256 "\211\204 \301\262\211\302W\203 \303[!\207\211\302\211W\205\263 \304\305 \203' \306\307!\210\310 \210\304\211\311!\203f m\204H \311!\203H \312\313!G\302U\203H \304y\210\202/ m\204a \311!\203a \312\313!G\302V\203\252 \304y\210\202H \266\202\254 \314 \203{ \315 \211\262\203{ @b\266\202\254 \304y\210m\204\252 \211\204\252 \305 \204\252 \311!\204\252 \316\317 \320 \321#\204\252 \316\317 \320 \322#\262\304y\210\202~ \266\211T\262\202 \207" [markdown-regex-blockquote 1 0 markdown-backward-paragraph nil markdown-cur-line-blank-p skip-syntax-forward "-" beginning-of-line looking-at match-string 3 markdown-cur-list-item-bounds markdown-next-list-item-bounds markdown-range-properties-exist point-at-bol point-at-eol (markdown-gfm-block-begin markdown-tilde-fence-begin) (markdown-gfm-block-end markdown-tilde-fence-end)] 10 (#$ . 215492) "^p"])
#@306 Move the point to the start of the current Markdown block.
Moves across complete code blocks, list items, and blockquotes,
but otherwise stops at blank lines, headers, and horizontal
rules.  With argument ARG, do it ARG times; a negative argument
ARG = -N means move forward N blocks.

(fn &optional ARG)
(defalias 'markdown-backward-block #[256 "\211\204 \302\262\211\303W\203 \304[!\207\211\303\211W\205\240 \305\306\307!\210\310 \210\311`!\203I \311\312\303!!\203I \313y\210\314 \203B o\204B \313y\210\2023 \305y\266\202\231 \315 \203V \303\224b\266\202\231 \316!\204\230 \316	!\203| \313y\210\316	!\203u o\204u \313y\210\202e \305y\266\202\231 \317 \203\210 \320 \266\202\231 \321 \204\220 \305y\210\322 \204\230 \323 \210\210\211T\262\202 \207" [markdown-regex-hr markdown-regex-blockquote 1 0 markdown-forward-block nil skip-syntax-backward "-" beginning-of-line markdown-code-block-at-pos point-at-bol -1 markdown-code-block-at-point-p markdown-heading-at-point looking-at markdown-cur-list-item-bounds markdown-beginning-of-list markdown-next-line-blank-p markdown-prev-line-blank-p markdown-backward-paragraph] 7 (#$ . 216564) "^p"])
#@298 Move forward to the next end of a Markdown block.
Moves across complete code blocks, list items, and blockquotes,
but otherwise stops at blank lines, headers, and horizontal
rules.  With argument ARG, do it ARG times; a negative argument
ARG = -N means move backward N blocks.

(fn &optional ARG)
(defalias 'markdown-forward-block #[256 "\211\204 \303\262\211\304W\203 \305[!\207\211\304\211W\203\244 \306\307 \203' \310\311!\210\202* \312 \210\313 \203E \306y\210\313 \203A m\204\234 \306y\210\2022 \210\202\235 \314!\203` \315\225\206W \316\225\206W \317\225b\210\306y\266\202\235 \314	!\203m \306y\266\202\235 \314\n!\203\212 \306y\210\314\n!\203\206 m\204\234 \306y\210\202v \210\202\235 \320 \203\231 \321 \210\306y\266\202\235 \322 \210\210\211T\262\202 \266\323\311!\210m?\205\261 \303u\207" [markdown-regex-header markdown-regex-hr markdown-regex-blockquote 1 0 markdown-backward-block nil markdown-cur-line-blank-p skip-syntax-forward "-" beginning-of-line markdown-code-block-at-point-p looking-at 4 2 3 markdown-cur-list-item-bounds markdown-end-of-list markdown-forward-paragraph skip-syntax-backward] 6 (#$ . 217726) "^p"])
#@129 Move backward to boundary of the current toplevel section.
With COUNT, repeat, or go forward if negative.

(fn &optional COUNT)
(defalias 'markdown-backward-page #[256 "\211\204 \301\262\211\302W\203 \303[!\207\304\305!\210\306\307\211\"\204  eb\210\310!\205I \311 \211\301V\2032 \312!\210\301V\205G \3131D \314S!0\202G \210eb\262\207" [markdown-regex-header 1 0 markdown-forward-page skip-syntax-backward "-" markdown-back-to-heading-over-code-block t looking-at markdown-outline-level markdown-up-heading (error) markdown-backward-same-level] 4 (#$ . 218882) "p"])
#@129 Move forward to boundary of the current toplevel section.
With COUNT, repeat, or go backward if negative.

(fn &optional COUNT)
(defalias 'markdown-forward-page #[256 "\211\204 \300\262\211\301W\203 \302[!\207\303\304\211\"\2032 \305 \211\300V\203% \306!\210\3071. \310!0\207\210db\207\311\300!\207" [1 0 markdown-backward-page markdown-back-to-heading-over-code-block t markdown-outline-level markdown-up-heading (error) markdown-forward-same-level markdown-next-visible-heading] 4 (#$ . 219465) "p"])
#@162 Jump to next inline, reference, or wiki link.
If successful, return point.  Otherwise, return nil.
See `markdown-wiki-link-p' and `markdown-previous-wiki-link'.
(defalias 'markdown-next-link #[0 "`\305 \204 \306 \203 \307\225Tb\210\310\311	\205 \312\nP\312\312\f\313\260\314\315#\2032 \316 \2032 `dW\204 `=\204K \305 \204B \306 \203K \317\224\206I \307\224b\207\211b\210\314\207" [markdown-regex-link-inline markdown-enable-wiki-links markdown-regex-wiki-link markdown-regex-link-reference markdown-regex-angle-uri markdown-link-p markdown-wiki-link-p 0 re-search-forward "\\(?:" "\\|" "\\)" nil t markdown-code-block-at-point-p 1] 10 (#$ . 219981) nil])
#@140 Jump to previous wiki link.
If successful, return point.  Otherwise, return nil.
See `markdown-wiki-link-p' and `markdown-next-wiki-link'.
(defalias 'markdown-previous-link #[0 "`\305\306	\205 \307\nP\307\307\f\310\260\311\312#\203# \313 \203# `eV\204 `=\204< \314 \2043 \315 \203< \316\224\206: \317\224b\207\211b\210\311\207" [markdown-regex-link-inline markdown-enable-wiki-links markdown-regex-wiki-link markdown-regex-link-reference markdown-regex-angle-uri re-search-backward "\\(?:" "\\|" "\\)" nil t markdown-code-block-at-point-p markdown-link-p markdown-wiki-link-p 1 0] 10 (#$ . 220651) nil])
#@542 Wrapper for `outline-mode' functions to skip false positives.
MOVE-FN is a function and ARG is its argument. For example,
headings inside preformatted code blocks may match
`outline-regexp' but should not be considered as headings.
When ADJUST is non-nil, adjust the point for interactive calls
to avoid leaving the point at invisible markup.  This adjustment
generally should only be done for interactive calls, since other
functions may expect the point to be at the beginning of the
regular expression.

(fn MOVE-FN &optional ARG ADJUST)
(defalias 'markdown-move-heading-common #[769 "\302`\203 !\210\202  \210`U\204/ \303 \203/ `\262\203) !\210\202  \210\202 \304 \305\306\"\216\203Y \307!\203Y 	\203P \310\224\206K \311\224b\210\202Y \310\224\206W \312\224b\210)\210`U?\205c `\207" [markdown-regex-header markdown-hide-markup -1 markdown-code-block-at-point-p match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] thing-at-point-looking-at 1 5 4] 9 (#$ . 221268)])
#@169 Move to the next visible heading line of any level.
With argument, repeats or can move backward if negative. ARG is
passed to `outline-next-visible-heading'.

(fn ARG)
(defalias 'markdown-next-visible-heading #[257 "\300\301\302#\207" [markdown-move-heading-common outline-next-visible-heading adjust] 5 (#$ . 222291) "p"])
#@177 Move to the previous visible heading line of any level.
With argument, repeats or can move backward if negative. ARG is
passed to `outline-previous-visible-heading'.

(fn ARG)
(defalias 'markdown-previous-visible-heading #[257 "\300\301\302#\207" [markdown-move-heading-common outline-previous-visible-heading adjust] 5 (#$ . 222623) "p"])
#@45 Move to the next heading line of any level.
(defalias 'markdown-next-heading #[0 "\300\301!\207" [markdown-move-heading-common outline-next-heading] 2 (#$ . 222970)])
#@49 Move to the previous heading line of any level.
(defalias 'markdown-previous-heading #[0 "\300\301!\207" [markdown-move-heading-common outline-previous-heading] 2 (#$ . 223143)])
#@392 Move back to the beginning of the previous heading.
Returns t if the point is at a heading, the location if a heading
was found, and nil otherwise.
Only visible heading lines are considered, unless INVISIBLE-OK is
non-nil.  Throw an error if there is no previous heading unless
NO-ERROR is non-nil.
Leaves match data intact for `markdown-regex-header'.

(fn &optional INVISIBLE-OK NO-ERROR)
(defalias 'markdown-back-to-heading-over-code-block #[512 "\301 \210\302 \203 \303 ?\206V \304\212\211\204; \305\304\306#\203; \2040 \304\307\206' `\310\"\311=\262\204 \303 \204 `\262\202 \211\204J \204M \312\313!\210\202M `\262)\211\205T \211b\262\207" [markdown-regex-header beginning-of-line markdown-heading-at-point markdown-code-block-at-point-p nil re-search-backward t get-char-property invisible outline user-error "Before first heading"] 7 (#$ . 223329)])
#@132 Move forward to the ARG'th heading at same level as this one.
Stop at the first and last headings of a superior heading.

(fn ARG)
(defalias 'markdown-forward-same-level #[257 "\300 \210\301\302\303#\207" [markdown-back-to-heading-over-code-block markdown-move-heading-common outline-forward-same-level adjust] 5 (#$ . 224205) "p"])
#@133 Move backward to the ARG'th heading at same level as this one.
Stop at the first and last headings of a superior heading.

(fn ARG)
(defalias 'markdown-backward-same-level #[257 "\300 \210\211\301V\205& \212\302\303\304\305#)\211\203 \211b\210S\266\202\202 \306\307!\266\202 \207" [markdown-back-to-heading-over-code-block 0 markdown-move-heading-common outline-get-last-sibling nil adjust user-error "No previous same-level heading"] 5 (#$ . 224546) "p"])
#@220 Move to the visible heading line of which the present line is a subheading.
With argument, move up ARG levels.  When called interactively (or
INTERACTIVE is non-nil), also push the mark.

(fn ARG &optional INTERACTIVE)
(defalias 'markdown-up-heading #[513 "\211\203 \301=\204 \302 \210\303\304\305#\207" [last-command markdown-up-heading push-mark markdown-move-heading-common outline-up-heading adjust] 6 (#$ . 225015) "p\np"])
#@175 Move to previous heading line, or beg of this line if it's a heading.
Only visible heading lines are considered, unless INVISIBLE-OK is non-nil.

(fn &optional INVISIBLE-OK)
(defalias 'markdown-back-to-heading #[256 "\300\301\"\207" [markdown-move-heading-common outline-back-to-heading] 4 (#$ . 225455) nil])
(defalias 'markdown-end-of-heading 'outline-end-of-heading)
#@47 Return non-nil if point is on a heading line.
(defalias 'markdown-on-heading-p #[0 "\300\301 \302\"\207" [get-text-property point-at-bol markdown-heading] 3 (#$ . 225832)])
#@180 Move to the end of the current subtree.
Only visible heading lines are considered, unless INVISIBLE-OK is
non-nil.
Derived from `org-end-of-subtree'.

(fn &optional INVISIBLE-OK)
(defalias 'markdown-end-of-subtree #[256 "\300!\210\301\302 m\204 \204 \302 V\203 \303\262\304 \210\202 h\305>\2031 \306u\210h\307>\2031 \306u\210\266`\207" [markdown-back-to-heading t markdown-outline-level nil markdown-next-heading (10 13) -1 (10 13)] 5 (#$ . 226012)])
#@293 Hide any false positive headings that should not be shown.
For example, headings inside preformatted code blocks may match
`outline-regexp' but should not be shown as headings when cycling.
Also, the ending --- line in metadata blocks appears to be a
setext header, but should not be folded.
(defalias 'markdown-outline-fix-visibility #[0 "\212eb\210\300\301!\203' \302y\210\300\303!\211\203& \211A@b\210\300\304!\305eA@T\302#\266\210\306 \2040 \307\310!\210`dW\205K \311 \203D \305\312 S\313 \314#\210\307\310!\210\2020 )\207" [markdown-text-property-at-point markdown-yaml-metadata-begin nil markdown-yaml-metadata-section markdown-yaml-metadata-end outline-flag-region outline-on-heading-p outline-next-visible-heading 1 markdown-code-block-at-point-p point-at-bol point-at-eol t] 6 (#$ . 226479)])
(defvar markdown-cycle-global-status 1)
(defvar markdown-cycle-subtree-status nil)
(defalias 'markdown-next-preface #[0 "\302\211\204 \303\304\305Q\302\306#\203 \307 \204 \310\224b\210\311\262\202 \210n\2053 	\204, m\2053 o?\2053 \312u\207" [outline-regexp outline-blank-line nil re-search-forward "\n\\(?:" "\\)" move markdown-code-block-at-point-p 0 t -1] 5])
(defalias 'markdown-show-entry #[0 "\212\300\301!\210\302`S\303 \210d`Z\304U\203 d\202 `\305#)\207" [outline-back-to-heading t outline-flag-region markdown-next-preface 1 nil] 4])
#@360 Visibility cycling for Markdown mode.
This function is called with a `\[universal-argument]' or if ARG is t, perform
global visibility cycling.  If the point is at an atx-style header, cycle
visibility of the corresponding subtree.  Otherwise, indent the current line
 or insert a tab, as appropriate, by calling `indent-for-tab-command'.

(fn &optional ARG)
(defalias 'markdown-cycle #[256 "\211\203@ 	=\203 \n\305=\203 \306\307!\210\310\311!\210\312\313 \207	=\2034 \n\312=\2034 \314 \210\310\315!\210\307\211\207\316 \210\310\317!\210\305\313 \207\212\320\307!\210\321 )\203\326 \322 \210\323\324\211\211\212\322 \210\212\320\305!\210m\204p \325`S\326\"\203p \320\305!\210\202] `\262)\327 \210`\262\330\331!\210\332\324w\210\320\307!\210`S\262)\211U\203\233 \310\333!\210\324\211\202\324 Y\203\261 \334 \210\335 \210\310\336!\210\337\211\202\324 	=\203\312 \f\337=\203\312 \340 \210\310\341!\210\342\211\202\324 \343 \210\310\344!\210\345\211)\207\346 \203\337 \347\350!\207\351 \207" [last-command this-command markdown-cycle-global-status goal-column markdown-cycle-subtree-status 2 outline-hide-sublevels 1 message "CONTENTS" 3 markdown-outline-fix-visibility outline-show-all "SHOW ALL" outline-hide-body "OVERVIEW" beginning-of-line markdown-on-heading-p markdown-back-to-heading 0 nil get-char-property invisible markdown-end-of-heading markdown-end-of-subtree t " 	\n" "EMPTY ENTRY" markdown-show-entry outline-show-children "CHILDREN" children outline-show-subtree "SUBTREE" subtree outline-hide-subtree "FOLDED" folded markdown-table-at-point-p call-interactively markdown-table-forward-cell indent-for-tab-command] 8 (#$ . 227840) "P"])
#@172 Handle S-TAB keybinding based on context.
When in a table, move backward one cell.
Otherwise, cycle global heading visibility by calling
`markdown-cycle' with argument t.
(defalias 'markdown-shifttab #[0 "\300 \203	 \301\302!\207\303\304!\207" [markdown-table-at-point-p call-interactively markdown-table-backward-cell markdown-cycle t] 2 (#$ . 229517) nil])
#@65 Return the depth to which a statement is nested in the outline.
(defalias 'markdown-outline-level #[0 "\300\224\203 \301\300\224!\203 \302\207\303\225\203 \304\207\305\225\203 \303\207\306\225\205' \307\310\306!!G\207" [0 markdown-code-block-at-pos 7 2 1 3 4 markdown-trim-whitespace match-string-no-properties] 3 (#$ . 229882)])
#@253 Promote the current subtree of ATX headings.
Note that Markdown does not support heading levels higher than
six and therefore level-six headings will not be promoted
further. If ARG is non-nil promote the heading, otherwise
demote.

(fn &optional ARG)
(defalias 'markdown-promote-subtree #[256 "\212\301!\204 \302\303\304#\205Y \305 ?\205Y \306\307!G\203! \307\202\" \310\304\311\304\"\210\3122W \313 \205V \314!\205V \314!\203N \315\307!GX\203N \316\312\303\"\210\202, \311\"\210\202, 0\266\203)\207" [markdown-regex-header-atx thing-at-point-looking-at re-search-backward nil t markdown-code-block-at-point-p match-string 1 -1 markdown-cycle-atx end-of-subtree markdown-next-heading looking-at match-string-no-properties throw] 7 (#$ . 230223) "*P"])
#@45 Demote the current subtree of ATX headings.
(defalias 'markdown-demote-subtree #[0 "\300\301!\207" [markdown-promote-subtree t] 2 (#$ . 230992) nil])
#@46 Move the current subtree of ATX headings up.
(defalias 'markdown-move-subtree-up #[0 "\300\301!\207" [outline-move-subtree-up 1] 2 (#$ . 231148) nil])
#@48 Move the current subtree of ATX headings down.
(defalias 'markdown-move-subtree-down #[0 "\300\301!\207" [outline-move-subtree-down 1] 2 (#$ . 231305) nil])
#@66 Move to next list item, when in a list, or next visible heading.
(defalias 'markdown-outline-next #[0 "\300 \211\203\n \211@b\207\301\302!\207" [markdown-next-list-item-bounds markdown-next-visible-heading 1] 3 (#$ . 231468) nil])
#@74 Move to previous list item, when in a list, or previous visible heading.
(defalias 'markdown-outline-previous #[0 "\300 \211\203\n \211@b\207\301\302!\207" [markdown-prev-list-item-bounds markdown-previous-visible-heading 1] 3 (#$ . 231705) nil])
#@50 Move to next list item or heading of same level.
(defalias 'markdown-outline-next-same-level #[0 "\300 \211\203\f \301\3028!\207\303\304!\207" [markdown-cur-list-item-bounds markdown-next-list-item 3 markdown-forward-same-level 1] 4 (#$ . 231958) nil])
#@54 Move to previous list item or heading of same level.
(defalias 'markdown-outline-previous-same-level #[0 "\300 \211\203\f \301\3028!\207\303\304!\207" [markdown-cur-list-item-bounds markdown-prev-list-item 3 markdown-backward-same-level 1] 4 (#$ . 232218) nil])
#@66 Move to previous list item, when in a list, or previous heading.
(defalias 'markdown-outline-up #[0 "\300 ?\205	 \301\302!\207" [markdown-up-list markdown-up-heading 1] 2 (#$ . 232487) nil])
#@268 Put mark at end of this block, point at beginning.
The block marked is the one that contains point or follows point.

Interactively, if this command is repeated or (in Transient Mark
mode) if the mark is active, it marks the next block after the
ones already marked.
(defalias 'markdown-mark-paragraph #[0 "	=\203\f \306\307!\204 \n\203! \203! \310\212\306 b\210\311 \210`)!\207\312\311\313 *\207" [last-command this-command transient-mark-mode mark-active end-of-defun-function beginning-of-defun-function mark t set-mark markdown-forward-paragraph markdown-backward-paragraph mark-defun] 2 (#$ . 232685) nil])
#@268 Put mark at end of this block, point at beginning.
The block marked is the one that contains point or follows point.

Interactively, if this command is repeated or (in Transient Mark
mode) if the mark is active, it marks the next block after the
ones already marked.
(defalias 'markdown-mark-block #[0 "	=\203\f \306\307!\204 \n\203! \203! \310\212\306 b\210\311 \210`)!\207\312\311\313 *\207" [last-command this-command transient-mark-mode mark-active end-of-defun-function beginning-of-defun-function mark t set-mark markdown-forward-block markdown-backward-block mark-defun] 2 (#$ . 233309) nil])
#@111 Make text outside current block invisible.
The current block is the one that contains point or follows point.
(defalias 'markdown-narrow-to-block #[0 "\302\303\304 *\207" [end-of-defun-function beginning-of-defun-function markdown-backward-block markdown-forward-block narrow-to-defun] 2 (#$ . 233921) nil])
#@279 Put mark at end of this plain text block, point at beginning.
The block marked is the one that contains point or follows point.

Interactively, if this command is repeated or (in Transient Mark
mode) if the mark is active, it marks the next block after the
ones already marked.
(defalias 'markdown-mark-text-block #[0 "	=\203\f \306\307!\204 \n\203! \203! \310\212\306 b\210\311 \210`)!\207\312\311\313 *\207" [last-command this-command transient-mark-mode mark-active end-of-defun-function beginning-of-defun-function mark t set-mark markdown-end-of-text-block markdown-beginning-of-text-block mark-defun] 2 (#$ . 234238) nil])
#@291 Put mark at end of this top level section, point at beginning.
The top level section marked is the one that contains point or
follows point.

Interactively, if this command is repeated or (in Transient Mark
mode) if the mark is active, it marks the next page after the
ones already marked.
(defalias 'markdown-mark-page #[0 "	=\203\f \306\307!\204 \n\203! \203! \310\212\306 b\210\311 \210`)!\207\312\311\313 *\207" [last-command this-command transient-mark-mode mark-active end-of-defun-function beginning-of-defun-function mark t set-mark markdown-forward-page markdown-backward-page mark-defun] 2 (#$ . 234879) nil])
#@125 Make text outside current top level section invisible.
The current section is the one that contains point or follows point.
(defalias 'markdown-narrow-to-page #[0 "\302\303\304 *\207" [end-of-defun-function beginning-of-defun-function markdown-backward-page markdown-forward-page narrow-to-defun] 2 (#$ . 235511) nil])
#@101 Mark the current subtree.
This puts point at the start of the current subtree, and mark at the end.
(defalias 'markdown-mark-subtree #[0 "\300\301 \203\f \302 \210\202 \303\304!\210`\262\305 \210\306`\300\307#\210\211b\207" [nil markdown-heading-at-point beginning-of-line markdown-previous-visible-heading 1 markdown-end-of-subtree push-mark t] 5 (#$ . 235839) nil])
#@39 Narrow buffer to the current subtree.
(defalias 'markdown-narrow-to-subtree #[0 "\212\300 \301\302\"\216\303\304!\210`\305 \210\306 \203 m\204 \307u\210`})\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-back-to-heading-over-code-block t markdown-end-of-subtree markdown-heading-at-point -1] 4 (#$ . 236215) nil])
#@213 Move thing at point up.
When in a list item, call `markdown-move-list-item-up'.
When in a table, call `markdown-table-move-row-up'.
Otherwise, move the current heading subtree up with
`markdown-move-subtree-up'.
(defalias 'markdown-move-up #[0 "\300 \203	 \301\302!\207\303 \203 \301\304!\207\301\305!\207" [markdown-list-item-at-point-p call-interactively markdown-move-list-item-up markdown-table-at-point-p markdown-table-move-row-up markdown-move-subtree-up] 2 (#$ . 236594) nil])
#@167 Move thing at point down.
When in a list item, call `markdown-move-list-item-down'.
Otherwise, move the current heading subtree up with
`markdown-move-subtree-down'.
(defalias 'markdown-move-down #[0 "\300 \203	 \301\302!\207\303 \203 \301\304!\207\301\305!\207" [markdown-list-item-at-point-p call-interactively markdown-move-list-item-down markdown-table-at-point-p markdown-table-move-row-down markdown-move-subtree-down] 2 (#$ . 237087) nil])
#@187 Promote or move element at point to the left.
Depending on the context, this function will promote a heading or
list item at the point, move a table column to the left, or cycle
markup.
(defalias 'markdown-promote #[0 "\305\306!\203\n \307 \207\306	!\203 \310\311!\207\306\n!\203 \312\311!\207\313 \211\262\203* \314!\207\315 \2033 \316\317!\207\306!\203< \320 \207\306\f!\203E \321 \207\322\323!\207" [markdown-regex-header-atx markdown-regex-header-setext markdown-regex-hr markdown-regex-bold markdown-regex-italic nil thing-at-point-looking-at markdown-promote-subtree markdown-cycle-setext -1 markdown-cycle-hr markdown-cur-list-item-bounds markdown-promote-list-item markdown-table-at-point-p call-interactively markdown-table-move-column-left markdown-cycle-bold markdown-cycle-italic user-error "Nothing to promote at point"] 3 (#$ . 237542) nil])
#@197 Demote or move element at point to the right.
Depending on the context, this function will demote a heading or
list item at the point, move a table column to the right, or cycle
or remove markup.
(defalias 'markdown-demote #[0 "\305\306!\203\n \307 \207\306	!\203 \310\311!\207\306\n!\203 \312\311!\207\313 \211\262\203* \314!\207\315 \2033 \316\317!\207\306!\203< \320 \207\306\f!\203E \321 \207\322\323!\207" [markdown-regex-header-atx markdown-regex-header-setext markdown-regex-hr markdown-regex-bold markdown-regex-italic nil thing-at-point-looking-at markdown-demote-subtree markdown-cycle-setext 1 markdown-cycle-hr markdown-cur-list-item-bounds markdown-demote-list-item markdown-table-at-point-p call-interactively markdown-table-move-column-right markdown-cycle-bold markdown-cycle-italic user-error "Nothing to demote at point"] 3 (#$ . 238411) nil])
#@217 Run `markdown-command' on buffer, sending output to OUTPUT-BUFFER-NAME.
The output buffer name defaults to `markdown-output-buffer-name'.
Return the name of the output buffer used.

(fn &optional OUTPUT-BUFFER-NAME)
(defalias 'markdown #[256 "\305 \306\307\"\216;\203 \310!\202 <\205 \211\242\243\311\211\312 \203. \313 \262\314 \262\2024 e\262d\262\204< 	\262;\203L \315!\204L \316\317\"\210;\203\202 \n\203\202 \204_ \316\320!\202\276 <\203p \321\322\323#\266\202\202q \324``\321\325!Q$\262\202\276 \326!r\211q\210\311\327 \210);\203\265 \203\252 \330\331\311\311&\202\274 \331\311%\202\274 #\210\332\262\211\332=\204\312 \316\333#\210\266)\207" [markdown-command markdown-output-buffer-name markdown-command-needs-filename buffer-file-name buffer-read-only current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] split-string nil use-region-p region-beginning region-end executable-find user-error "Markdown command %s is not found" "Must be visiting a file" " " mapconcat identity shell-command-on-region shell-quote-argument get-buffer-create erase-buffer apply call-process-region 0 "%s failed with exit code %s"] 17 (#$ . 239286) nil])
#@146 Special function to provide standalone HTML output.
Insert the output in the buffer named OUTPUT-BUFFER-NAME.

(fn &optional OUTPUT-BUFFER-NAME)
(defalias 'markdown-standalone #[256 "\300!\262r\211q\210\211q\210\301 \204 \302!\210eb\210\303 \210)\207" [markdown markdown-output-standalone-p markdown-add-xhtml-header-and-footer html-mode] 3 (#$ . 240534) nil])
#@188 Run `markdown-command' on current buffer and display in other window.
When OUTPUT-BUFFER-NAME is given, insert the output in the buffer with
that name.

(fn &optional OUTPUT-BUFFER-NAME)
(defalias 'markdown-other-window #[256 "\300\301!!\207" [markdown-display-buffer-other-window markdown-standalone] 4 (#$ . 240906) nil])
#@194 Determine whether `markdown-command' output is standalone XHTML.
Standalone XHTML output is identified by an occurrence of
`markdown-xhtml-standalone-regexp' in the first five lines of output.
(defalias 'markdown-output-standalone-p #[0 "\212eb\210\301 \302\303\"\216\304\212eb\210\305y\210`)\306#)\262)\207" [markdown-xhtml-standalone-regexp match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] re-search-forward 4 t] 5 (#$ . 241238)])
#@24 

(fn STYLESHEET-PATH)
(defalias 'markdown-stylesheet-link-string #[257 "\300\301\302\"\203 \303!\206 \304Q\207" ["<link rel=\"stylesheet\" type=\"text/css\" media=\"all\" href=\"" string-prefix-p "~" expand-file-name "\"  />"] 5 (#$ . 241713)])
#@82 Wrap XHTML header and footer with given TITLE around current buffer.

(fn TITLE)
(defalias 'markdown-add-xhtml-header-and-footer #[257 "eb\210\306\307\310\311\312\261\210\211c\210\313c\210G\314U\2041 \315\316	\203& \317	\320\"\206. \317\n\320\"\206. \321#c\210G\314V\203? \322\323\324#c\210\fG\314V\203I \fc\210\325\326\261\210G\314V\203Z \324\261\210db\210G\314V\203k \324\261\210\324\327\330\261\207" [markdown-content-type markdown-coding-system buffer-file-coding-system markdown-css-paths markdown-xhtml-header-content markdown-xhtml-body-preamble "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n" "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n" "	\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n\n" "<html xmlns=\"http://www.w3.org/1999/xhtml\">\n\n" "<head>\n<title>" "</title>\n" 0 format "<meta http-equiv=\"Content-Type\" content=\"%s;charset=%s\"/>\n" coding-system-get mime-charset "utf-8" mapconcat markdown-stylesheet-link-string "\n" "\n</head>\n\n" "<body>\n\n" "</body>\n" "</html>\n" markdown-xhtml-body-epilogue] 7 (#$ . 241970)])
#@191 Run `markdown-command' on the current buffer and view output in browser.
When OUTPUT-BUFFER-NAME is given, insert the output in the buffer with
that name.

(fn &optional OUTPUT-BUFFER-NAME)
(defalias 'markdown-preview #[256 "\301\302\206 !!\207" [markdown-output-buffer-name browse-url-of-buffer markdown-standalone] 4 (#$ . 243063) nil])
#@272 Attempt to generate a filename for Markdown output.
The file extension will be EXTENSION if given, or .html by default.
If the current buffer is visiting a file, we construct a new
output filename based on that filename.  Otherwise, return nil.

(fn &optional EXTENSION)
(defalias 'markdown-export-file-name #[256 "\300 \205, \211\204\f \301\262\300 \203 \302\300 !\202 \303 P\211\300 \232\203) \211P\202* \211\262\207" [buffer-file-name ".html" file-name-sans-extension buffer-name] 4 (#$ . 243412)])
#@336 Run Markdown on the current buffer, save to file, and return the filename.
If OUTPUT-FILE is given, use that as the filename.  Otherwise, use the filename
generated by `markdown-export-file-name', which will be constructed using the
current filename, but with the extension removed and replaced with .html.

(fn &optional OUTPUT-FILE)
(defalias 'markdown-export #[256 "\211\204	 \301\302!\262\211\205G p`\303 \304!\305!\306\307!\210\310!\210rq\210\306\311!\210\312 \210\2031 \313 \210)\314!\203D \315 \210c\210\312 \210b\210\266\205\207" [markdown-export-kill-buffer markdown-export-file-name ".html" buffer-string find-file-noselect buffer-name run-hooks markdown-before-export-hook markdown-standalone markdown-after-export-hook save-buffer kill-buffer buffer-modified-p erase-buffer] 8 (#$ . 243927) nil])
#@72 Export to XHTML using `markdown-export' and browse the resulting file.
(defalias 'markdown-export-and-preview #[0 "\300\301 !\207" [browse-url-of-file markdown-export] 2 (#$ . 244752) nil])
#@75 Buffer used to preview markdown output in `markdown-live-preview-export'.
(defvar markdown-live-preview-buffer nil (#$ . 244948))
(make-variable-buffer-local 'markdown-live-preview-buffer)
#@111 Source buffer from which current buffer was generated.
This is the inverse of `markdown-live-preview-buffer'.
(defvar markdown-live-preview-source-buffer nil (#$ . 245144))
(make-variable-buffer-local 'markdown-live-preview-source-buffer)
(defvar markdown-live-preview-currently-exporting nil)
#@70 Standardize the filename exported by `markdown-live-preview-export'.
(defalias 'markdown-live-preview-get-filename #[0 "\300\301!\207" [markdown-export-file-name ".html"] 2 (#$ . 245444)])
#@92 Preview FILE with eww.
To be used with `markdown-live-preview-window-function'.

(fn FILE)
(defalias 'markdown-live-preview-window-eww #[257 "\300!\210\301\302!\207" [eww-open-file get-buffer "*eww*"] 3 (#$ . 245639)])
#@16 

(fn BEG END)
(defalias 'markdown-visual-lines-between-points #[514 "\212b\210\300\301 \210`W\203 \302\303\304\"\203 \211T\262\202 \211\262)\207" [0 end-of-visual-line line-move-visual 1 t] 6 (#$ . 245865)])
#@76 Get window point and scroll data for all windows displaying BUF.

(fn BUF)
(defalias 'markdown-live-preview-window-serialize #[257 "\300!\205 r\211q\210\301\302\303!\")\207" [buffer-live-p mapcar #[257 "\300!r\301\302\"\216\303@\304\"\210\305 \306 \211eU\203 \307\202( \211dU\203' \310\202( \211\311\"E\266\204*\207" [internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord window-start window-point min max markdown-visual-lines-between-points] 9 "\n\n(fn WIN)"] get-buffer-window-list] 5 (#$ . 246087)])
#@21 

(fn PT NUM-LINES)
(defalias 'markdown-get-point-back-lines #[514 "\212b\210\300[\301\"\210\302`\"\211V\203 \300Z\301\"\210\210`)\207" [line-move-visual t markdown-visual-lines-between-points] 6 (#$ . 246694)])
#@144 Apply window point and scroll data from WINDOW-POSNS.
WINDOW-POSNS is provided by `markdown-live-preview-window-serialize'.

(fn WINDOW-POSNS)
(defalias 'markdown-live-preview-window-deserialize #[257 "\211\211A\262\242\211A\262\242\242\301!\205L rq\210\302p\"\210\303\267\2020 e\304D\2023 dD\2023 D\211A\262\242\242\305\306\"\"\210\307\"\266\203)\207" [markdown-live-preview-buffer window-live-p set-window-buffer #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (min 36 max 42)) 0 set-window-start markdown-get-point-back-lines set-window-point] 13 (#$ . 246920)])
#@177 Export to XHTML using `markdown-export'.
Browse the resulting file within Emacs using
`markdown-live-preview-window-function' Return the buffer
displaying the rendered output.
(defalias 'markdown-live-preview-export #[0 "\305 \211\205^ \306p\307!\310	!\311 \312\313\"\216\n!r\211q\210\314\315\316\306\211$\210)rq\210\211)\210)\210rq\210\317\320\"\210\321!\211\203E \322!\210\210\203Z \323!\203Z \f\324=\203Z \325!\210	*\266\203\207" [markdown-live-preview-currently-exporting markdown-live-preview-buffer markdown-live-preview-window-function markdown-live-preview-source-buffer markdown-live-preview-delete-export markdown-live-preview-get-filename t markdown-export markdown-live-preview-window-serialize current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] add-hook kill-buffer-hook markdown-live-preview-remove-on-kill mapc markdown-live-preview-window-deserialize get-file-buffer kill-buffer file-exists-p delete-on-export delete-file] 11 (#$ . 247552) nil])
(defalias 'markdown-live-preview-remove #[0 "\302!\203\n \303!\210\304	\305=\205# \306 \211\205! \307!\205! \310!\262\207" [markdown-live-preview-buffer markdown-live-preview-delete-export buffer-live-p kill-buffer nil delete-on-destroy markdown-live-preview-get-filename file-exists-p delete-file] 3])
#@59 Find another window to display preview or output content.
(defalias 'markdown-get-other-window #[0 "\301\267\202 \302\303!\206 \304 \207\302\305!\206 \306 \207\307\310 !\207" [markdown-split-window-direction #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (vertical 6 below 6 horizontal 15 right 15)) window-in-direction below split-window-vertically right split-window-horizontally split-window-sensibly get-buffer-window] 2 (#$ . 248888)])
#@67 Display preview or output buffer BUF in another window.

(fn BUF)
(defalias 'markdown-display-buffer-other-window #[257 "\203 	\302=\203 \303!\207p\304 \305\"\210q\207" [display-buffer-alist markdown-split-window-direction any display-buffer markdown-get-other-window set-window-buffer] 6 (#$ . 249377)])
(defalias 'markdown-live-preview-if-markdown #[0 "\303\304!\205 \205 	?\205 \305\n!\203 \306 \207\307\306 !\207" [markdown-live-preview-mode markdown-live-preview-currently-exporting markdown-live-preview-buffer derived-mode-p markdown-mode buffer-live-p markdown-live-preview-export markdown-display-buffer-other-window] 2])
(defalias 'markdown-live-preview-remove-on-kill #[0 "\303\304!\203 \203 \305 \207	\205 r	q\210\306)\306\211\207" [markdown-live-preview-mode markdown-live-preview-source-buffer markdown-live-preview-buffer derived-mode-p markdown-mode markdown-live-preview-remove nil] 2])
#@26 Switch to output buffer.
(defalias 'markdown-live-preview-switch-to-output #[0 "\203	 \301\302 !\210\300 \207" [markdown-live-preview-mode markdown-display-buffer-other-window markdown-live-preview-export] 2 (#$ . 250305) nil])
#@26 Re export source buffer.
(defalias 'markdown-live-preview-re-export #[0 "\205 rq\210\301 )\207" [markdown-live-preview-source-buffer markdown-live-preview-export] 1 (#$ . 250540) nil])
#@64 Open file for the current buffer with `markdown-open-command'.
(defalias 'markdown-open #[0 "\204 \302\303!\210;\2032 	\204 \302\304!\210\2025 \305 \210\306\307\211\211	%\211\310=\204. \302\311#\210\210\2025  \210\307\207" [markdown-open-command buffer-file-name user-error "Variable `markdown-open-command' must be set" "Must be visiting a file" save-buffer call-process nil 0 "%s failed with exit code %s"] 6 (#$ . 250734) nil])
#@57 Run Markdown on file and store output in the kill ring.
(defalias 'markdown-kill-ring-save #[0 "\301 \302\303\"\216\304 \210rq\210\305ed\"*\207" [markdown-output-buffer-name current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] markdown kill-ring-save] 4 (#$ . 251179) nil])
#@68 Backward link start position if current position is in link title.
(defalias 'markdown-backward-to-link-start #[0 "\300`\301\"\302=\205 \303\304x\210\305u\207" [get-text-property face markdown-link-face "^[" nil -1] 3 (#$ . 251503)])
#@101 Return non-nil when `point' is at a non-wiki link.
See `markdown-wiki-link-p' for more information.
(defalias 'markdown-link-p #[0 "\212\305\306 ?\205' \307 ?\205' \310 \210\311	!\206' \311\n!\206' \311!\206' \311\f!*\207" [case-fold-search markdown-regex-link-inline markdown-regex-link-reference markdown-regex-uri markdown-regex-angle-uri nil markdown-wiki-link-p markdown-code-block-at-point-p markdown-backward-to-link-start thing-at-point-looking-at] 2 (#$ . 251745)])
#@231 Return properties of link or image at position POS.
Value is a list of elements describing the link:
 0. beginning position
 1. end position
 2. link text
 3. URL
 4. reference label
 5. title text
 6. bang (nil or "!")

(fn POS)
(defalias 'markdown-link-at-pos #[257 "\212\211b\210\304 \210\305\211\211\211\211\211\211\306!\203Y \307\310!\262\311\224\262\311\225\262\307\312!\262\307\313!\262\314\225\203; \307\314!\310\315O\262\202\261 \316\224b\210\317`\310\"\211\203U W\203U \313\224S{\262\210\202\261 \306!\204e \306	!\203\210 \307\310!\262\311\224\262\311\225\262\307\312!\262\320\316\224f\321\"\203\261 \307\313!\262\202\261 \306\n!\203\236 \311\224\262\311\225\262\307\322!\262\202\261 \306!\203\261 \311\224\262\311\225\262\307\310!\262\257\266\207)\207" [markdown-regex-link-inline markdown-regex-link-reference markdown-regex-angle-uri markdown-regex-uri markdown-backward-to-link-start nil thing-at-point-looking-at match-string-no-properties 1 0 3 6 7 -1 5 scan-sexps char-equal 91 2] 15 (#$ . 252229)])
#@205 Return the URL part of the regular (non-wiki) link at point.
Works with both inline and reference style links, and with images.
If point is not at a link or the link reference is not defined
returns nil.
(defalias 'markdown-link-url #[0 "\300`!\3018\3028\3038\206# \211\205# \304\305\230\203 \202  \227!@\207" [markdown-link-at-pos 2 3 4 markdown-reference-definition ""] 7 (#$ . 253293)])
#@12 

(fn URL)
(defalias 'markdown--browse-url #[257 "\304!\305!>\204 \306\307\310D\"\210\211\311H\312!@\262\203$ \313!\207\211\205b \211G\314V\205b 	!\n\203] \315 \316\317\320#)\266\203\203] \321\n!\203S \n!\202` \322\n\316\211\211%\202` \323!\262\207" [cl-struct-url-tags markdown-translate-filename-function markdown-open-image-command inhibit-changing-match-data url-generic-parse-url type-of signal wrong-type-argument url 9 url-path-and-query browse-url 0 image-file-name-regexp nil t string-match functionp process-file find-file] 12 (#$ . 253697)])
#@242 Open the current non-wiki link.
If the link is a complete URL, open in browser with `browse-url'.
Otherwise, open with `find-file' after stripping anchor and/or query string.
Translate filenames using `markdown-filename-translate-function'.
(defalias 'markdown-follow-link-at-point #[0 "\300 \203\n \301\302 !\207\303\304!\207" [markdown-link-p markdown--browse-url markdown-link-url user-error "Point is not at a Markdown link or URL"] 2 (#$ . 254277) nil])
#@72 Add text properties to next inline link from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-inline-links #[257 "\303\304\"\205\272 \305\224\305\225\306\224\306\225\307\306!\310\224\310\225\307\310!\311\312\313\314\315\316\317\316\257\320\321\322\317\316\323\2038 \324Q\202: \257\320\311\325\313\314\321\322\317\316\257\n\326	!\311\327\313\314\317\316\257\330\211\203o \211@\211\225\203h \331\224\225	#\210A\266\202\202T \210\f\203\207 \331#\210\332\333\334$\210\n\203\224 \331#\210\203\241 \331\n#\210\n\203\267 \n\203\267 \335\206\264 #\210\266\316\207" [markdown-mode-mouse-map markdown-url-compose-char markdown-hide-urls markdown-match-generic-links nil 3 6 match-string-no-properties 7 face markdown-markup-face invisible markdown-markup rear-nonsticky t font-lock-multiline keymap mouse-face markdown-highlight-face help-echo "\n" markdown-url-face markdown--first-displayable markdown-link-title-face (1 2 4 5 8) add-text-properties add-face-text-property markdown-link-face append compose-region] 21 (#$ . 254742)])
#@75 Add text properties to next reference link from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-reference-links #[257 "\303\304\"\205~ \305\224\305\225\306\224\306\225\307\310\311\312\313\304\314\304\257\315\307\316\317\320\314\304\321\322\257\n\323	!\307\324\311\312\314\304\257\325\211\203L \211@\211\225\203E \326\224\225#\210A\266\202\2021 \210\203Z \326#\210\203{ \326#\210\n\203{ Z\327V\203{ \330#\210\266\304\207" [markdown-mode-mouse-map markdown-url-compose-char markdown-hide-urls markdown-match-generic-links t 3 6 face markdown-markup-face invisible markdown-markup rear-nonsticky font-lock-multiline keymap markdown-link-face mouse-face markdown-highlight-face help-echo #[771 "\300 \301\302\"\216\212b\210\303 \206 \304*\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-link-url "Undefined reference"] 7 "\n\n(fn _ _ POS)"] markdown--first-displayable markdown-reference-face (1 2 4 5 8) add-text-properties 2 compose-region] 16 (#$ . 255829)])
#@66 Add text properties to angle URIs from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-angle-uris #[257 "\301!\205> \302\224\302\225\303\304\305\306\307\310\311\310\257\312\303\313\314\315\311\310\257\316\211\2035 \211@\317\224\225#\210A\266\202\202 \210\317#\266\310\207" [markdown-mode-mouse-map markdown-match-angle-uris 2 face markdown-markup-face invisible markdown-markup rear-nonsticky t font-lock-multiline keymap markdown-plain-url-face mouse-face markdown-highlight-face (1 3) add-text-properties] 12 (#$ . 256882)])
#@66 Add text properties to plain URLs from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-plain-uris #[257 "\301!\205 \302\224\302\225\303\304\305\306\307\310\311\312\311\257\n\313#\266\311\207" [markdown-mode-mouse-map markdown-match-plain-uris 0 keymap face markdown-plain-url-face mouse-face markdown-highlight-face rear-nonsticky t font-lock-multiline add-text-properties] 13 (#$ . 257435)])
#@151 Toggle the display or hiding of URLs.
With a prefix argument ARG, enable URL hiding if ARG is positive,
and disable it otherwise.

(fn &optional ARG)
(defalias 'markdown-toggle-url-hiding #[256 "\211\301=\203 ?\202 \302!\303V\211\203 \304\305!\210\202  \304\306!\210\307 \207" [markdown-hide-urls toggle prefix-numeric-value 0 message "markdown-mode URL hiding enabled" "markdown-mode URL hiding disabled" markdown-reload-extensions] 4 (#$ . 257848) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@322 Return non-nil if wiki links are enabled and `point' is at a true wiki link.
A true wiki link name matches `markdown-regex-wiki-link' but does
not match the current file name after conversion.  This modifies
the data returned by `match-data'.  Note that the potential wiki
link name must be available via `match-string'.
(defalias 'markdown-wiki-link-p #[0 "\205  \304\305\n!\205 \306 ?\205 ?\206 \303 \307\310 !\230?)\207" [markdown-enable-wiki-links case-fold-search markdown-regex-wiki-link buffer-file-name nil thing-at-point-looking-at markdown-code-block-at-point-p markdown-convert-wiki-link-to-filename markdown-wiki-link-link] 3 (#$ . 258374)])
#@158 Return the link part of the wiki link using current match data.
The location of the link component depends on the value of
`markdown-wiki-link-alias-first'.
(defalias 'markdown-wiki-link-link #[0 "\203 \301\302!\206 \301\303!\207\301\303!\207" [markdown-wiki-link-alias-first match-string-no-properties 5 3] 2 (#$ . 259041)])
#@168 Return the alias or text part of the wiki link using current match data.
The location of the alias component depends on the value of
`markdown-wiki-link-alias-first'.
(defalias 'markdown-wiki-link-alias #[0 "\203 \301\302!\207\301\303!\206 \301\302!\207" [markdown-wiki-link-alias-first match-string-no-properties 3 5] 2 (#$ . 259377)])
(defalias 'markdown--wiki-link-search-types #[0 "\205 \303!	\203 \304>\204 \304B\262\n\203% \305>\204% \305B\262\207" [markdown-wiki-link-search-type markdown-wiki-link-search-subdirectories markdown-wiki-link-search-parent-directories cl-copy-list sub-directories parent-directories] 3])
(defalias 'markdown--project-root #[0 "\301\302\211\211:\203, @\262\303\"\211\203 \211\262\302\211\262\202  \304\262\203, A\262\202 \266\203\206J \305\306!\210\307\304!\310\311!\203D \311!\202H \312!@\262\207" [default-directory (".git" ".hg" ".svn") nil locate-dominating-file t require project project-current fboundp project-root project-roots] 7])
#@447 Generate a filename from the wiki link NAME.
Spaces in NAME are replaced with `markdown-link-space-sub-char'.
When in `gfm-mode', follow GitHub's conventions where [[Test Test]]
and [[test test]] both map to Test-test.ext.  Look in the current
directory first, then in subdirectories if
`markdown-wiki-link-search-subdirectories' is non-nil, and then
in parent directories if
`markdown-wiki-link-search-parent-directories' is non-nil.

(fn NAME)
(defalias 'markdown-convert-wiki-link-to-filename #[257 "\302 \303\304\"\216\305\306#\307\310!\203  \211\311\312O\226\312\313O\227P\202! \211\314 \313\211\211\211\211	\2036 \315	!\262\316	!\262\205? \317PP\262	\203L \320!\203R \266\210\202\245 \321>\203m \322\323\324Q\"\211\262\203m @\266\210\202\245 \325>\203\206 \326\"\211\262\203\206 \211P\266\210\202\245 \327>\203\242 \322\330 \323\324Q\"\211\262\203\242 @\266\210\202\245 \266\210)\207" [markdown-link-space-sub-char buffer-file-name match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] replace-regexp-in-string "[[:space:]\n]" derived-mode-p gfm-mode 0 1 nil markdown--wiki-link-search-types file-name-directory file-name-extension "." file-exists-p sub-directories directory-files-recursively "^" "$" parent-directories locate-dominating-file project markdown--project-root] 15 (#$ . 260391)])
#@221 Follow the wiki link NAME.
Convert the name to a file name and call `find-file'.  Ensure that
the new buffer remains in `markdown-mode'.  Open the link in another
window when OTHER is non-nil.

(fn NAME &optional OTHER)
(defalias 'markdown-follow-wiki-link #[513 "\302!\205\n \303!\211\204 \304\305!\210\202$ \203 \306\307!\210\211\310!\210)\311\312!?\205- \312 \207" [buffer-file-name default-directory markdown-convert-wiki-link-to-filename file-name-directory user-error "Must be visiting a file" other-window 1 find-file derived-mode-p markdown-mode] 6 (#$ . 261758)])
#@163 Find Wiki Link at point.
With prefix argument ARG, open the file in other window.
See `markdown-wiki-link-p' and `markdown-follow-wiki-link'.

(fn &optional ARG)
(defalias 'markdown-follow-wiki-link-at-point #[256 "\300 \203 \301\302 \"\207\303\304!\207" [markdown-wiki-link-p markdown-follow-wiki-link markdown-wiki-link-link user-error "Point is not at a Wiki Link"] 4 (#$ . 262346) "P"])
#@90 Highlight the wiki link in the region between FROM and TO using FACE.

(fn FROM TO FACE)
(defalias 'markdown-highlight-wiki-link #[771 "\300\301$\207" [put-text-property font-lock-face] 8 (#$ . 262745)])
#@80 Remove wiki link faces from the region specified by FROM and TO.

(fn FROM TO)
(defalias 'markdown-unfontify-region-wiki-links #[514 "\300 \301\302#\210\301\303#\210\304!\207" [buffer-modified-p remove-text-properties (font-lock-face markdown-link-face) (font-lock-face markdown-missing-link-face) set-buffer-modified-p] 7 (#$ . 262958) "*r"])
#@174 Search region given by FROM and TO for wiki links and fontify them.
If a wiki link is found check to see if the backing file exists
and highlight accordingly.

(fn FROM TO)
(defalias 'markdown-fontify-region-wiki-links #[514 "b\210\301 \302\303\"\216\304\305#\205E \306 \204\n \307\224\307\225\310\311 !\3121* \313!0\202. \210\202; \203; \314\315#\266\202\n \314\316#\266\202\n )\207" [markdown-regex-wiki-link match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] re-search-forward t markdown-code-block-at-point-p 1 markdown-convert-wiki-link-to-filename markdown-wiki-link-link (error) file-exists-p markdown-highlight-wiki-link markdown-link-face markdown-missing-link-face] 10 (#$ . 263314)])
#@164 Extend region given by FROM and TO so that we can fontify all links.
The region is extended to the first newline before and the first
newline after.

(fn FROM TO)
(defalias 'markdown-extend-changed-region #[514 "b\210\300\301\302\303#\210ed`U\204 `\262b\210\304\301\302\303#\210`U\204& `\262D\207" [re-search-backward "\n" nil t re-search-forward] 8 (#$ . 264058)])
#@89 Check region between FROM and TO for wiki links and re-fontify as needed.

(fn FROM TO)
(defalias 'markdown-check-change-for-wiki-link #[514 "\306 \307\211\307\310\211\311\312\"\216\212\313 \311\314\"\216\214\315\"\211@A@b\210\316\317\320$\2047 \321\307#\205@ \322\"\210\323\"\266\203*\262.\207" [buffer-undo-list inhibit-read-only inhibit-point-motion-hooks deactivate-mark buffer-file-truename markdown-regex-wiki-link buffer-modified-p t nil make-closure #[0 "\300?\205 \301 \205 \302\303!\207" [V0 buffer-modified-p set-buffer-modified-p nil] 2] match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-extend-changed-region markdown-range-property-any font-lock-face (markdown-link-face markdown-missing-link-face) re-search-forward markdown-unfontify-region-wiki-links markdown-fontify-region-wiki-links] 13 (#$ . 264439) "*r"])
#@151 Check region between FROM and TO for wiki links and re-fontify as needed.
Designed to be used with the `after-change-functions' hook.

(fn FROM TO _)
(defalias 'markdown-check-change-for-wiki-link-after-change #[771 "\300\"\207" [markdown-check-change-for-wiki-link] 6 (#$ . 265325)])
#@41 Refontify all wiki links in the buffer.
(defalias 'markdown-fontify-buffer-wiki-links #[0 "\300ed\"\207" [markdown-check-change-for-wiki-link] 3 (#$ . 265618) nil])
#@151 Toggle support for wiki links.
With a prefix argument ARG, enable wiki link support if ARG is positive,
and disable it otherwise.

(fn &optional ARG)
(defalias 'markdown-toggle-wiki-links #[256 "\211\301=\203 ?\202 \302!\303V\211\203 \304\305!\210\202  \304\306!\210\307 \207" [markdown-enable-wiki-links toggle prefix-numeric-value 0 message "markdown-mode wiki link support enabled" "markdown-mode wiki link support disabled" markdown-reload-extensions] 4 (#$ . 265790) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@125 Add or remove hooks for fontifying wiki links.
These are only enabled when `markdown-wiki-link-fontify-missing' is non-nil.
(defalias 'markdown-setup-wiki-link-hooks #[0 "\203 	\203 \302\303\304\305\211$\210\202 \306\303\304\305#\210\203* 	\203* \302\307\310\305\211$\210\310 \207\306\307\310\305#\210\311ed\"\207" [markdown-enable-wiki-links markdown-wiki-link-fontify-missing add-hook after-change-functions markdown-check-change-for-wiki-link-after-change t remove-hook window-configuration-change-hook markdown-fontify-buffer-wiki-links markdown-unfontify-region-wiki-links] 5 (#$ . 266338)])
#@307 Follow thing at point if possible, such as a reference link or wiki link.
Opens inline and reference links in a browser.  Opens wiki links
to other files in the current window, or the another window if
ARG is non-nil.
See `markdown-follow-link-at-point' and
`markdown-follow-wiki-link-at-point'.

(fn ARG)
(defalias 'markdown-follow-thing-at-point #[257 "\300 \203\n \301\302 !\207\303 \203 \304!\207\305`!\3068\211\204! \307\310!\210\301!\207" [markdown-link-p markdown--browse-url markdown-link-url markdown-wiki-link-p markdown-follow-wiki-link-at-point markdown-link-at-pos 3 user-error "Nothing to follow at point"] 5 (#$ . 266947) "P"])
#@141 Do something sensible based on context at point.
Jumps between reference links and definitions; between footnote
markers and footnote text.
(defalias 'markdown-do #[0 "\302 \203 \303 \207\304 \203 \305 \207\306!\203 \307 \207\306	!\203% \310\311\312!!\207\313 \203- \314 \207\315 \2036 \316\317!\207\320 \207" [markdown-regex-link-reference markdown-regex-reference-definition markdown-footnote-text-positions markdown-footnote-return markdown-footnote-marker-positions markdown-footnote-goto-text thing-at-point-looking-at markdown-reference-goto-definition markdown-reference-goto-link match-string-no-properties 2 markdown-gfm-task-list-item-at-point markdown-toggle-gfm-checkbox markdown-table-at-point-p call-interactively markdown-table-align markdown-insert-gfm-checkbox] 3 (#$ . 267601) nil])
#@184 Compress whitespace in STR and return result.
Leading and trailing whitespace is removed.  Sequences of multiple
spaces, tabs, and newlines are replaced with single spaces.

(fn STR)
(defalias 'markdown-compress-whitespace-string #[257 "\300\301\302\300\303\304##\207" [replace-regexp-in-string "\\(^[ 	\n]+\\|[ 	\n]+$\\)" "" "[ 	\n]+" " "] 8 (#$ . 268413)])
#@186 Like `substitute-command-keys' but, but prefers control characters.
First pass STRING to `substitute-command-keys' and then
substitute `C-i` for `TAB` and `C-m` for `RET`.

(fn STRING)
(defalias 'markdown--substitute-command-keys #[257 "\300\301\302\300\303\304\305!\306$\306$\207" [replace-regexp-in-string "\\<TAB\\>" "C-i" "\\<RET\\>" "C-m" substitute-command-keys t] 9 (#$ . 268781)])
#@185 Return (narrowed) buffer line number at position POS.
If POS is nil, use current buffer location.
This is an exact copy of `line-number-at-pos' for use in emacs21.

(fn &optional POS)
(defalias 'markdown-line-number-at-pos #[256 "\211\206 `\300\212eb\210`\262b\210\301y\210\302`\"T)\207" [nil 0 count-lines] 6 (#$ . 269179)])
#@37 Return t if point is within a link.
(defalias 'markdown-inside-link-p #[0 "\305 \306\307\"\216\310\311	\205 \312\nP\312\312\f\313\260!)\207" [markdown-regex-link-inline markdown-enable-wiki-links markdown-regex-wiki-link markdown-regex-link-reference markdown-regex-angle-uri match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] thing-at-point-looking-at "\\(?:" "\\|" "\\)"] 10 (#$ . 269515)])
#@75 Return whether the current line is a (non-footnote) reference definition.
(defalias 'markdown-line-is-reference-definition-p #[0 "\212\302\303!\210\304\305!)\262\205 \306\304\305!)\262?)\207" [markdown-regex-reference-definition inhibit-changing-match-data move-beginning-of-line 1 t looking-at "[ 	]*\\[^"] 3 (#$ . 269950)])
#@63 Return prefix for filling paragraph or nil if not determined.
(defalias 'markdown-adaptive-fill-function #[0 "\304\305!\203 \306\307\310\311\312!#\207\304!\203 \313\312\224\314\225\"\207\304	!\203% \311\312!\207\n\315\304!)\262\2033 \316\207\317\207" [markdown-regex-blockquote markdown-regex-list markdown-regex-footnote-definition inhibit-changing-match-data looking-at "^[ 	]*>[ 	]*\\(\\(?:[0-9]+\\|#\\)\\.\\|[*+:-]\\)[ 	]+" replace-regexp-in-string "[0-9\\.*+-]" " " match-string-no-properties 0 buffer-substring-no-properties 2 t "    " nil] 5 (#$ . 270290)])
#@394 Fill paragraph at or after point.
This function is like \[fill-paragraph], but it skips Markdown
code blocks.  If the point is in a code block, or just before one,
do not fill.  Otherwise, call `fill-paragraph' as usual. If
JUSTIFY is non-nil, justify text as well.  Since this function
handles filling itself, it always returns t so that
`fill-paragraph' doesn't run.

(fn &optional JUSTIFY)
(defalias 'markdown-fill-paragraph #[256 "\301 \204( \212\302 \210\303\304!\210\301 )\204( \212\305 b\210\306\307!\205! \310\311!)\312!\210)\313\207" [fill-prefix markdown-code-block-at-point-p back-to-indentation skip-syntax-forward "-" line-beginning-position looking-at "\\([ 	]*>[ 	]*\\(?:>[ 	]*\\)+\\)" match-string-no-properties 1 fill-paragraph t] 3 (#$ . 270868) "P"])
#@318 Function used by `fill-paragraph' to move over ARG paragraphs.
This is a `fill-forward-paragraph-function' for `markdown-mode'.
It is called with a single argument specifying the number of
paragraphs to move.  Just like `forward-paragraph', it should
return the number of paragraphs left to move.

(fn &optional ARG)
(defalias 'markdown-fill-forward-paragraph #[256 "\211\204 \303\262\211\304V\2030 m\204w \211\304V\203w \305\303!\304U\203w \306\307\304!!\204 \211S\211\262\204 \207`\305!\262m\204S \310 \210m\204S \311\312!)\262\203S \303y\210\2026 \312\n!\203_ \304\225b\266\207\312\313!\203k \304\225b\266\207\306\307\314!!\203v \211b\210\210\207" [paragraph-separate inhibit-changing-match-data markdown-regex-list 1 0 forward-paragraph markdown-code-block-at-pos point-at-bol move-to-left-margin t looking-at "^|\\s-*" 2] 5 (#$ . 271647)])
#@130 Function added to `electric-quote-inhibit-functions'.
Return non-nil if the quote has been inserted inside a code block
or span.
(defalias 'markdown--inhibit-electric-quote #[0 "`S\300!\206 \301!\207" [markdown-inline-code-at-pos markdown-code-block-at-pos] 3 (#$ . 272512)])
#@77 Check settings, update font-lock keywords and hooks, and re-fontify buffer.
(defalias 'markdown-reload-extensions #[0 "\300\301!\205 \302 \210\303 \207" [derived-mode-p markdown-mode font-lock-flush markdown-setup-wiki-link-hooks] 2 (#$ . 272797) nil])
#@192 Run in `hack-local-variables-hook' to update font lock rules.
Checks to see if there is actually a ‘markdown-mode’ file local variable
before regenerating font-lock rules for extensions.
(defalias 'markdown-handle-local-variables #[0 "\302\236\204\f \301\236\205 \301\236\203 \303	!\210\304 \207" [file-local-variables-alist markdown-enable-math markdown-enable-wiki-links markdown-toggle-math markdown-reload-extensions] 2 (#$ . 273058)])
#@66 Font lock keywords to add and remove when toggling math support.
(defconst markdown-mode-font-lock-keywords-math (list '("\\((eq:\\)\\([[:alnum:]:_]+\\)\\()\\)" (1 markdown-markup-face) (2 markdown-reference-face) (3 markdown-markup-face)) '("\\(\\\\eqref{\\)\\([[:alnum:]:_]+\\)\\(}\\)" (1 markdown-markup-face) (2 markdown-reference-face) (3 markdown-markup-face))) (#$ . 273513))
#@238 Toggle support for inline and display LaTeX math expressions.
With a prefix argument ARG, enable math mode if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.

(fn &optional ARG)
(defalias 'markdown-toggle-math #[256 "\211\302=\203 ?\202 \303!\304V\211\203! \305\306	\"\210\307\310!\210\202* \311\306	\"\210\307\312!\210\313 \207" [markdown-enable-math markdown-mode-font-lock-keywords-math toggle prefix-numeric-value 0 font-lock-add-keywords markdown-mode message "markdown-mode math support enabled" font-lock-remove-keywords "markdown-mode math support disabled" markdown-reload-extensions] 5 (#$ . 273903) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(define-button-type 'markdown-gfm-checkbox-button 'follow-link t 'face 'markdown-gfm-checkbox-face 'mouse-face 'markdown-highlight-face 'action 'markdown-toggle-gfm-checkbox-button)
#@307 Return non-nil if there is a GFM task list item at the point.
Optionally, the list item BOUNDS may be given if available, as
returned by `markdown-cur-list-item-bounds'.  When a task list item
is found, the return value is the same value returned by
`markdown-cur-list-item-bounds'.

(fn &optional BOUNDS)
(defalias 'markdown-gfm-task-list-item-at-point #[256 "\211\204 \300 \262\3018G\302V\207" [markdown-cur-list-item-bounds 5 0] 3 (#$ . 274829)])
#@79 Add GFM checkbox at point.
Returns t if added.
Returns nil if non-applicable.
(defalias 'markdown-insert-gfm-checkbox #[0 "\301 \211\2039 \211\3028\262?\205\223 \211@AAA@\\\211`W\203) \212\211b\210\303c\210)\202/ \211b\210\303c\210\304A@\305\\!\210\306\207\212\307 \210\310 \206W \311 \206W \312\313\206N `\314\"\262\206W \315 )?\205\223 \212\307 \210`)\212\316\317!\210\301 \3058\262)\206s \303P`W\203\206 \212b\210\211c\210)\202\214 b\210\211c\210\304\320 !\266\306\207" [markdown-unordered-list-item-prefix markdown-cur-list-item-bounds 5 "[ ] " syntax-propertize 4 t back-to-indentation markdown-list-item-at-point-p markdown-heading-at-point nil get-text-property markdown-comment markdown-code-block-at-point-p beginning-of-line 0 point-at-eol] 5 (#$ . 275288) nil])
#@152 Toggle GFM checkbox at point.
Returns the resulting status as a string, either "[x]" or "[ ]".
Returns nil if there is no task list item at the point.
(defalias 'markdown-toggle-gfm-checkbox #[0 "\301 \302\303\"\216\212\304 \211\205B \211@b\210\211AAA@u\210\305\306!\2033 \307\203( \310\202) \311\312\313#\210\314\315!\202B \305\316!\205B \307\317\312\313#\210\314\315!\262*\207" [markdown-gfm-uppercase-checkbox match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-cur-list-item-bounds looking-at "\\[ \\]" replace-match "[X]" "[x]" nil t match-string-no-properties 0 "\\[[xX]\\]" "[ ]"] 6 (#$ . 276081) nil])
#@51 Toggle GFM checkbox BUTTON on click.

(fn BUTTON)
(defalias 'markdown-toggle-gfm-checkbox-button #[257 "\300 \301\302\"\216\212\303!b\210\304 *\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] button-start markdown-toggle-gfm-checkbox] 5 (#$ . 276739)])
#@78 Make GFM checkboxes buttons in region between START and END.

(fn START END)
(defalias 'markdown-make-gfm-checkboxes-buttons #[514 "\212b\210\302\212\303	\302#\205 \304\305\224\305\225\306\307$\210\202 +\207" [case-fold-search markdown-regex-gfm-checkbox t re-search-forward make-button 1 :type markdown-gfm-checkbox-button] 7 (#$ . 277040)])
#@131 Add to `after-change-functions' to setup GFM checkboxes as buttons.
BEG and END are the limits of scanned region.

(fn BEG END _)
(defalias 'markdown-gfm-checkbox-after-change-function #[771 "\212\300 \301\302\"\216\303b\210\304 \210`b\210\305y\210`\")\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markdown-make-gfm-checkboxes-buttons beginning-of-line 1] 7 (#$ . 277395)])
#@45 Remove all GFM checkbox overlays in buffer.
(defalias 'markdown-remove-gfm-checkbox-overlays #[0 "\212\214~\210\300\301\211\302\303$*\207" [remove-overlays nil face markdown-gfm-checkbox-face] 5 (#$ . 277827)])
(defvar markdown-inline-image-overlays nil nil)
(make-variable-buffer-local 'markdown-inline-image-overlays)
#@156 Remove inline image overlays from image links in the buffer.
This can be toggled with `markdown-toggle-inline-images'
or \[markdown-toggle-inline-images].
(defalias 'markdown-remove-inline-images #[0 "\301\302\"\210\303\211\207" [markdown-inline-image-overlays mapc delete-overlay nil] 3 (#$ . 278154) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\207" [custom-declare-variable markdown-display-remote-images funcall function #[0 "\300\207" [nil] 1] "If non-nil, download and display remote images.\nSee also `markdown-inline-image-overlays'.\n\nOnly image URLs specified with a protocol listed in\n`markdown-remote-image-protocols' are displayed." :group markdown :type boolean markdown-remote-image-protocols #[0 "\300\207" [("https")] 1] "List of protocols to use to download remote images.\nSee also `markdown-display-remote-images'." (repeat string)] 8)
#@33 A map from URLs to image paths.
(defvar markdown--remote-image-cache (make-hash-table :test 'equal) (#$ . 279086))
#@52 Retrieve the image path for a given URL.

(fn URL)
(defalias 'markdown--get-remote-image #[257 "\301\"\206 \302\303!\304\305!\210\306\307#\210\310#\262\207" [markdown--remote-image-cache gethash make-temp-file "markdown-mode--image" require url url-copy-file t puthash] 6 (#$ . 279207)])
#@151 Add inline image overlays to image links in the buffer.
This can be toggled with `markdown-toggle-inline-images'
or \[markdown-toggle-inline-images].
(defalias 'markdown-display-inline-images #[0 "\306 \204	 \307\310!\210\212\214~\210eb\210\311\312\313#\205\354 \314\224\315\224\314\225\316\317!\203\347 \211G\314U\204\347 \320!\204\201 	!\3211W \322!\323!\n>\204K \324\325\326D\"\210\211\315H\262\227\2350\202Y \210\312\f\203i \211\203i \327!\266\203\202\201 \211\204 \330\331\332#\262\320!\204 \333!\262\266\320!\203\347 \334!\203\221 \211\202\224 P'\203\260 \335\336!\203\260 \337\336\312\340'@\341'A&\202\311 '\203\306 \337\312\211\340'@\341'A&\202\311 \337!\211\203\345 \342\"\343\344#\210\343\345\346#\210\211(B(\210\266\266\202 *\207" [markdown-regex-link-inline markdown-translate-filename-function cl-struct-url-tags markdown-remote-image-protocols markdown-display-remote-images default-directory display-images-p error "Cannot show images" re-search-forward nil t 0 1 match-string-no-properties 6 file-exists-p (error) url-generic-parse-url type-of signal wrong-type-argument url markdown--get-remote-image replace-regexp-in-string "?.+\\'" "" url-unhex-string file-name-absolute-p image-type-available-p imagemagick create-image :max-width :max-height make-overlay overlay-put display face default markdown-max-image-size markdown-inline-image-overlays] 13 (#$ . 279511) nil])
#@45 Toggle inline image overlays in the buffer.
(defalias 'markdown-toggle-inline-images #[0 "\203 \301 \207\302 \207" [markdown-inline-image-overlays markdown-remove-inline-images markdown-display-inline-images] 1 (#$ . 280950) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\210\300\316\302\303\317DD\320\306\307\310\321\314\322&	\207" [custom-declare-variable markdown-fontify-code-blocks-natively funcall function #[0 "\300\207" [nil] 1] "When non-nil, fontify code in code blocks using the native major mode.\nThis only works for fenced code blocks where the language is\nspecified where we can automatically determine the appropriate\nmode to use.  The language to mode mapping may be customized by\nsetting the variable `markdown-code-lang-modes'." :group markdown :type boolean :safe booleanp :package-version (markdown-mode . "2.3") markdown-fontify-code-block-default-mode #[0 "\300\207" [nil] 1] "Default mode to use to fontify code blocks.\nThis mode is used when automatic detection fails, such as for GFM\ncode blocks with no language specified." (choice function (const :tag "None" nil)) (markdown-mode . "2.4")] 12)
#@147 Toggle the native fontification of code blocks.
With a prefix argument ARG, enable if ARG is positive,
and disable otherwise.

(fn &optional ARG)
(defalias 'markdown-toggle-fontify-code-blocks-natively #[256 "\211\301=\203 ?\202 \302!\303V\211\203 \304\305!\210\202  \304\306!\210\307 \207" [markdown-fontify-code-blocks-natively toggle prefix-numeric-value 0 message "markdown-mode native code block fontification enabled" "markdown-mode native code block fontification disabled" markdown-reload-extensions] 4 (#$ . 282118) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable markdown-code-lang-modes funcall function #[0 "\300\207" [(("ocaml" . tuareg-mode) ("elisp" . emacs-lisp-mode) ("ditaa" . artist-mode) ("asymptote" . asy-mode) ("dot" . fundamental-mode) ("sqlite" . sql-mode) ("calc" . fundamental-mode) ("C" . c-mode) ("cpp" . c++-mode) ("C++" . c++-mode) ("screen" . shell-script-mode) ("shell" . sh-mode) ("bash" . sh-mode))] 1] "Alist mapping languages to their major mode.\nThe key is the language name, the value is the major mode.  For\nmany languages this is simple, but for language where this is not\nthe case, this variable provides a way to simplify things on the\nuser side.  For example, there is no ocaml-mode in Emacs, but the\nmode to use is `tuareg-mode'." :group markdown :type (repeat (cons (string "Language name") (symbol "Major mode"))) :package-version (markdown-mode . "2.3")] 10)
#@119 Return major mode that should be used for LANG.
LANG is a string, and the returned major mode is a symbol.

(fn LANG)
(defalias 'markdown-get-lang-mode #[257 "\301\302\303\"A\303\227\"A\304\305P!\304\227\305P!F\"\207" [markdown-code-lang-modes cl-find-if fboundp assoc intern "-mode"] 9 (#$ . 283653)])
#@110 Add text properties to next code block from point to LAST.
Use matching function MATCHER.

(fn MATCHER LAST)
(defalias 'markdown-fontify-code-blocks-generic #[514 "!\205l \212\302 \303\304\"\216\305\224\305\225b\210n\203 \306\305!\202! \306 b\210n\203. \306\307!\2021 \306\310!\311\203M \312 \211\262\204B 	\203M \313#\210\202S \314\315#\210\316\317\320$\210\314\321#\210\314\322#\266)\210)\323\207" [markdown-fontify-code-blocks-natively markdown-fontify-code-block-default-mode match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] 0 point-at-bol 2 3 nil markdown-code-block-lang markdown-fontify-code-block-natively add-text-properties (face markdown-pre-face) font-lock-append-text-property face markdown-code-face (invisible markdown-markup) (invisible markdown-markup) t] 13 (#$ . 283970)])
#@75 Add text properties to next GFM code block from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-gfm-code-blocks #[257 "\300\301\"\207" [markdown-fontify-code-blocks-generic markdown-match-gfm-code-blocks] 4 (#$ . 284824)])
#@84 Add text properties to next tilde fenced code block from point to LAST.

(fn LAST)
(defalias 'markdown-fontify-fenced-code-blocks #[257 "\300\301\"\207" [markdown-fontify-code-blocks-generic markdown-match-fenced-code-blocks] 4 (#$ . 285060)])
#@263 Fontify given GFM or fenced code block.
This function is called by Emacs for automatic fontification when
`markdown-fontify-code-blocks-natively' is non-nil.  LANG is the
language used in the block. START and END specify the block
position.

(fn LANG START END)
(defalias 'markdown-fontify-code-block-natively #[771 "\203\n \303!\202 \304!\205\201 \305\"\306 p\307\211\310\311#\210r\312\313\314!P!q\210\307ed|\210\315\261\210)\n=\204C  \210\316 \210e\262\317\320\"\211\262\203s \321\320\"\211\203l \322	S\\\n\\S\320%\210\210\211\262\202I )\323\324#\210\325!\266\205\207" [markdown-fontify-code-block-default-mode inhibit-modification-hooks major-mode markdown-get-lang-mode fboundp buffer-substring-no-properties buffer-modified-p nil remove-text-properties (face nil) get-buffer-create " markdown-code-fontification:" symbol-name " " font-lock-ensure next-single-property-change face get-text-property put-text-property add-text-properties (font-lock-fontified t fontified t font-lock-multiline t) set-buffer-modified-p] 16 (#$ . 285312)])
(require 'edit-indirect nil t)
#@187 Corrective logic run on code block content from lines BEG to END.
Restores code block indentation from BEG to END, and ensures trailing newlines
at the END of code blocks.

(fn BEG END)
(defalias 'markdown--edit-indirect-after-commit-function #[514 "\211b\210`Sf\300=\204 \301c\210Sb\210\302 \211\303V\205 \304#\207" [10 "\n" current-indentation 0 indent-rigidly] 7 (#$ . 286427)])
#@49 Edit Markdown code block in an indirect buffer.
(defalias 'markdown-edit-code-block #[0 "\212\302\303!\203k \304 \211\205 \211@b\205 \305\306!\205$ A@b\205$ \305\307!\203c \211\203c @b\2054 \310 \311 \211\203@ \312!\206A \313\314\"\303\315#\316V\205] r\211q\210\317ed[#))\266\207\202z \320\321!\266\203\202z \322\323!\205z \324 \210\325\326!\210\327 )\207" [markdown-edit-code-block-default-mode edit-indirect-guess-mode-function fboundp edit-indirect-region markdown-get-enclosing-fenced-block-construct point-at-bol 2 1 current-indentation markdown-code-block-lang markdown-get-lang-mode make-closure #[771 "\300 \207" [V0] 4 "\n\n(fn PARENT-BUFFER BEG END)"] display-buffer 0 indent-rigidly user-error "Not inside a GFM or tilde fenced code block" y-or-n-p "Package edit-indirect needed to edit code blocks. Install it now? " package-refresh-contents package-install edit-indirect markdown-edit-code-block] 11 (#$ . 286821) nil])
#@27 

(fn SYMBOLS &rest BODY)
(defalias 'markdown--with-gensyms '(macro . #[385 "\300\301\302\"BB\207" [let mapcar #[257 "\211\300\301\302\303\304DDEDD\207" [make-symbol concat "--" symbol-name quote] 8 "\n\n(fn S)"]] 6 (#$ . 287775)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put markdown--with-gensyms edebug-form-spec (sexp body) function-put lisp-indent-function 1] 4)
#@268 Splits STRING into substrings at SEPARATORS.
SEPARATORS is a regular expression. If nil it defaults to
`split-string-default-separators'. This version returns no empty
strings if there are matches at the beginning and end of string.

(fn STRING &optional SEPARATORS)
(defalias 'markdown--split-string #[513 "\301\302\211\303\206	 \203# \301\224U\203# GW\203# T\202$ #\203Y \301\224GW\203Y \304\262\301\224\301=\204R \301\224\301\225=\203I \301\224=\204R \301\224OB\262\301\225\262\202 G=\204h \302OB\262\211\237\207" [split-string-default-separators 0 nil string-match t] 10 (#$ . 288176)])
#@113 Return width of string S.
This version ignores characters with invisibility property
`markdown-markup'.

(fn S)
(defalias 'markdown--string-width #[257 "\301\302=\204 \303>\2034 \304\305G\306\303%\211\262\2034 \305O\307\306#\206, G\301OP\262\202 \210\310!\207" [buffer-invisibility-spec nil t markdown-markup text-property-any 0 invisible next-single-property-change string-width] 8 (#$ . 288800)])
#@125 Remove Markdown markup from string S.
This version removes characters with invisibility property
`markdown-markup'.

(fn S)
(defalias 'markdown--remove-invisible-markup #[257 "\300\301\302G\303\304%\211\262\203( \302O\305\303#\206  G\300OP\262\202 \210\207" [nil text-property-any 0 invisible markdown-markup next-single-property-change] 8 (#$ . 289223)])
#@177 Function to decide if point is inside a table.

The indirection serves to differentiate between standard markdown
tables and gfm tables which are less strict about the markup.
(defvar markdown-table-at-point-p-function nil (#$ . 289599))
#@42 Regexp matching any line inside a table.
(defconst markdown-table-line-regexp "^[ 	]*|" (#$ . 289843))
#@39 Regexp matching hline inside a table.
(defconst markdown-table-hline-regexp "^[ 	]*|[-:]" (#$ . 289952))
#@39 Regexp matching dline inside a table.
(defconst markdown-table-dline-regexp "^[ 	]*|[^-:]" (#$ . 290063))
#@46 Return non-nil when point is inside a table.
(defalias 'markdown-table-at-point-p #[0 "\301!\203	  \207\302 \207" [markdown-table-at-point-p-function functionp markdown--table-at-point-p] 2 (#$ . 290175)])
#@46 Return non-nil when point is inside a table.
(defalias 'markdown--table-at-point-p #[0 "\212\302 \210\303\304!)\262\205 \305 ?)\207" [markdown-table-line-regexp inhibit-changing-match-data beginning-of-line t looking-at markdown-code-block-at-point-p] 3 (#$ . 290389)])
#@42 Regexp matching any line inside a table.
(defconst gfm-table-line-regexp "^.?*|" (#$ . 290670))
#@39 Regexp matching hline inside a table.
(defconst gfm-table-hline-regexp "^-+\\(|-\\)+" (#$ . 290772))
#@61 Return non-nil when point is inside a gfm-compatible table.
(defalias 'gfm--table-at-point-p #[0 "\303 \206\\ \212\304 \210\305\306!)\262\205[ \212\307y\210\n\305\306!)\262)\206[ \3102[ \305\306!)\262\203Y \n\305\306!)\262\203J \311\310\305\"\210\202S o\203S \311\310\312\"\210\313y\210\202* \3120)\207" [gfm-table-line-regexp inhibit-changing-match-data gfm-table-hline-regexp markdown--table-at-point-p beginning-of-line t looking-at 1 done throw nil -1] 3 (#$ . 290879)])
#@96 Return non-nil when point is on a hline in a table.
This function assumes point is on a table.
(defalias 'markdown-table-hline-at-point-p #[0 "\212\302 \210\303\304!)\262)\207" [markdown-table-hline-regexp inhibit-changing-match-data beginning-of-line t looking-at] 3 (#$ . 291374)])
#@101 Find the beginning of the table and return its position.
This function assumes point is on a table.
(defalias 'markdown-table-begin #[0 "\212o\204 \300 \203 \301y\210\202 m\204 \300 \204 \302y\210`)\207" [markdown-table-at-point-p -1 1] 1 (#$ . 291669)])
#@95 Find the end of the table and return its position.
This function assumes point is on a table.
(defalias 'markdown-table-end #[0 "\212m\204 \300 \203 \301y\210\202 `)\207" [markdown-table-at-point-p 1] 1 (#$ . 291935)])
#@90 Return index of the table data line at point.
This function assumes point is on a table.
(defalias 'markdown-table-get-dline #[0 "`\301 \302\212\303 b\210\304\305#\203  \211T\211\262\203  \306 W\204	 )\207" [markdown-table-dline-regexp markdown-table-end 0 markdown-table-begin re-search-forward t point-at-eol] 7 (#$ . 292163)])
#@12 

(fn POS)
(defalias 'markdown--thing-at-wiki-link #[257 "\205 \212\302 \303\304\"\216b\210\305	!)\262)\207" [markdown-enable-wiki-links markdown-regex-wiki-link match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] thing-at-point-looking-at] 5 (#$ . 292503)])
#@74 Return table column at point.
This function assumes point is on a table.
(defalias 'markdown-table-get-column #[0 "`\300\212\301 \210\302\303\304#\203 \305\300\224!\204 \211T\262\202 )\207" [0 beginning-of-line search-forward "|" t markdown--thing-at-wiki-link] 6 (#$ . 292803)])
#@152 Return the content of the cell in column N of current row.
N defaults to column at point. This function assumes point is on
a table.

(fn &optional N)
(defalias 'markdown-table-get-cell #[256 "\211\203 \300!\210\301\302x\210\303u\210\304\305!\2034 \306\224\211T\306\225{\307 \310\\^b\210\311\312\313#\262\311\314\313#\211\262\207\315u\210\313\207" [markdown-table-goto-column "^|\n" nil -1 looking-at "|[^|\n]*" 0 point-at-eol 2 replace-regexp-in-string "\\`[ 	]+" "" "[ 	]+\\'" 1] 7 (#$ . 293095)])
#@145 Go to the Nth data line in the table at point.
Return t when the line exists, nil otherwise. This function
assumes point is on a table.

(fn N)
(defalias 'markdown-table-goto-dline #[257 "\301 b\210\302 \303\304\305#\203 \211T\211\262W\204 \211U\207" [markdown-table-dline-regexp markdown-table-begin markdown-table-end 0 re-search-forward t] 7 (#$ . 293610)])
#@275 Go to the Nth column in the table line at point.
With optional argument ON-DELIM, stop with point before the left
delimiter of the cell. If there are less than N cells, just go
beyond the last delimiter. This function assumes point is on a
table.

(fn N &optional ON-DELIM)
(defalias 'markdown-table-goto-column #[513 "\300\301!\210\302V\2056 \302V\203' \303\304\305 \306#\203' \307\302\224!\204\n S\262\202\n \211\203. \310u\207\311\312!\2056 \301u\207" [beginning-of-line 1 0 search-forward "|" point-at-eol t markdown--thing-at-wiki-link -1 looking-at " "] 6 (#$ . 293985)])
#@112 Save cell at point, execute BODY and restore cell.
This function assumes point is on a table.

(fn &rest BODY)
(defalias 'markdown-table-save-cell '(macro . #[128 "\300\301!\300\302!\303\304B\305BD\306\307B\310D\311D\312\313BB\257E\207" [make-symbol "--line" "--column" let ((copy-marker (line-beginning-position))) ((markdown-table-get-column)) unwind-protect progn goto-char markdown-table-goto-column set-marker (nil)] 12 (#$ . 294574)]))
(put 'markdown-table-save-cell 'edebug-form-spec '(body))
#@62 Convert a table line S into a line with blank cells.

(fn S)
(defalias 'markdown-table-blank-line #[257 "\300\301\"\203 \302\303\304#\211\262\207\305\306\307\"r\211q\210\310\311\"\216c\210eb\210\312\313\314\307#\205j `\314\312\313\314\307#\203[ \315\224\206; `Sf\316=\204- \317\315\224!\204- \320\315\224Z\321\"B\262\315\225\262\202- \322\323\237\313\302\324#\266\202\"\266\202*\207" [string-match "^[ 	]*|-" mapconcat #[257 "\211\300>\203 \301\207\302\207" [(124 43) "|" " "] 3 "\n\n(fn X)"] "" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "|" nil 0 92 markdown--thing-at-wiki-link make-string 32 format "|%s|" identity] 12 (#$ . 295091)])
#@70 Process column alignment specifier FMTSPEC for tables.

(fn FMTSPEC)
(defalias 'markdown-table-colfmt #[257 "\211;\205\f \300\301\302\303\"\"\207" [mapcar #[257 "\301\302\303\304#)\266\203\203 \305\207\306\302\303\304#)\266\203\203$ \307\207\310\302\303\304#)\266\203\2036 \311\207\312\207" [inhibit-changing-match-data "^:.*:$" nil t string-match c "^:" l ":$" r d] 8 "\n\n(fn X)"] markdown--split-string "\\s-*|\\s-*"] 6 (#$ . 295837)])
#@16 

(fn BAR-POS)
(defalias 'markdown--first-column-p #[257 "\212\300 \301\302\"\216b\210\303\304\305 \")\262)\207" [match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] looking-back "^\\s-*" line-beginning-position] 5 (#$ . 296299)])
#@13 

(fn LINE)
(defalias 'markdown--table-line-to-columns #[257 "\300\301\302\"r\211q\210\303\304\"\216c\210eb\210`\305\306\307\305\302#\203V \310\311\224!\203+ \312\225\262\202 \311\224\2061 `Sf\313=\203? \311\225b\210\202 \314\311\224!\204 \315\312\224\"B\262\312\225\262\202 GW\203e \315d\"B\262\211\237\266\202*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	 \302\300!\207" [V0 buffer-name kill-buffer] 2] nil re-search-forward "\\s-*\\(|\\)\\s-*" markdown--first-column-p 1 0 92 markdown--thing-at-wiki-link buffer-substring-no-properties] 8 (#$ . 296569)])
#@66 Align table at point.
This function assumes point is on a table.
(defalias 'markdown-table-align #[0 "\300 \301\302 !\301\303 !\304 \305\306#\216b\210\307C\310\311!\210\312\313!\314\305\315\"\316{\317\"\"\314\320\321\307\"\"\211\203A \322\323\314\324\"\"\202D \325\326!\327\330\"\307\313\211W\203o \211\314\305\331\"\"\322\323\332\314\333\"#B\262\266\211T\262\202K \266\211\237\262\334\242!\240\210\335P\335P\307\211\211\211\203\337 \211@\242\211\242A\240\210\242\262\336\267\202\275 \337\262\340\262\202\303 \341\262\342\262\202\303 \343\262\340\262\202\303 \344\262\340\262\345\"P\262\345\346\347\"\"P\262A\266\202\202\211 \313\350O\335P\262\210	\211\203-\211@\211\203\322\345\351\211A\262\242\"#\202	`\352 {\211\232\203\307y\266\202&\317\261\210`\303\353!|\266A\266\202\202\352 \266	\307\211\223\266\207)\207" [markdown-table-begin copy-marker markdown-table-end line-beginning-position markdown-table-get-column make-closure #[0 "\300b\210\302\301!\210\300\303\211\223\207" [V0 V1 markdown-table-goto-column nil] 3] nil looking-at "[ 	]*" match-string 0 mapcar #[257 "\302\303\304\305#)\266\203\203 \300\211\242\206 \240\210\303\207\207" [V0 inhibit-changing-match-data "\\`[ 	]*|[ 	]*[-:]" nil t string-match] 8 "\n\n(fn L)"] markdown--split-string "\n" #[257 "\300!\207" [markdown--table-line-to-columns] 3 "\n\n(fn L)"] remq apply max length user-error "Empty table" make-list #1="" #[257 "\3008\206 \301\207" [V0 #1#] 3 "\n\n(fn X)"] 1 markdown--string-width markdown-table-colfmt "|" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (l 162 r 171 c 180)) ":%s-|" " %%-%ds |" "-%s:|" " %%%ds |" ":%s:|" "-%s-|" format make-string 45 -1 append line-end-position 2] 24 (#$ . 297175) nil])
#@135 Insert a new row above the row at point into the table.
With optional argument ARG, insert below the current row.

(fn &optional ARG)
(defalias 'markdown-table-insert-row #[256 "\300 \204	 \301\302!\210\303 \304 {\305!\306\203 \307\202 \310!\210n\204$ \311c\210\312\311\"\210\306\313!\210\314\315\304 \316#\207" [markdown-table-at-point-p user-error "Not at a table" line-beginning-position line-end-position markdown-table-blank-line beginning-of-line 2 1 "\n" insert-before-markers 0 re-search-forward "| ?" t] 7 (#$ . 299006) "P"])
#@56 Delete row or horizontal line at point from the table.
(defalias 'markdown-table-delete-row #[0 "\300 \204	 \301\302!\210i\303\304 \305 Td^\"\210\300 \204 \306\307!\210\310!\207" [markdown-table-at-point-p user-error "Not at a table" kill-region point-at-bol point-at-eol beginning-of-line 0 move-to-column] 5 (#$ . 299552) nil])
#@90 Move table line at point down.
With optional argument UP, move it up.

(fn &optional UP)
(defalias 'markdown-table-move-row #[256 "\300 \204	 \301\302!\210i`\203 \303\202 \304\305\306!\210\300 \204% b\210\301\307!\210b\210\306\310!\210`\262`\311 T{\262`\311 T|\210\306!\210\211c\210\306\303!\210\312!\207" [markdown-table-at-point-p user-error "Not at a table" 0 2 nil beginning-of-line "Cannot move row further" 1 point-at-eol move-to-column] 7 (#$ . 299890) "P"])
#@29 Move table row at point up.
(defalias 'markdown-table-move-row-up #[0 "\300\301!\207" [markdown-table-move-row up] 2 (#$ . 300372) nil])
#@31 Move table row at point down.
(defalias 'markdown-table-move-row-down #[0 "\300\301!\207" [markdown-table-move-row nil] 2 (#$ . 300515) nil])
#@28 Insert a new table column.
(defalias 'markdown-table-insert-column #[0 "\300 \204	 \301\302!\210\303\304 ]\305 \306\307 !\306\310 !\304 \311\312#\216b\210`W\203A \313\314\"\210\315 \2038 \316c\210\202; \317c\210\320y\210\202\" )\266\211\320\211\223\210\321 \207" [markdown-table-at-point-p user-error "Not at a table" 1 markdown-table-get-column markdown-table-begin copy-marker markdown-table-end line-beginning-position make-closure #[0 "\300b\210\302\301!\210\300\303\211\223\207" [V0 V1 markdown-table-goto-column nil] 3] markdown-table-goto-column t markdown-table-hline-at-point-p "|---" "|   " nil markdown-table-align] 9 (#$ . 300663) nil])
#@36 Delete column at point from table.
(defalias 'markdown-table-delete-column #[0 "\300 \204	 \301\302!\210\303 \304 \305\306 !\305\307 !\303 \310\311#\216b\210`W\203; \312\313\"\210\314\315!\2035 \316\317!\210\320y\210\202  )\266\211\320\211\223\210\312\321S]!\210\322 \207" [markdown-table-at-point-p user-error "Not at a table" markdown-table-get-column markdown-table-begin copy-marker markdown-table-end line-beginning-position make-closure #[0 "\300b\210\302\301!\210\300\303\211\223\207" [V0 V1 markdown-table-goto-column nil] 3] markdown-table-goto-column t looking-at "|[^|\n]+|" replace-match "|" nil 1 markdown-table-align] 9 (#$ . 301324) nil])
#@113 Move table column at point to the right.
With optional argument LEFT, move it to the left.

(fn &optional LEFT)
(defalias 'markdown-table-move-column #[256 "\300 \204	 \301\302!\210\303 \203 \211S\202 \211\203 S\202  T\304 \305\306 !\2034 \307U\2034 \301\310!\210\204B \311\312!\203B \301\313!\210\305\314 !\303 \315\316#\216b\210`W\203m \317\320\"\210\311\321!\203g \322\323!\210\324y\210\202Q )\266\211\324\211\223\210\317!\210\325 \207" [markdown-table-at-point-p user-error "Not at a table" markdown-table-get-column markdown-table-begin copy-marker markdown-table-end 1 "Cannot move column further left" looking-at "[^|\n]*|[^|\n]*$" "Cannot move column further right" line-beginning-position make-closure #[0 "\300b\210\302\301!\210\300\303\211\223\207" [V0 V1 markdown-table-goto-column nil] 3] markdown-table-goto-column t "|\\([^|\n]+\\)|\\([^|\n]+\\)|" replace-match "|\\2|\\1|" nil markdown-table-align] 12 (#$ . 301992) "P"])
#@41 Move table column at point to the left.
(defalias 'markdown-table-move-column-left #[0 "\300\301!\207" [markdown-table-move-column left] 2 (#$ . 302954) nil])
#@42 Move table column at point to the right.
(defalias 'markdown-table-move-column-right #[0 "\300\301!\207" [markdown-table-move-column nil] 2 (#$ . 303119) nil])
#@84 Go to the next row (same column) in the table.
Create new table lines if required.
(defalias 'markdown-table-next-row #[0 "\300 \204	 \301\302!\210\303\304!\204 \212\305\306x\210n)\203 \307 \207\310 \210\311 \312\313!\210\300 \203/ \314 \2037 \312\315!\210\316\317!\210\320!\210\321\306x\210\303\322!\205G \323u\207" [markdown-table-at-point-p user-error "Not at a table" looking-at "[ 	]*$" " 	" nil newline markdown-table-align markdown-table-get-column beginning-of-line 2 markdown-table-hline-at-point-p 0 markdown-table-insert-row below markdown-table-goto-column "^|\n" " " 1] 3 (#$ . 303285) nil])
#@71 Go to the next cell in the table.
Create new table lines if required.
(defalias 'markdown-table-forward-cell #[0 "\300 \204	 \301\302!\210\303 \210\304 \305 \203 \306\210\3071V \310\311\"\210\312\313!\203* \310\314\"\210\312\315!\203< \310\316\317#\203< \306\224b\210\312\315!\203L \320\321!\210\322\323!\202T \312\324!\205T \306u0\207\210\322\323!\207" [markdown-table-at-point-p user-error "Not at a table" markdown-table-align markdown-table-end markdown-table-hline-at-point-p 1 (error) re-search-forward "\\(?:^\\|[^\\]\\)|" looking-at "[ 	]*$" "\\(?:^\\|[^\\]:\\)|" "[-:]" "^\\(?:[ 	]*\\|[^\\]\\)|\\([^-:]\\)" t beginning-of-line 0 markdown-table-insert-row below " "] 5 (#$ . 303900) nil])
#@39 Go to the previous cell in the table.
(defalias 'markdown-table-backward-cell #[0 "\300 \204	 \301\302!\210\303 \210\304 \203 \305\306!\210\30716 \310\311\312 \"\210`\313 U\203, \310\311\312 \"\210\310\311\312 \"0\210\202; \210\301\314!\210\315\316!\203E \317\225b\210\304 \205L \320 \207" [markdown-table-at-point-p user-error "Not at a table" markdown-table-align markdown-table-hline-at-point-p beginning-of-line 1 (error) re-search-backward "\\(?:^\\|[^\\]\\)|" markdown-table-begin line-beginning-position "Cannot move to previous table cell" looking-at "\\(?:^\\|[^\\]\\)| ?" 0 markdown-table-backward-cell] 3 (#$ . 304608) nil])
#@74 Transpose table at point.
Horizontal separator lines will be eliminated.
(defalias 'markdown-table-transpose #[0 "\300 \204	 \301\302!\210\303\304 \305 \"\306\307\310\311\312\313\"\"\"\314 \315 \310\316\317\"@\"\304 b\210\212\320\321!\210\322u\210`\305 |\210\323\324\325#c\210)\326!\210\327!\266\330 \207" [markdown-table-at-point-p user-error "Not at a table" buffer-substring-no-properties markdown-table-begin markdown-table-end delq nil mapcar #[257 "\302\303\304#)\266\203?\205 \305!\207" [markdown-table-hline-regexp inhibit-changing-match-data nil t string-match markdown--table-line-to-columns] 8 "\n\n(fn X)"] markdown--split-string "[ 	]*\n[ 	]*" markdown-table-get-dline markdown-table-get-column make-closure #[257 "\300C\301\302\303\"\300\"\207" [V0 mapcar make-closure #[257 "\300\242\211@\211A\240\210\266\202\242\300\211\242A\240\210\207" [V0] 6 "\n\n(fn _)"]] 6 "\n\n(fn _)"] re-search-forward "|" -1 mapconcat #[257 "\300\301\302\303#\304Q\207" ["| " mapconcat identity " | " " |\n"] 6 "\n\n(fn X)"] "" markdown-table-goto-dline markdown-table-goto-column markdown-table-align] 9 (#$ . 305251) nil])
#@900 Sort table lines according to the column at point.

The position of point indicates the column to be used for
sorting, and the range of lines is the range between the nearest
horizontal separator lines, or the entire table of no such lines
exist. If point is before the first column, user will be prompted
for the sorting column. If there is an active region, the mark
specifies the first line and the sorting column, while point
should be in the last line to be included into the sorting.

The command then prompts for the sorting type which can be
alphabetically or numerically. Sorting in reverse order is also
possible.

If SORTING-TYPE is specified when this function is called from a
Lisp program, no prompting will take place. SORTING-TYPE must be
a character, any of (?a ?A ?n ?N) where the capital letters
indicate that sorting should be done in reverse order.

(fn &optional SORTING-TYPE)
(defalias 'markdown-table-sort-lines #[256 "\301 \204	 \302\303!\210\304 \211\305V\203 \211\202\" \306\307!\203! \310\311!\202\" \312\262\206+ \313\314!\214\315 \203F \212\316 b\210\317 )\212\320 b\210\321 )}\210\202n \322 \323 \212\324\325#\203Y \317\326!\202Z )\212\327\325#)\203j \305\224\202k }\266\211\330\267\202| \331\202\200 \332\202\200 \302\333\"\334\267\202\216 \335\202\217 \336\202\217 \337eb\210\340\341>\342\343\344\345	#\337&\210eb\266\202)\207" [markdown-table-hline-regexp markdown-table-at-point-p user-error "Not at a table" markdown-table-get-column 0 called-interactively-p any read-number "Use column N for sorting: " 1 read-char-exclusive "Sort type: [a]lpha [n]umeric (A/N means reversed): " region-active-p region-beginning line-beginning-position region-end line-end-position markdown-table-begin markdown-table-end re-search-backward t 2 re-search-forward #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (97 116 65 116 110 120 78 120)) markdown--remove-invisible-markup string-to-number "Invalid sorting type: %c" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (110 134 78 134 97 138 65 138)) < string< nil sort-subr (65 78) #[0 "\301y\210m?\205 \302!?\205 \301y\210\202 \207" [markdown-table-dline-regexp nil looking-at] 2] end-of-line make-closure #[0 "\301\302\300!!\207" [V0 V1 markdown-table-get-cell] 3]] 13 (#$ . 306395) nil])
#@701 Convert region from BEGIN to END to table with SEPARATOR.

If every line contains at least one TAB character, the function
assumes that the material is tab separated (TSV). If every line
contains a comma, comma-separated values (CSV) are assumed. If
not, lines are split at whitespace into cells.

You can use a prefix argument to force a specific separator:
\[universal-argument] once forces CSV, \[universal-argument]
twice forces TAB, and \[universal-argument] three times will
prompt for a regular expression to match the separator, and a
numeric argument N indicates that at least N consecutive
spaces, or alternatively a TAB should be used as the separator.

(fn BEGIN END &optional SEPARATOR)
(defalias 'markdown-table-convert-region #[770 "^\211]\300b\210\301\302!\210\303 \262b\210n\203 \304u\210\202\" \302\210\303 \262\305\232\2031 \306\307!\262\204S b\210\310\311\312#\204D \313\202Q \310\314\312#\204P \315\202Q \302\262b\210\316\232\203\271 `W\203\317\320!\203n \321c\210\202\\ \317\322!\203 \323\324!\210\301\325!\210\202\\ \317\326!\203\225 \323\327!\210\317\330!\203\\ \330c\210\202\\ \317\331!\203\242 \332\225b\210\202\\ \317\333!\203\257 \323\334!\210\202\\ \301\325!\210\202\\ \202\335\267\202\307 \336\202\356 \337\202\356 \250\203\337 \302W\203\330 \340\341!\202\356 \342\343\"\202\356 ;\203\353 \342\344\"\202\356 \345\346!\262\310\312#\203\323\321\312\211#\210\202\360 b\210\347 \207" [nil beginning-of-line 1 point-marker -1 (64) read-regexp "Regexp for cell separator: " re-search-forward "^[^\n	]+$" t (16) "^[^\n,]+$" (4) (4) looking-at "^" "| " "[ 	]*$" replace-match " |" 2 "[ 	]*\"\\([^\"\n]*\\)\"" "\\1" "\"" "[^,\n]+" 0 "[ 	]*," " | " #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ((4) 191 (16) 195)) "^\\|\"?[ 	]*,[ 	]*\"?" "^\\|	" user-error "Cell separator must contain one or more spaces" format "^ *\\| *	 *\\| \\{%d,\\}" "^ *\\|%s" error "Invalid cell separator" markdown-table-align] 10 (#$ . 308761) "r\nP"])
#@169 Insert an empty pipe table.
Optional arguments ROWS, COLUMNS, and ALIGN specify number of
rows and columns and the column alignment.

(fn &optional ROWS COLUMNS ALIGN)
(defalias 'markdown-insert-table #[768 "\206	 \300\301\302!!\206 \300\301\303!!\206 \301\304!\211\305\267\202+ \306\202, \307\202, \310\202, \311`\312i\313\"\314\315\316\317	\320\"$\321P\314\315\316\317\n	\316P\"$\322\323\324\325 `\"\"\203\\ \326\327!\210\202_ \330 \210\331\211W\203t \332c\266\211T\262\202b \266b\210\327V\203\213 \327\210\321Pc\210b\210\333 \207" [string-to-number read-string "Row size: " "Column size: " "Alignment ([l]eft, [r]ight, [c]enter, or RET for default): " #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("l" 31 "r" 35 "c" 39)) ":--" "--:" ":-:" "---" make-string 32 apply concat "|" make-list "   |" "\n" string-match "^[ 	]*$" buffer-substring-no-properties point-at-bol beginning-of-line 1 newline 0 nil markdown-table-forward-cell] 18 (#$ . 310797) nil])
#@174 Return a helpful string when appropriate based on context.
* Report URL when point is at a hidden URL.
* Report language name when point is a code block with hidden markup.
(defalias 'markdown-eldoc-function #[0 "\304!\204\f \304	!\203] \n\204 \203] \305\306!\307\230\310\203\" \311\202# \312!\313\314\315#\305\316!\317\230\211\2036 \320\2027 \321\322\323\203T \313\317\314\324#\313\325\326!\314\327#\313\330\314\324#Q\202[ \313\325\326!\314\331#$\207\332 \205\206 \333`\334\"?\205\206 \205\206 \212\335 )\211\204y \336\262\322\337\313\314\340#\310\341!#\262\207" [markdown-regex-link-inline markdown-regex-link-reference markdown-hide-urls markdown-hide-markup thing-at-point-looking-at match-string 1 "!" markdown--substitute-command-keys "\\[markdown-insert-image]" "\\[markdown-insert-link]" propertize face font-lock-constant-face 5 "[" "reference" "URL" format "Hidden %s (%s to edit): %s" markdown-markup-face match-string-no-properties 6 markdown-reference-face "]" markdown-url-face markdown-code-block-at-point-p get-text-property markdown-pre markdown-code-block-lang "[unspecified]" "Hidden code block language: %s (%s to toggle markup)" markdown-language-keyword-face "\\[markdown-toggle-markup-hiding]"] 15 (#$ . 311825)])
#@44 Show the version number in the minibuffer.
(defalias 'markdown-show-version #[0 "\301\302\"\207" [markdown-mode-version message "markdown-mode, version %s"] 3 (#$ . 313080) nil])
#@36 Open the `markdown-mode' homepage.
(defalias 'markdown-mode-info #[0 "\300\301!\207" [browse-url "https://jblevins.org/projects/markdown-mode/"] 2 (#$ . 313266) nil])
(defvar markdown-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [markdown-mode-hook variable-documentation put "Hook run after entering Markdown mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp markdown-mode-map definition-name markdown-mode] 4)
(defvar markdown-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [markdown-mode-abbrev-table markdown-mode-map variable-documentation put purecopy "Keymap for `markdown-mode'." boundp markdown-mode-syntax-table definition-name markdown-mode (lambda (#1=#:def-tmp-var) (defvar markdown-mode-syntax-table #1#)) make-syntax-table "Syntax table for `markdown-mode'." (lambda (#1#) (defvar markdown-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `markdown-mode'." derived-mode-parent text-mode] 5)
#@234 Major mode for editing Markdown files.

In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `markdown-mode-hook', as the final or
penultimate step during initialization.

\{markdown-mode-map}
(defalias 'markdown-mode #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R @=\204R \326\325@C#\210\327!\210\330\f!\210@\331A\306\332!\210\333\306\334!\210\335\306\336!\210\337\306\340!\210\341 \306\342!\210\343\"\306\344!\210\307$\306\345!\210\346%\347\350\351\"\210\347\352\353\307\211$\210\306\354!\210\355,\356d!\210\357BC\203\267 \360\361!\210\202\273 \362\361!\210\363 \210D\203\307 \364\307!\210\347\365\366\343\307$\210E\203\327 \367\202\330 \370F\306\371!\210\3729\306\373!\210\374;\306\375!\210\376=\306\377!\210\201U \201V \201W \201X #?\306\201G !\210\201U \201V \201Y \201X #G\306\201H !\210\201Z H\306\201I !\210\201[ I\306\201J !\210\201\\ J\306\201K !\210\201] K\306\201M !\210LM\306\201N !\210\201^ N\360\201_ !\210\201` \201a \201b \201c B\201d \343$\210\347\201e \201f \343\307$\210\347\201e \201g \343\307$\210\306\201P !\210OP\306\201Q !\210\201h Q\306\201R !\210\201i R\347\201j \201k \343\201l $\210S\203\326\201S ed\"\210\347\201m \201n \307\211$\210\347\201o \201p \307\211$\210\347\201q \201r \343\201s $\210T\203\363\347\201t \201u \343\307$\210\347\201v \201w \307\211$\210\347\201x \201y \307\211$\210)\201z \201{ !\207" [delay-mode-hooks major-mode mode-name markdown-mode-map markdown-mode-syntax-table markdown-mode-abbrev-table make-local-variable t text-mode markdown-mode "Markdown" 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 4 comment-start "<!-- " comment-end " -->" comment-start-skip "<!--[ 	]*" comment-column 0 comment-auto-fill-only-comments nil comment-use-syntax sentence-end-base "[.?!…‽][]\"'”’)}»›*_`~]*" add-hook syntax-propertize-extend-region-functions markdown-syntax-propertize-extend-region jit-lock-after-change-extend-region-functions markdown-font-lock-extend-region-function syntax-propertize-function markdown-syntax-propertize syntax-propertize (markdown-mode-font-lock-keywords nil nil nil nil (font-lock-multiline . t) (font-lock-syntactic-face-function . markdown-syntactic-face) (font-lock-extra-managed-props composition display invisible rear-nonsticky keymap help-echo mouse-face)) add-to-invisibility-spec markdown-markup remove-from-invisibility-spec markdown-setup-wiki-link-hooks markdown-toggle-math hack-local-variables-hook markdown-handle-local-variables markdown-imenu-create-nested-index markdown-imenu-create-flat-index beginning-of-defun-function markdown-beginning-of-defun end-of-defun-function markdown-end-of-defun fill-paragraph-function markdown-fill-paragraph paragraph-start local-abbrev-table tab-width font-lock-defaults markdown-hide-markup markdown-enable-math markdown-nested-imenu-heading-index imenu-create-index-function paragraph-separate adaptive-fill-first-line-regexp adaptive-fill-regexp adaptive-fill-function fill-forward-paragraph-function markdown-regex-header outline-regexp outline-level markdown-indent-function indent-line-function indent-region-function flyspell-generic-check-word-predicate markdown-make-gfm-checkboxes-buttons markdown-marginalize-headers mapconcat identity ("\f" "[ 	\f]*$" "\\(?:[ 	]*>\\)+[ 	\f]*$" "[ 	]*[*+-][ 	]+" "[ 	]*\\(?:[0-9]+\\|#\\)\\.[ 	]+" "[ 	]*\\[\\S-*\\]:[ 	]+" "[ 	]*:[ 	]+" "^|") "\\|" ("[ 	\f]*$" "\\(?:[ 	]*>\\)+[ 	\f]*$" ".*  $" "^#+" "[ 	]*\\[\\^\\S-*\\]:[ 	]*$") "\\`[ 	]*[A-Z]?>[ 	]*?\\'" "\\s-*" markdown-adaptive-fill-function markdown-fill-forward-paragraph markdown-outline-level (outline . t) advice--add-function :before-until #[0 "\300\301!\207" [advice--buffer-local eldoc-documentation-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local eldoc-documentation-function] 4 "\n\n(fn GV--VAL)"] markdown-eldoc-function fill-nobreak-predicate markdown-line-is-reference-definition-p markdown-pipe-at-bol-p markdown--indent-region markdown-flyspell-check-word-p electric-quote-inhibit-functions markdown--inhibit-electric-quote :local after-change-functions markdown-gfm-checkbox-after-change-function change-major-mode-hook markdown-remove-gfm-checkbox-overlays edit-indirect-after-commit-functions markdown--edit-indirect-after-commit-function local window-configuration-change-hook markdown-marginalize-update-current after-save-hook markdown-live-preview-if-markdown kill-buffer-hook markdown-live-preview-remove-on-kill run-mode-hooks markdown-mode-hook] 5 (#$ . 314608) nil])
(add-to-list 'auto-mode-alist '("\\.\\(?:md\\|markdown\\|mkd\\|mdown\\|mkdn\\|mdwn\\)\\'" . markdown-mode))
(defalias 'gfm--electric-pair-fence-code-block #[0 "\205; 	?\205; \n\303=\205; \304`Z\206 `Sf\303=\203% \211T\262\202 \211\305U\262\205; \306f\303=\205; \212\307\310\303\"c)\207" [electric-pair-mode markdown-gfm-use-electric-backquote last-command-event 96 0 3 nil make-string 2] 3])
#@34 Hook run when entering GFM mode.
(defvar gfm-mode-hook nil (#$ . 319848))
(defvar gfm-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [gfm-mode-hook variable-documentation put "Hook run after entering GFM mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp gfm-mode-map definition-name gfm-mode] 4)
(defvar gfm-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [gfm-mode-abbrev-table gfm-mode-map variable-documentation put purecopy "Keymap for `gfm-mode'." boundp gfm-mode-syntax-table definition-name gfm-mode (lambda (#1=#:def-tmp-var) (defvar gfm-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gfm-mode'." (lambda (#1#) (defvar gfm-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gfm-mode'." derived-mode-parent markdown-mode] 5)
#@244 Major mode for editing GitHub Flavored Markdown files.

In addition to any hooks its parent mode `markdown-mode' might have
run, this mode runs the hook `gfm-mode-hook', as the final or
penultimate step during initialization.

\{gfm-mode-map}
(defalias 'gfm-mode #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R #=\204R \326\325#C#\210\327!\210\330\f!\210#\331$\307%\306\332!\210\333\334\335\336\337\307$\210\340 \210)\341\342!\207" [delay-mode-hooks major-mode mode-name gfm-mode-map gfm-mode-syntax-table gfm-mode-abbrev-table make-local-variable t markdown-mode gfm-mode "GFM" 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 "-" markdown-table-at-point-p-function gfm--table-at-point-p add-hook post-self-insert-hook gfm--electric-pair-fence-code-block append markdown-gfm-parse-buffer-for-languages run-mode-hooks gfm-mode-hook local-abbrev-table markdown-link-space-sub-char markdown-wiki-link-search-subdirectories] 5 (#$ . 321026) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable markdown-hide-markup-in-view-modes funcall function #[0 "\300\207" [t] 1] "Enable hidden markup mode in `markdown-view-mode' and `gfm-view-mode'." :group markdown :type boolean :safe booleanp] 10)
#@34 Keymap for `markdown-view-mode'.
(defvar markdown-view-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\210\207" [make-sparse-keymap define-key "p" markdown-outline-previous "n" markdown-outline-next "f" markdown-outline-next-same-level "b" markdown-outline-previous-same-level "u" markdown-outline-up "" scroll-down-command " " scroll-up-command ">" end-of-buffer "<" beginning-of-buffer "q" kill-this-buffer "?" describe-mode] 5) (#$ . 322578))
#@33 

(fn BEG END &optional DELETE)
(defalias 'markdown--filter-visible #[770 "\301\302W\203C \303\"\203' T\262\303\"\203' W\203' T\262\202 \304\305\"\306\305\"\204> ^{P\262\262\202 \203O \307|\210)\207" [inhibit-read-only "" (markdown-header-delimiter-face markdown-header-rule-face) markdown--face-p next-single-char-property-change invisible get-char-property t] 10 (#$ . 323204)])
(defvar markdown-view-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [markdown-view-mode-hook variable-documentation put "Hook run after entering Markdown-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp markdown-view-mode-map definition-name markdown-view-mode] 4)
(defvar markdown-view-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [markdown-view-mode-abbrev-table markdown-view-mode-map variable-documentation put purecopy "Keymap for `markdown-view-mode'." boundp markdown-view-mode-syntax-table definition-name markdown-view-mode (lambda (#1=#:def-tmp-var) (defvar markdown-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `markdown-view-mode'." (lambda (#1#) (defvar markdown-view-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `markdown-view-mode'." derived-mode-parent markdown-mode] 5)
#@250 Major mode for viewing Markdown content.

In addition to any hooks its parent mode `markdown-mode' might have
run, this mode runs the hook `markdown-view-mode-hook', as the final
or penultimate step during initialization.

\{markdown-view-mode-map}
(defalias 'markdown-view-mode #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R \"=\204R \326\325\"C#\210\327!\210\330\f!\210\"\306\331!\210#\332\333!\210\306\334!\210\335\336\337!\210)\340\341!\207" [delay-mode-hooks major-mode mode-name markdown-view-mode-map markdown-view-mode-syntax-table markdown-view-mode-abbrev-table make-local-variable t markdown-mode markdown-view-mode "Markdown-View" 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 markdown-hide-markup add-to-invisibility-spec markdown-markup filter-buffer-substring-function markdown--filter-visible read-only-mode 1 run-mode-hooks markdown-view-mode-hook local-abbrev-table markdown-hide-markup-in-view-modes] 5 (#$ . 324869) nil])
#@29 Keymap for `gfm-view-mode'.
(defvar gfm-view-mode-map markdown-view-mode-map (#$ . 326132))
(defvar gfm-view-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [gfm-view-mode-hook variable-documentation put "Hook run after entering GFM-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp gfm-view-mode-map definition-name gfm-view-mode] 4)
(defvar gfm-view-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [gfm-view-mode-abbrev-table gfm-view-mode-map variable-documentation put purecopy "Keymap for `gfm-view-mode'." boundp gfm-view-mode-syntax-table definition-name gfm-view-mode (lambda (#1=#:def-tmp-var) (defvar gfm-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gfm-view-mode'." (lambda (#1#) (defvar gfm-view-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gfm-view-mode'." derived-mode-parent gfm-mode] 5)
#@251 Major mode for viewing GitHub Flavored Markdown content.

In addition to any hooks its parent mode `gfm-mode' might have run,
this mode runs the hook `gfm-view-mode-hook', as the final or
penultimate step during initialization.

\{gfm-view-mode-map}
(defalias 'gfm-view-mode #[0 "\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\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R #=\204R \326\325#C#\210\327!\210\330\f!\210#\306\331!\210$\306\332!\210\307\306\333!\210\334\335\336!\210\337\340!\210)\341\342!\207" [delay-mode-hooks major-mode mode-name gfm-view-mode-map gfm-view-mode-syntax-table gfm-view-mode-abbrev-table make-local-variable t gfm-mode gfm-view-mode "GFM-View" 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 markdown-hide-markup markdown-fontify-code-blocks-natively filter-buffer-substring-function markdown--filter-visible add-to-invisibility-spec markdown-markup read-only-mode 1 run-mode-hooks gfm-view-mode-hook local-abbrev-table markdown-hide-markup-in-view-modes] 5 (#$ . 327398) nil])
#@121 Non-nil if Markdown-Live-Preview mode is enabled.
Use the command `markdown-live-preview-mode' to change this variable.
(defvar markdown-live-preview-mode nil (#$ . 328677))
(make-variable-buffer-local 'markdown-live-preview-mode)
#@640 Toggle native previewing on save for a specific markdown file.

This is a minor mode.  If called interactively, toggle the
`Markdown-Live-Preview 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 `markdown-live-preview-mode'.

The mode's hook is called both when the mode is enabled and when
it is disabled.

(fn &optional ARG)
(defalias 'markdown-live-preview-mode #[256 "\302 \303=\203 ?\202 \247\203 \304W\203 \305\202 \306\307\301!\2031 \310\300	\"\2031 \300	B\203N \311 \203B \312\313 !\210\202Q \300\314!\210\315\316p\"\210\202Q \317 \210\320\321\203[ \322\202\\ \323\"\210\324\325!\203~ \302 \203p \211\302 \232\203~ \326\327\203z \330\202{ \331\332#\210\210\333 \210\207" [markdown-live-preview-mode local-minor-modes current-message toggle 1 nil t boundp delq markdown-live-preview-get-filename markdown-display-buffer-other-window markdown-live-preview-export -1 user-error "Buffer %s does not visit a file" markdown-live-preview-remove run-hooks markdown-live-preview-mode-hook markdown-live-preview-mode-on-hook markdown-live-preview-mode-off-hook called-interactively-p any message "Markdown-Live-Preview mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 328915) (byte-code "\203\n \301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar markdown-live-preview-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" [markdown-live-preview-mode-map markdown-live-preview-mode-hook variable-documentation put "Hook run after entering or leaving `markdown-live-preview-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 markdown-live-preview-mode " MD-Preview" boundp provide markdown-mode] 6)