;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; 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!\210\312\313\314\315\316\317\320\321&\210\322\323\324\325\326DD\327\316\330\331\332&\210\322\333\324\325\334DD\335\316\330\331\336&\210\322\337\324\325\340DD\341\316\317\331\342&\210\322\343\324\325\344DD\345\316\346\331\342&\210\322\347\324\325\350DD\351\316\352\331\342&\210\322\353\324\325\354DD\355\331\356%\210\322\357\324\325\360DD\361\331\362%\210\322\363\324\325\364DD\365\331\362%\210\322\366\324\325\367DD\370\331\362%\210\322\371\324\325\372DD\373\316\317\331\374&\210\322\375\324\325\376DD\377\316\201@\331\201A&\210\322\201B\324\325\201CDD\201D\316\201E\331\201F&\210\322\201G\324\325\201HDD\201I\331\201J\316\346&\210\201K\201L\201M\314#\210\201N\211\2036
\211@\201L
N\203/
\201M
N\204/
\201O\201M\201LN#\210
A\266\202\202
\210\201P\201L\201M\346#\210\322\201Q\324\325\201RDD\201S\316\201E\331\342&\210\322\201T\324\325\201UDD\201V\316\201@\331\342&\207" [require cl-lib browse-url dom seq svg image puny url-cookie text-property-search custom-declare-group shr nil "Simple HTML Renderer." :version "25.1" :group web custom-declare-variable shr-max-image-proportion funcall function #[0 "\300\207" [0.9] 1 #1=""] "How big pictures displayed are in relation to the window they're in.\nA value of 0.7 means that they are allowed to take up 70% of the\nwidth and height of the window.  If they are larger than this,\nand Emacs supports it, then the images will be rescaled down to\nfit these criteria." "24.1" :type float shr-blocked-images #[0 "\300\207" [nil] 1 #1#] "Images that have URLs matching this regexp will be blocked." (choice (const nil) regexp) shr-use-fonts #[0 "\300\207" [t] 1 #1#] "If non-nil, use proportional fonts for text." boolean shr-discard-aria-hidden #[0 "\300\207" [nil] 1 #1#] "If non-nil, don't render tags with `aria-hidden=\"true\"'.\nThis attribute is meant to tell screen readers to ignore a tag." "27.1" shr-use-colors #[0 "\300\207" [t] 1 #1#] "If non-nil, respect color specifications in the HTML." "26.1" shr-table-horizontal-line #[0 "\300\207" [nil] 1 #1#] "Character used to draw horizontal table lines.\nIf nil, don't draw horizontal table lines." (choice (const nil) character) shr-table-vertical-line #[0 "\300\207" [32] 1 #1#] "Character used to draw vertical table lines." character shr-table-corner #[0 "\300\207" [32] 1 #1#] "Character used to draw table corners." shr-hr-line #[0 "\300\207" [45] 1 #1#] "Character used to draw hr lines." shr-width #[0 "\300\207" [nil] 1 #1#] "Window width to use for HTML rendering.\nMay either be an integer specifying a fixed width in characters,\nor nil, meaning use the full width of the window.\nIf `shr-use-fonts' is set, the value is interpreted as a multiple\nof the mean character width of the default face's font.\n\nAlso see `shr-max-width'." (choice (integer :tag "Fixed width in characters") (const :tag "Use the width of the window" nil)) shr-max-width #[0 "\300\207" [120] 1 #1#] "Maximum text width to use for HTML rendering.\nMay either be an integer specifying a fixed width in characters,\nor nil, meaning that there is no width limit.\n\nIf `shr-use-fonts' is set, the value of this variable is\ninterpreted as a multiple of the mean character width of the\ndefault face's font.\n\nIf `shr-width' is non-nil, it overrides this variable." "28.1" (choice (integer :tag "Fixed width in characters") (const :tag "No width limit" nil)) shr-bullet #[0 "\300\207" ["* "] 1 #1#] "Bullet used for unordered lists.\nAlternative suggestions are:\n- \"  \"\n- \"  \"" "24.4" string shr-cookie-policy #[0 "\300\207" [same-origin] 1 #1#] "When to use cookies when fetching dependent data like images.\nIf t, always use cookies.  If nil, never use cookies.  If\n`same-origin', use cookies if the dependent data comes from the\nsame domain as the main data." (choice (const :tag "Always use cookies" t) (const :tag "Never use cookies" nil) (const :tag "Use cookies for same domain" same-origin)) defvaralias shr-external-browser browse-url-secondary-browser-function (saved-value saved-variable-comment) put make-obsolete-variable shr-image-animate #[0 "\300\207" [t] 1 #1#] "Non-nil means that images that can be animated will be." shr-offer-extend-specpdl #[0 "\300\207" [t] 1 #1#] "Non-nil means offer to extend the specpdl if the HTML nests deeply.\nComplicated HTML can require more nesting than the current specpdl\nsize permits.  If this variable is t, ask the user whether to increase\nthe specpdl size.  If nil, just give up."] 8)
#@157 If bound, this should be a function that will return the content.
This is used for cid: URLs, and the function is called with the
cid: URL as the argument.
(defvar shr-content-function nil (#$ . 4694))
#@46 Function called to put image and alt string.
(defvar shr-put-image-function 'shr-put-image (#$ . 4902))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\314%\210\300\315\316\317\304\314%\210\300\320\321\322\304\323%\210\300\324\325\326\304\323%\210\300\327\330\331\304\323%\210\300\332\333\334\304\323%\210\300\335\333\336\304\323%\210\300\337\333\340\304\323%\210\341\342\343\344\345DD\346\304\323\347\350&\207" [custom-declare-face shr-strike-through ((t :strike-through t)) "Face for <s> elements." :version "24.1" shr-link ((t :inherit link)) "Face for link elements." shr-selected-link ((t :inherit shr-link :background "red")) "Temporary face for externally visited link elements.\nWhen a link is visited with an external browser, the link\ntemporarily blinks with this face." "27.1" shr-abbreviation ((t :inherit underline :underline (:style wave))) "Face for <abbr> elements." shr-h1 ((t :height 1.3 :weight bold)) "Face for <h1> elements." "28.1" shr-h2 ((t :weight bold)) "Face for <h2> elements." shr-h3 ((t :slant italic)) "Face for <h3> elements." shr-h4 nil "Face for <h4> elements." shr-h5 "Face for <h5> elements." shr-h6 "Face for <h6> elements." custom-declare-variable shr-inhibit-images funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil, inhibit loading images." :type boolean] 8)
#@208 Alist of tag/function pairs used to alter how shr renders certain tags.
For instance, eww uses this to alter rendering of title, forms
and other things:
((title . eww-tag-title)
 (form . eww-tag-form)
 ...)
(defvar shr-external-rendering-functions nil (#$ . 6259))
(defvar shr-folding-mode nil)
(defvar shr-start nil)
(defvar shr-indentation 0)
(defvar shr-internal-width nil)
(defvar shr-list-mode nil)
(defvar shr-content-cache nil)
(defvar shr-kinsoku-shorten nil)
(defvar shr-table-depth 0)
(defvar shr-stylesheet nil)
(defvar shr-base nil)
(defvar shr-depth 0)
(defvar shr-warning nil)
(defvar shr-ignore-cache nil)
(defvar shr-table-separator-length 1)
(defvar shr-table-separator-pixel-width 0)
(defvar shr-table-id nil)
(defvar shr-current-font nil)
(defvar shr-internal-bullet nil)
#@36 Target fragment identifier anchor.
(defvar shr-target-id nil (#$ . 7056))
(defvar shr-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\325#\210\301
\327\317#\210\301
\330\331#\210\301
\332\317#\210\207" [make-sparse-keymap define-key "a" shr-show-alt-text "i" shr-browse-image "z" shr-zoom-image [9] shr-next-link [134217737] shr-previous-link [follow-link] mouse-face [mouse-2] shr-browse-url [C-down-mouse-1] shr-mouse-browse-url-new-window "I" shr-insert-image "w" shr-maybe-probe-and-copy-url "u" "v" "O" shr-save-contents "
"] 5))
(defvar shr-image-map (byte-code "\302!\303\301!\203\304
	\"\210\207" [shr-map image-map copy-keymap boundp set-keymap-parent] 4))
#@64 Display the HTML rendering of the current buffer.

(fn BUFFER)
(defalias 'shr-render-buffer #[257 "\300\301!\204\n\302\303!\210\304\305!\210\306 \210\307r
q\210\301ed\")!\210eb\207" [fboundp libxml-parse-html-region error "This function requires Emacs to be compiled with libxml2" pop-to-buffer "*html*" erase-buffer shr-insert-document] 5 (#$ . 7894) (byte-code "pC\207" [] 1)])
#@98 Display the HTML rendering of the region between BEGIN and END.

(fn BEGIN END &optional BUFFER)
(defalias 'shr-render-region #[770 "\300\301!\204\n\302\303!\210r\211\206pq\210\301\"|\210b\210\304
!\262
)\207" [fboundp libxml-parse-html-region error "This function requires Emacs to be compiled with libxml2" shr-insert-document] 6 (#$ . 8281) "r"])
#@75 Return non-nil if we know at least one of the fringes has non-zero width.
(defalias 'shr--have-one-fringe-p #[0 "\300\301!\205W\302\303\211\203\304\202\305\306=\203\307\202\310\311 !\206#\312\313\314 !\"\266\202\312U?\206W\306\303\211\203:\304\202;\305\306=\203E\307\202F\310\311 !\206M\312\313\314 !\"\266\202\312U?\207" [fboundp fringe-columns right nil / ceiling left car cadr window-fringes 0 float frame-char-width] 6 (#$ . 8645)])
#@149 Render the parsed document DOM into the current buffer.
DOM should be a parse tree as generated by
`libxml-parse-html-region' or similar.

(fn DOM)
(defalias 'shr-insert-document #[257 "\306`\306\211\307\211\306\310\311!	\310	!B\n\203#\204\n\202P\n\312 _\202P\2048\313 S\314 \2033\315\2024\307Z\202P\316\313\306\317\"\320\312 _\314 \203J\307\202N\312 \320_\315$\f\306\203\200\n\204\200\203{\312 _\202}^\321\306\307\"\210\322!\210\323
`\"\210\324
`\"\210\205\235\325\326\".\n\207" [shr-content-cache shr-bullet shr-width shr-use-fonts max-specpdl-size bidi-display-reordering nil 0 shr-string-pixel-width "-" frame-char-width window-body-width shr--have-one-fringe-p 1 - t 2 set-window-hscroll shr-descend shr-fill-lines shr--remove-blank-lines-at-the-end message "%s" shr-internal-width shr-internal-bullet shr-table-separator-pixel-width shr-warning shr-table-id shr-depth shr-base shr-start shr-max-width] 14 (#$ . 9107)])
#@18 

(fn START END)
(defalias 'shr--remove-blank-lines-at-the-end #[514 "\214\212

}\210\211b\210\300\301\302\303#\205m?\205\304y\210`d|*\207" [re-search-backward "[^ \n]" nil t 1] 6 (#$ . 10091)])
#@201 Return the URL under point as a string.
If IMAGE-URL is non-nil, or there is no link under point, but
there is an image under point then copy the URL of the image
under point instead.

(fn IMAGE-URL)
(defalias 'shr-url-at-point #[257 "\211\203	\300`\301\"\207\300`\302\"\206\300`\301\"\207" [get-text-property image-url shr-url] 4 (#$ . 10297)])
#@200 Copy the URL under point to the kill ring.
With a prefix argument, or if there is no link under point, but
there is an image under point then copy the URL of the image
under point instead.

(fn URL)
(defalias 'shr-copy-url #[257 "\211\204\300\301!\207\302
!\262
\303
!\210\300\304\"\207" [message "No URL under point" url-encode-url kill-new "Copied %s"] 4 (#$ . 10653) (byte-code "\301!C\207" [current-prefix-arg shr-url-at-point] 2)])
#@199 Pass URL's redirect destination to CONT, if it has one.
CONT should be a function of one argument, the redirect
destination URL.  If URL is not redirected, then CONT is never
called.

(fn URL CONT)
(defalias 'shr-probe-url #[514 "\300\301\302\"\303\304\211%\207" [url-retrieve make-closure #[257 "\211:\205#\211\242\211\301=\205!
\243\211:\205\211\242\300\302\303\304#!\262
\262
\262
\207" [V0 :redirect replace-regexp-in-string ".utm_.*" ""] 9 "\n\n(fn A)"] nil t] 8 (#$ . 11101) "P"])
#@153 Copy the URL under point to the kill ring.
Like `shr-copy-url', but additionally fetch URL and use its
redirection destination if it has one.

(fn URL)
(defalias 'shr-probe-and-copy-url #[257 "\211\203	\300
\301\"\207\301
!\207" [shr-probe-url shr-copy-url] 4 (#$ . 11602) (byte-code "\301!C\207" [current-prefix-arg shr-url-at-point] 2)])
#@172 Copy the URL under point to the kill ring.
If the URL is already at the front of the kill ring act like
`shr-probe-and-copy-url', otherwise like `shr-copy-url'.

(fn URL)
(defalias 'shr-maybe-probe-and-copy-url #[257 "\211@\232\203\301
!\207\302
!\207" [kill-ring shr-probe-and-copy-url shr-copy-url] 3 (#$ . 11951) (byte-code "\301!C\207" [current-prefix-arg shr-url-at-point] 2)])
#@179 Return the start and end positions of the URL at point, if any.
Value is a pair of positions (START . END) if there is a non-nil
`shr-url' text property at point; otherwise nil.
(defalias 'shr--current-link-region #[0 "\300`\301\"\205\302`\301\"\206d\303
\301\"\206e\211B\266\202\207" [get-text-property shr-url next-single-property-change previous-single-property-change] 4 (#$ . 12345)])
#@65 Briefly fontify URL at point with the face `shr-selected-link'.
(defalias 'shr--blink-link #[0 "\300 \211\205\f\301
@A\"\211\205\302
\303\304#\210\305\306\307\310\311\"#\207" [shr--current-link-region make-overlay overlay-put face shr-selected-link run-at-time 1 nil make-closure #[0 "\301\300!\207" [V0 delete-overlay] 2]] 8 (#$ . 12748)])
#@24 Skip to the next link.
(defalias 'shr-next-link #[0 "\301\302\303\211\304$\211\204\305\306!\207\307
!>\204\310\311\312D\"\210\211\313Hb\210\305\314\315`\316\"\"\207" [cl-struct-prop-match-tags text-property-search-forward shr-url nil t message "No next link" type-of signal wrong-type-argument prop-match 1 "%s" get-text-property help-echo] 6 (#$ . 13100) nil])
#@28 Skip to the previous link.
(defalias 'shr-previous-link #[0 "\300\301\302\211\303$\204
\304\305!\207\304\306\307`\310\"\"\207" [text-property-search-backward shr-url nil t message "No previous link" "%s" get-text-property help-echo] 5 (#$ . 13474) nil])
#@45 Show the ALT text of the image under point.
(defalias 'shr-show-alt-text #[0 "\300`\301\"\211\204\f\302\303!\207\302\304\305!\"\207" [get-text-property shr-alt message "No image under point" "%s" shr-fill-text] 5 (#$ . 13735) nil])
(byte-code "\300\301\302\303#\300\207" [function-put shr-show-alt-text completion-predicate #[514 "\300\301\"\207" [command-completion-button-p shr] 5 "\n\n(fn _ B)"]] 4)
#@171 Browse the image under point.
If COPY-URL (the prefix if called interactively) is non-nil, copy
the URL of the image to the kill buffer instead.

(fn &optional COPY-URL)
(defalias 'shr-browse-image #[256 "\300`\301\"\211\204\f\302\303!\207
\203+\304\305\306\"r\211q\210\307\310\"\216
c\210\311ed\"\210\302\312\"*\207\302\313\"\210\314
!\207" [get-text-property image-url message "No image under point" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] copy-region-as-kill "Copied %s" "Browsing %s..." browse-url] 6 (#$ . 14148) "P"])
#@47 Insert the image under point into the buffer.
(defalias 'shr-insert-image #[0 "\300`\301\"\211\204\f\302\303!\207\302\304\"\210\305
\306p`S\307 E\310$\207" [get-text-property image-url message "No image under point" "Inserting %s..." url-retrieve shr-image-fetched point-marker t] 7 (#$ . 14755) nil])
#@116 Toggle the image size.
The size will be rotated between the default size, the original
size, and full-buffer size.
(defalias 'shr-zoom-image #[0 "\301`\302\"\301`\303\"\304
\204\305\306!\202\212\301`\302\"\203!\307u\210\202\310u\210`\301`\302\"\2032\310u\210\202%\307u\210\311
`\312\304$\210`
Z\313V\203I\211`S|\210\210\305\314\"\210\315\316p`S\317 \320\321=\204d\204h\322\202\205\323\267\202w\324\202\205\321\202\205\321=\204\204?\205\205\322BCF\325$)\207" [buffer-read-only get-text-property image-url image-size nil message "No image under point" -1 1 put-text-property display 2 "Inserting %s..." url-retrieve shr-image-fetched point-marker size default original #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (original 111 full 115)) full t] 11 (#$ . 15066) nil])
#@12 

(fn DOM)
(defalias 'shr-generic #[257 "\211\211@:\203\211@AA\262
\202\211AA\262
\211\2052\211@\211;\203'\300
!\210\202+\301
!\210
A\266\202\202\207" [shr-insert shr-descend] 5 (#$ . 15909)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put shr-generic speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@32 

(fn TAG-NAME DOM &rest ARGS)
(defalias 'shr-indirect-call #[642 "\302\303\304!P\"	\236A\211\203\305
#\207\306!\203\"\305#\207\305\307#\207" [obarray shr-external-rendering-functions intern "shr-tag-" symbol-name apply fboundp shr-generic] 9 (#$ . 16254)])
#@12 

(fn DOM)
(defalias 'shr-descend #[257 "\306\307\310\211@:\203\211@@\262
\202\211@\262
!P\"
\211@:\203)\211@@\262
\202-\211@\262
	\236A\311\211@:\203A\211@A@\262
\202F\211A@\262
\236A\nT`
\f\312\245V\203q
\203j\313\314!\203j\f\315_\211\204q\316\211#\202[
\203\210\317\320\"\203\205\321!\n\244\202\210\322\262\323\n\236A\324\232\206\261$\205\261\325\211@:\203\250\211@A@\262
\202\255\211A@\262
\236A\326\232?\205[
\203\301!\210\202
\327!\203\320!\210\202
\211\211@:\203\342\211@AA\262
\202\347\211AA\262
\211\205
\211@\211;\203\371\330
!\210\202\375\331
!\210
A\266\202\202\347\266\332\211@:\203
\211@A@\262
\202
\211A@\262
\236A\211\203J

`U\203B
n\2043
\333c\210\202:
\333c\210\334!\210\335`S`\323\336$\210\335`S`\337$\210\210\205[
\340
`\341\n\236A\342\n\236A$*\207" [obarray shr-external-rendering-functions shr-stylesheet shr-depth max-specpdl-size shr-offer-extend-specpdl intern "shr-tag-" symbol-name style 15 y-or-n-p "Too deeply nested to render properly; increase `max-specpdl-size'?" 2 "Not rendering the complete page because of too-deep nesting" string-match "color\\|display\\|border-collapse" shr-parse-style nil display "none" aria-hidden "true" fboundp shr-insert shr-descend id 32 shr-mark-fill put-text-property "" shr-target-id shr-colorize-region color background-color shr-warning shr-discard-aria-hidden] 13 (#$ . 16532)])
#@13 

(fn TEXT)
(defalias 'shr-fill-text #[257 "\211G\304U\203\207\305\306\307\"r\211q\210\310\311\"\216\304\312\313\312\307\"\314\315 _Z\2040\316 \2040\315 \314_\2021\304Z\317!\210\320ed\"\210\321 -\207" [shr-width shr-internal-width shr-start shr-indentation 0 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil window-body-width 2 frame-char-width shr--have-one-fringe-p shr-insert shr-fill-lines buffer-string] 7 (#$ . 17951)])
#@74 Return non-nil if a line can be broken before and after CHAR.

(fn CHAR)
(defalias 'shr-char-breakable-p #[257 "
H\207" [fill-find-break-point-function-table] 3 (#$ . 18461)])
(byte-code "\300\301\302\303#\300\207" [function-put shr-char-breakable-p compiler-macro shr-char-breakable-p--inliner] 4)
#@26 

(fn INLINE--FORM CHAR)
(defalias 'shr-char-breakable-p--inliner #[514 "\3002	\301\302E0\207" [inline--just-use aref fill-find-break-point-function-table] 5 (#$ . 18767)])
#@74 Return non-nil if no space is required before and after CHAR.

(fn CHAR)
(defalias 'shr-char-nospace-p #[257 "
H\207" [fill-nospace-between-words-table] 3 (#$ . 18948)])
(byte-code "\300\301\302\303#\300\207" [function-put shr-char-nospace-p compiler-macro shr-char-nospace-p--inliner] 4)
#@26 

(fn INLINE--FORM CHAR)
(defalias 'shr-char-nospace-p--inliner #[514 "\3002	\301\302E0\207" [inline--just-use aref fill-nospace-between-words-table] 5 (#$ . 19244)])
#@67 Return non-nil if a line ought not to begin with CHAR.

(fn CHAR)
(defalias 'shr-char-kinsoku-bol-p #[257 "\211\300=?\205\f\301
!\302H\207" [39 char-category-set 62] 3 (#$ . 19419)])
(byte-code "\300\301\302\303#\300\207" [function-put shr-char-kinsoku-bol-p compiler-macro shr-char-kinsoku-bol-p--inliner] 4)
#@26 

(fn INLINE--FORM CHAR)
(defalias 'shr-char-kinsoku-bol-p--inliner #[514 "\30025\301
!\203\211\202\302\303!\304\305\306\307ED\310\311D\312EE
=\203+\211\266\202\2024\313DC\"\266\2020\207" [inline--just-use macroexp-copyable-p make-symbol "char" and not eq 39 aref char-category-set 62 macroexp-let*] 8 (#$ . 19736)])
#@65 Return non-nil if a line ought not to end with CHAR.

(fn CHAR)
(defalias 'shr-char-kinsoku-eol-p #[257 "\300
!\301H\207" [char-category-set 60] 3 (#$ . 20072)])
(byte-code "\300\301\302\303#\300\207" [function-put shr-char-kinsoku-eol-p compiler-macro shr-char-kinsoku-eol-p--inliner] 4)
#@26 

(fn INLINE--FORM CHAR)
(defalias 'shr-char-kinsoku-eol-p--inliner #[514 "\3002\301\302D\303E0\207" [inline--just-use aref char-category-set 60] 5 (#$ . 20367)])
(byte-code "\300\301\302\303#\211\304=?\205\305
!\306H\262
\204\307\310\311\312#\210\311\207" [make-char japanese-jisx0208 33 35 39 char-category-set 62 load "kinsoku" nil t] 4)
(defalias 'shr-pixel-column #[0 "\204i\207\301p!\204&\302 \303\304\"\216\305\306\211\"\210\307\306p\"\210\310\306\311 `#@)\207\310\306\311 `#@\207" [shr-use-fonts get-buffer-window current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] set-window-dedicated-p nil set-window-buffer window-text-pixel-size line-beginning-position] 5])
(defalias 'shr-pixel-region #[0 "\300 \212\301 b\210\300 )Z\207" [shr-pixel-column mark] 2])
#@15 

(fn STRING)
(defalias 'shr-string-pixel-width #[257 "\204\211G\207`\301\302\303\"r\211q\210\304\305\"\216c\210\306 *\262

b\210\207" [shr-use-fonts generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] shr-pixel-column] 6 (#$ . 21192)])
(defalias 'shr--translate-insertion-chars #[0 "eb\210\300\301\302\303#\203\304\305\303\211#\210\202eb\210\300\306\302\303#\205(\304\307\303\211#\210\202\207" [search-forward "­" nil t replace-match "" " " " "] 4])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put shr--translate-insertion-chars speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@13 

(fn TEXT)
(defalias 'shr-insert #[257 "n\204\303`S\304\"\203\305c\210\306=\203J`
c\210\214\211`}\210eb\210\307\310\311\312#\2032\313\314\312\211#\210\202!eb\210\307\315\311\312#\203F\313\316\312\211#\210\2025db)\207`\317\320\"\203an\204a`Sf\321=\204a\316c\210`nc\210\214
`}\210
b\210\322\323!\203z\313\314\312\211#\210\324\325\311\312#\203\213\313\316\312\211#\210\202z
b\210\324\326\311\312#\203\237\313\316\312\211#\210\202\216eb\210\307\310\311\312#\203\263\313\314\312\211#\210\202\242eb\210\307\315\311\312#\203\307\313\316\312\211#\210\202\266db\210)`U?\205\350\211\203\332\327!\210	\205\350\330`\331\n\206\347\332$\207" [shr-folding-mode shr-use-fonts shr-current-font get-text-property image-url "\n" none search-forward "­" nil t replace-match "" " " " " string-match "\\`[ 	\n
]" 32 looking-at "[ 	\n
]+" re-search-forward "[	\n
]+" "  +" shr-mark-fill put-text-property face variable-pitch] 9 (#$ . 21879)])
#@18 

(fn START END)
(defalias 'shr-fill-lines #[514 "\301X?\2053\214

}\210
b\210\302`\303\"\203\304 \210\305\303\"\211\262\2030
b\210n\203\304 \210\202db)\207" [shr-internal-width 0 get-text-property shr-indentation shr-fill-line next-single-property-change] 5 (#$ . 22839)])
#@15 

(fn COLUMN)
(defalias 'shr-vertical-motion #[257 "\204\301
!\207l\204\302u\210\303
\304 \245\305B!\210l?\205\302u\207" [shr-use-fonts move-to-column 1 vertical-motion frame-char-width 0] 4 (#$ . 23130)])
(defalias 'shr-fill-line #[0 "\302`\300\"\206\302`\303\"\304\305``T\300\304$\210\302`\306\"`\307 \210
\203-\305
`\306\310!$\210\266`\262

\2067\211	W\205\336\311	!\210\312\313!\203M`\314 |\210l?\205\336\315\316 !\203_`
U\203m\317 \210\320\304w\210\321\320\314 \322#\210h\323U\203w\324\325!\210`\302`\306\"\326c\210\307 \210\211\203\217\305`\306\310!$\210
SeV\203\307\302`\327\"\203\307\302`\327\"\302S\327\"\232\203\307\330\331`!!\332
\306\"\211\203\300\333\306\310!#\262\334`#\266\266`\262
\311	!\210\312\313!\203M`\314 |\210\202M)\207" [shr-indentation shr-internal-width get-text-property shr-continuation-indentation nil put-text-property face shr-indent shr-face-background shr-vertical-motion looking-at " $" line-end-position shr-find-fill-point line-beginning-position beginning-of-line " " search-forward move 32 delete-char -1 10 shr-url copy-sequence text-properties-at plist-get plist-put add-text-properties] 13])
#@14 

(fn START)
(defalias 'shr-find-fill-point #[257 "``\303`X\211\262\204`h\304=\204`g\304=\204`hH\204`gH\204`h\211\305=?\2051\306
!\307H\262
\203NgH\203Ng\211\305=?\205I\306
!\307H\262
\203`\306g!\310H\204`n\204`\311u\210\202\211\203\215\303b\210	\204\211\n\203\211\312\313\314 \315#\211\262\204p\211\203\211\316\224\204\211\317\224b\210\210\202\201
l\204\201
	\204\231\n\204\344h\317\320\304E>\204\302\306h!\310H\204\274g\211\305=?\205\267\306
!\307H\262
\203\302\311u\210\202\231`X\211\262\203x
\316u\210`X\203\337`\262\306g!\310H\204\313b\202u
\306h!\310H\2038
\321\311u\210\211S\211\262\317V\203
h\317\320\304E>\204
\306h!\310H\204\355g\211\305=?\205
\306
!\307H\262
\204\355\210`X\211\262\203x
\322\323!\2033
\316\225b\202u
\316u\202u
g\211\305=?\205E
\306
!\307H\262
\203x
\321\316u\210\211S\211\262\317Y\205s
g\211\305=?\205e
\306
!\307H\262
\205s
gH\205s
\202K
\262
\204\201
g\304=\203\201
\316u\210\211?\207" [fill-find-break-point-function-table shr-kinsoku-shorten shr-width nil 32 39 char-category-set 62 60 -1 re-search-forward "\\(\\c>\\)\\| \\|\\c<\\|\\c|" line-end-position move 1 0 10 4 looking-at "\\(\\c<+\\)\\c<"] 9 (#$ . 24311)])
#@12 

(fn URL)
(defalias 'shr-parse-base #[257 "\301\302\"\203\211\303\211\224O\262
\304
!\262
\305
!\306
!>\204%\307\310\311D\"\210\211\312H\306!>\2047\307\310\311D\"\210
\312\313I\210\301\314\"\203I\315\316\"\262
\211G\303U\204_\211
GSH\317=\204_\211\320P\262
\321!
\306!>\204s\307\310\311D\"\210\316HF\207" [cl-struct-url-tags string-match "#.*" 0 shr-expand-url url-generic-parse-url type-of signal wrong-type-argument url 6 "" "\\`\\(.*/\\)[^/]+\\'" match-string 1 47 "/" url-recreate-url] 9 (#$ . 25518)])
(autoload 'url-expand-file-name "url-expand")
#@27 

(fn URL &optional BASE)
(defalias 'shr-expand-url #[513 "\211\203\n\301
!\202\262

G\302U\203\303\262
\203)\304\305\"\203)
\302\225\303O\262
\203;\304\306\"\203;
\302\211\224O\262
G\302U\203F\307
8\207\211\203Q\304\310\"\203S
\207
\302H\311=\203v
G\312V\203q
\312H\311=\203q\313
8\314Q\207\211@P\207
\302H\315=\203\204\307
8P\207\316@A@P\"\207" [shr-base shr-parse-base 0 nil string-match "\\`\\s-+" "\\s-+\\'" 3 "\\`[a-z]*:" 47 1 2 ":" 35 url-expand-file-name] 6 (#$ . 26101)])
(defalias 'shr-ensure-newline #[0 "o?\205\"\300\301 \302\"i\303U\206\211\205\211`\301 ZU?\205 \304c\262
\207" [get-text-property line-beginning-position shr-prefix-length 0 "\n"] 4])
(defalias 'shr-ensure-paragraph #[0 "o?\205\256\300\301 \302\"n\203\212\303y\210\304\305!)\206\254n\204g\212\306 \210\304\305!)\203g\212\303y\210\304\305!)\203g\301 `S\307\310X\203W\300\311\"\204P\310\262
\310\211\262\203WT\262\2029
\203a\266\307\202\254\211\266\204\206\254\211\203t\211`\301 ZU\206\254\212\306 \210\304\305!\205\221\300`\312\"?\205\221\313`\312\310\314 $\314 U?)\203\235\315\224\315\225|\202\254l\203\252n\203\252\316c\202\254\317c\262
\207" [get-text-property line-beginning-position shr-prefix-length -1 looking-at " *$" beginning-of-line t nil shr-target-id face next-single-property-change line-end-position 0 "\n" "\n\n"] 8])
(defalias 'shr-indent #[0 "\302V\205	\204\303\304\"\207\304c\210\305`S`\306\307\310CE$\207" [shr-indentation shr-use-fonts 0 insert-char 32 put-text-property display space :width] 7])
#@24 

(fn DOM &rest TYPES)
(defalias 'shr-fontize-dom #[385 "`\211\211@:\203\211@AA\262
\202\211AA\262
\211\2054\211@\211;\203)\300
!\210\202-\301
!\210
A\266\202\202\266
\211\205J\211@\302`#\210
A\266\202\2027\207" [shr-insert shr-descend shr-add-font] 9 (#$ . 27676)])
#@23 

(fn START END TYPE)
(defalias 'shr-add-font #[771 "\212b\210`W\205/n\203\300\301w\210\302`\303 ^\304$\210\303 W\203)\305y\210\202
b\210\202)\207" [" " nil add-face-text-property line-end-position t 1] 8 (#$ . 27964)])
#@49 Browse the URL under the mouse cursor.

(fn EV)
(defalias 'shr-mouse-browse-url #[257 "\300
!\210\301 \207" [mouse-set-point shr-browse-url] 3 (#$ . 28203) "e"])
#@65 Browse the URL under the mouse cursor in a new window.

(fn EV)
(defalias 'shr-mouse-browse-url-new-window #[257 "\300
!\210\301\302\211\303#\207" [mouse-set-point shr-browse-url nil t] 5 (#$ . 28371) "e"])
#@379 Browse the URL at point using `browse-url'.
If EXTERNAL is non-nil (interactively, the prefix argument), browse
the URL using `browse-url-secondary-browser-function'.
If this function is invoked by a mouse click, it will browse the URL
at the position of the click.  Optional argument MOUSE-EVENT describes
the mouse click event.

(fn &optional EXTERNAL MOUSE-EVENT NEW-WINDOW)
(defalias 'shr-browse-url #[768 "\302!\210\303`\304\"\211\204\305\306!\207\203
!\210\307 \207\310
	
\204(\262
\2020\211?\205.
\266\202\"\207" [browse-url-secondary-browser-function browse-url-new-window-flag mouse-set-point get-text-property shr-url message "No link under point" shr--blink-link browse-url] 9 (#$ . 28585) (list current-prefix-arg last-nonmenu-event)])
#@55 Save the contents from URL in a file.

(fn DIRECTORY)
(defalias 'shr-save-contents #[257 "\300`\301\"\211\204\f\302\303!\207\304\305!\306D#\207" [get-text-property shr-url message "No link under point" url-retrieve shr-encode-url shr-store-contents] 7 (#$ . 29350) "DSave contents of URL to directory: "])
#@29 

(fn STATUS URL DIRECTORY)
(defalias 'shr-store-contents #[771 "\300\301\"?\205#\302\303\304\305#\204\302\306\304\305#\205#\307`d\310\311!\"#\207" [plist-get :error search-forward "\n\n" nil t "
\n
\n" write-region expand-file-name file-name-nondirectory] 9 (#$ . 29666)])
#@48 

(fn STATUS BUFFER START END &optional FLAGS)
(defalias 'shr-image-fetched #[1284 "p\302!\203r\303\304\"\204r\305
!\210eb\210\306\307\310\311#\204&\306\312\310\311#\203r\313 rq\210\212\214~\210{\314!\311|\210b\210	#\210\211\203m\211
A\262\242
\211A\262\242
\315>\204h\316	`$\210\266\202J)\266+\210\317
!\207" [inhibit-read-only shr-put-image-function buffer-name plist-get :error url-store-in-cache search-forward "\n\n" nil t "
\n
\n" shr-parse-image-data text-properties-at (display image-size) put-text-property kill-buffer] 16 (#$ . 29954)])
#@61 Return an image from the data: URI content DATA.

(fn DATA)
(defalias 'shr-image-from-data #[257 "\300\301\"\205-\302\303\"\304\302\305\"!
\203+\300\306\"\203+\3071'\310
!0\202)\210\311\262
\262
\207" [string-match "\\(\\([^/;,]+\\(/[^;,]+\\)?\\)\\(;[^;,]+\\)*\\)?,\\(.*\\)" match-string 4 url-unhex-string 5 "^.*\\(;[ 	]*base64\\)$" (error) base64-decode-string nil] 6 (#$ . 30540)])
#@214 Insert image SPEC with a string ALT.  Return image.
SPEC is either an image data blob, or a list where the first
element is the data blob and the second element is the content-type.

(fn SPEC ALT &optional FLAGS)
(defalias 'shr-put-image #[770 "\301 \203\321\302
\236A:\203@\202:\205A@`\303=\2031\304\305\306\307\310\311&\202\200
\312=\203G\313\314!\205\200\304\314\306\307\310%\202\200\315=\203h\3161c\317\320\321\"\320	\322\"$0\202\200\210\305\202\200\3231~\317\320\321\"\320	\322\"$0\202\200\210\305\211\203\320i\324V\203\227\325
\306\"@\326V\203\227\327c\210\303=\203\255\330
\206\245\331\305\332\333%\210\202\267\334
\206\265\331\"\210\335`\325$\210\203\320\336
!A\203\320\337
\305\340#\210\207
\206\326\341c\207" [shr-image-animate display-graphic-p size original create-image nil t :ascent 100 :format image/svg+xml image-type-available-p svg full (error) shr-rescale-image plist-get :width :height (error) 0 image-size 400 "\n" insert-sliced-image "*" 20 1 insert-image put-text-property image-multi-frame-p image-animate 60 ""] 15 (#$ . 30941)])
#@161 Emacs image type to use when displaying images.
If Emacs has native image scaling support, that's used, but if
not, `imagemagick' is preferred if it's present.
(defalias 'shr--image-type #[0 "\300\301!\203\301 \206\300\302!??\205\303\207" [fboundp image-transforms-p imagemagick-types imagemagick] 2 (#$ . 32062)])
#@316 Rescale DATA, if too big, to fit the current buffer.
WIDTH and HEIGHT are the sizes given in the HTML data, if any.

The size of the displayed image will not exceed
MAX-WIDTH/MAX-HEIGHT.  If not given, use the current window
width/height instead.

(fn DATA CONTENT-TYPE WIDTH HEIGHT &optional MAX-WIDTH MAX-HEIGHT)
(defalias 'shr-rescale-image #[1540 "\302p\303\"\204\304\305\303\306\307%\207\310\302p!!\311\206!\3128@Z_!\311\2060\3138A@Z_!\314	!\203AV\204M\203SV\203S\305\262\305\262\203\203\203\203
_W\203\203
_W\203\203\304\n\315 \303\306\307\316\317\320&\207\304\n\315 \303\306\307\321	\322\n\320&\207" [shr-max-image-proportion image-scaling-factor get-buffer-window t create-image nil :ascent 100 window-inside-pixel-edges truncate 2 3 image-compute-scaling-factor shr--image-type :width :height :format :max-width :max-height] 22 (#$ . 32390)])
#@68 Get image data for URL.
Return a string with image data.

(fn URL)
(defalias 'shr-get-image-data #[257 "\300\301\302\"r\211q\210\303\304\"\216\305\306!\210\3071\"\310\311\312!!!\210\3020\202'\210\306\2024\2054\313\314\306\302#\2054\315 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil (error) url-cache-extract url-cache-create-filename shr-encode-url re-search-forward "
?\n
?\n" shr-parse-image-data] 6 (#$ . 33306)])
(defalias 'shr-parse-image-data #[0 "`d{\212\214e`}\210\302\303!\211\205\304\305\306\307#\"\262
*	\203.\211\310=\203.\311\312`d\"\313\"\262

D\207" [obarray shr-blocked-images mail-fetch-field "content-type" intern replace-regexp-in-string ";.*" "" image/svg+xml shr-dom-to-xml libxml-parse-xml-region utf-8] 7])
#@266 Return a function to display an image.
CONTENT-FUNCTION is a function to retrieve an image for a cid url that
is an argument.  The function to be returned takes three arguments URL,
START, and END.  Note that START and END should be markers.

(fn CONTENT-FUNCTION)
(defalias 'shr-image-displayer #[257 "\300\301\"\207" [make-closure #[771 "\2052\302\303\"\203(\300\2052\300\304\225\305O!\211\205'b\210	
{\"\210`|\207\306\307pE\310\211%\207" [V0 shr-put-image-function string-match "\\`cid:" 0 nil url-retrieve shr-image-fetched t] 9 "\n\n(fn URL START END)"]] 4 (#$ . 34156)])
#@24 

(fn DOM &rest TYPES)
(defalias 'shr-heading #[385 "\300 \210\301\302#\210\300 \207" [shr-ensure-paragraph apply shr-fontize-dom] 6 (#$ . 34754)])
#@34 

(fn START URL &optional TITLE)
(defalias 'shr-urlify #[770 "\302`\303#\210\304`\305\306\307\310\311\312\313\3141!\315\316!\317\307#0\202%\210\202(\206*\f!\320\321!>\204;\322\323\324D\"\210
\325H\203i\321!>\204P\322\323\324D\"\210
\325\326\321!>\204c\322\323\324D\"\210\325H!I\210\327!\262
\f\203~\330\331#\266\202\202\201\211\266\202\332\307\333\334C\257\f#\210\205\265`W\205\265\335\336\320`$\337\336\"\203\246\262\202\212\340\206\255`\336	$\266\202\212\207" [cl-struct-url-tags shr-map shr-add-font shr-link add-text-properties shr-url button t category shr help-echo url-generic-parse-url (error) decode-coding-string url-unhex-string utf-8 nil type-of signal wrong-type-argument url 4 puny-encode-domain url-recreate-url format "%s (%s)" follow-link mouse-face highlight next-single-property-change keymap get-text-property put-text-property] 22 (#$ . 34910)])
#@23 Encode URL.

(fn URL)
(defalias 'shr-encode-url #[257 "\300
\301\"\207" [browse-url-url-encode-chars "[)$ ]"] 4 (#$ . 35829)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [autoload shr-color-visible "shr-color" shr-color->hexadecimal] 3)
#@178 Check that FG is visible on BG.
Returns (fg bg) with corrected values.
Returns nil if the colors that would be used are the default
ones, in case fg and bg are nil.

(fn FG BG)
(defalias 'shr-color-check #[514 "
\204\211\205T
\204\300\202\211?\205\301\302!\206 \303\304\305\"\302!\206*\303\304\306\"\307\267\202L\304\310\311#A@D\266\202\202R\310\311#A@\304D\266\202\202R\310
\"\266\202\262
\207" [fg bg shr-color->hexadecimal frame-parameter nil foreground-color background-color #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (bg 48 fg 62)) shr-color-visible t] 10 (#$ . 36080)])
#@34 

(fn START END FG &optional BG)
(defalias 'shr-colorize-region #[1027 "\205=
\204\f\211\205=\301 \302Y\205=\303\"\211\203:\203*\304\305A@D\306$\210
\203:\304\307@\310\306F\306$\210\211\262
\207" [shr-use-colors display-color-cells 88 shr-color-check add-face-text-property :foreground t :background :extend] 12 (#$ . 36727)])
#@12 

(fn DOM)
(defalias 'shr-tag-html #[257 "\301
\211@:\203\211@A@\262
\202\211A@\262
\236A\211\302\267\210\2022\303\210\2022\304\210\2022\305\210\2022\210\211\211\211@:\203C\211@AA\262
\202H\211AA\262
\211\205e\211@\211;\203Z\306
!\210\202^\307
!\210
A\266\202\202H\207" [bidi-paragraph-direction dir #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("ltr" 31 "rtl" 37 "auto" 43)) left-to-right right-to-left nil shr-insert shr-descend] 6 (#$ . 37077)])
#@12 

(fn DOM)
(defalias 'shr-tag-body #[257 "`\301\211@:\203\211@A@\262
\202\211A@\262
\236A\2064\302\211@:\203-\211@A@\262
\2022\211A@\262
\236A\303\211@:\203E\211@A@\262
\202J\211A@\262
\236A\304B\305BD\211\211@:\203e\211@AA\262
\202j\211AA\262
\211\205\207\211@\211;\203|\306
!\210\202\200\307
!\210
A\266\202\202j\266\310`$)\207" [shr-stylesheet fgcolor text bgcolor color background-color shr-insert shr-descend shr-colorize-region] 9 (#$ . 37592)])
#@12 

(fn DOM)
(defalias 'shr-tag-style #[257 "\300\207" [nil] 2 (#$ . 38076)])
#@12 

(fn DOM)
(defalias 'shr-tag-script #[257 "\300\207" [nil] 2 (#$ . 38158)])
#@12 

(fn DOM)
(defalias 'shr-tag-comment #[257 "\300\207" [nil] 2 (#$ . 38241)])
#@30 

(fn DOM &optional CHARSET)
(defalias 'shr-dom-to-xml #[513 "\300\301\302\"r\211q\210\303\304\"\216\305!\210
\203$\306ed#\210eb\210\307\310\"c\210\311 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] shr-dom-print encode-coding-region format "<?xml version=\"1.0\" encoding=\"%s\"?>\n" buffer-string] 7 (#$ . 38325)])
#@72 Convert DOM into a string containing the xml representation.

(fn DOM)
(defalias 'shr-dom-print #[257 "\301\302\211@:\203\211@@\262
\202\211@\262
\"c\210\211\211@:\203(\211@A@\262
\202-\211A@\262
\211\203O\211@\301\303@\"\304H\305U\204H\301\306@A#c\210
A\266\202\202-\210\307c\210\310
\211@:\203d\211@AA\262
\202i\211AA\262
\211\203\341\211@\211;\203z\211c\210\202\332\211\211@:\203\211\211@@\262
\202\215\211@\262
\311=\204\332\211\211@:\203\241\211@@\262
\202\245\211@\262
\312=\203\323\313
\211@:\203\273\211@A@\262
\202\300\211A@\262
\236A\211\262\203\323\203\323\314\"\204\332\315c\210\316
!\210
A\266\202\202i\266\301\317\211@:\203\364\211@@\262
\202\370\211@\262
\"c\207" [shr-blocked-images format "<%s" "%s" 0 58 " %s=\"%s\"" ">" nil comment image :xlink:href string-match " " shr-dom-print "</%s>"] 7 (#$ . 38726)])
#@12 

(fn DOM)
(defalias 'shr-tag-svg #[257 "\302\303!\205J?\205J\304
\211@:\203\211@A@\262
\202!\211A@\262
\236A\205J\305
\211@:\2037\211@A@\262
\202<\211A@\262
\236A\205J	\306\307\"\310D\311\"\207" [shr-inhibit-images shr-put-image-function image-type-available-p svg width height shr-dom-to-xml utf-8 image/svg+xml "SVG Image"] 5 (#$ . 39596)])
#@12 

(fn DOM)
(defalias 'shr-tag-sup #[257 "`
\211\211@:\203\211@AA\262
\202\211AA\262
\211\2054\211@\211;\203)\300
!\210\202-\301
!\210
A\266\202\202\266\302
`\303\304$\207" [shr-insert shr-descend put-text-property display (raise 0.2)] 7 (#$ . 39957)])
#@12 

(fn DOM)
(defalias 'shr-tag-sub #[257 "`
\211\211@:\203\211@AA\262
\202\211AA\262
\211\2054\211@\211;\203)\300
!\210\202-\301
!\210
A\266\202\202\266\302
`\303\304$\207" [shr-insert shr-descend put-text-property display (raise -0.2)] 7 (#$ . 40225)])
#@12 

(fn DOM)
(defalias 'shr-tag-p #[257 "\300 \210\211\211\211@:\203\211@AA\262
\202\211AA\262
\211\2056\211@\211;\203+\301
!\210\202/\302
!\210
A\266\202\202\266\300 \207" [shr-ensure-paragraph shr-insert shr-descend] 6 (#$ . 40494)])
#@12 

(fn DOM)
(defalias 'shr-tag-div #[257 "\301\236A\211\302\232\204\211\303\232\203D
\211\211@:\203!\211@AA\262
\202&\211AA\262
\211\205C\211@\211;\2038\304
!\210\202<\305
!\210
A\266\202\202&\207\306 \210
\211\211@:\203X\211@AA\262
\202]\211AA\262
\211\205z\211@\211;\203o\304
!\210\202s\305
!\210
A\266\202\202]\266\306 \207" [shr-stylesheet display "inline" "inline-block" shr-insert shr-descend shr-ensure-newline] 7 (#$ . 40744)])
#@12 

(fn DOM)
(defalias 'shr-tag-s #[257 "\300
\301\"\207" [shr-fontize-dom shr-strike-through] 4 (#$ . 41202)])
#@12 

(fn DOM)
(defalias 'shr-tag-b #[257 "\300
\301\"\207" [shr-fontize-dom bold] 4 (#$ . 41318)])
#@12 

(fn DOM)
(defalias 'shr-tag-i #[257 "\300
\301\"\207" [shr-fontize-dom italic] 4 (#$ . 41420)])
#@12 

(fn DOM)
(defalias 'shr-tag-em #[257 "\300
\301\"\207" [shr-fontize-dom italic] 4 (#$ . 41524)])
#@12 

(fn DOM)
(defalias 'shr-tag-strong #[257 "\300
\301\"\207" [shr-fontize-dom bold] 4 (#$ . 41629)])
#@12 

(fn DOM)
(defalias 'shr-tag-u #[257 "\300
\301\"\207" [shr-fontize-dom underline] 4 (#$ . 41736)])
#@12 

(fn DOM)
(defalias 'shr-tag-code #[257 "\301\211\211\211@:\203\211@AA\262
\202\211AA\262
\211\2055\211@\211;\203*\302
!\210\202.\303
!\210
A\266\202\202\266\202)\207" [shr-current-font fixed-pitch shr-insert shr-descend] 6 (#$ . 41843)])
#@12 

(fn DOM)
(defalias 'shr-tag-tt #[257 "\300
!\207" [shr-tag-code] 3 (#$ . 42099)])
#@13 

(fn CONT)
(defalias 'shr-tag-ins #[257 "`\301\302BC\244
\211\211@:\203\211@AA\262
\202\211AA\262
\211\205;\211@\211;\2030\303
!\210\2024\304
!\210
A\266\202\202\266\305
`\302\306\236A$)\207" [shr-stylesheet color "green" shr-insert shr-descend shr-colorize-region background-color] 8 (#$ . 42189)])
#@13 

(fn CONT)
(defalias 'shr-tag-del #[257 "`\301\302BC\244\303\304\"\210\305
`\302\306\236A$)\207" [shr-stylesheet color "red" shr-fontize-dom shr-strike-through shr-colorize-region background-color] 8 (#$ . 42509)])
#@14 

(fn STYLE)
(defalias 'shr-parse-style #[257 "\211\205t\301 \302\303\"\216\304\305\"\203\306\307\310\211$\262)\210\311\312\313\"\211\203p\211@\211\203i\312
\314\"\262
\211@\203i\211A@\203i\315\316\317@#\315\316\317A@#\304\320\"\203W\211\321\211\224O\262
\211\322\232\204g\323\"
BB\262\266
A\266\202\202!\210\211\262
\207" [obarray match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\n" replace-match " " t nil split-string ";" ":" replace-regexp-in-string "^ +\\| +$" "" " *!important\\'" 0 "inherit" intern] 9 (#$ . 42735)])
#@12 

(fn DOM)
(defalias 'shr-tag-base #[257 "\301
\211@:\203\211@A@\262
\202\211A@\262
\236A\211G\302V\203#\303
!\210\211\211\211@:\2035\211@AA\262
\202:\211AA\262
\211\205W\211@\211;\203L\304
!\210\202P\305
!\210
A\266\202\202:\207" [shr-base href 0 shr-parse-base shr-insert shr-descend] 6 (#$ . 43336)])
#@12 

(fn DOM)
(defalias 'shr-tag-a #[257 "\301
\211@:\203\211@A@\262
\202\211A@\262
\236A\302\211@:\203)\211@A@\262
\202.\211A@\262
\236A`\303\211\211@:\203D\211@AA\262
\202I\211AA\262
\211\205f\211@\211;\203[\304
!\210\202_\305
!\210
A\266\202\202I\266\306\211@:\203y\211@A@\262
\202~\211A@\262
\236A?\205\234\307\211@:\203\225\211@A@\262
\202\232\211A@\262
\236A\211\203\271
`U\203\261\310c\210\311`S`\312\313$\210\311\211T\314$\210\210\205\311\315\206\304
\316!#)\207" [shr-start href title nil shr-insert shr-descend id name 32 put-text-property display "" shr-target-id shr-urlify shr-expand-url] 10 (#$ . 43658)])
#@12 

(fn DOM)
(defalias 'shr-tag-abbr #[257 "\300
\211@:\203\211@A@\262
\202\211A@\262
\236A`\211\211@:\203*\211@AA\262
\202/\211AA\262
\211\205L\211@\211;\203A\301
!\210\202E\302
!\210
A\266\202\202/\266\303
`\304#\210
\205a\305
`\306\307\310F#\207" [title shr-insert shr-descend shr-add-font shr-abbreviation add-text-properties help-echo mouse-face highlight] 10 (#$ . 44314)])
#@12 

(fn DOM)
(defalias 'shr-tag-acronym #[257 "\300
!\207" [shr-tag-abbr] 3 (#$ . 44712)])
#@12 

(fn DOM)
(defalias 'shr-tag-object #[257 "?\205M
`\301\211\211\302\211@:\203\211@A@\262
\202\211A@\262
\236A\211\203J\303\304\"\203J\305\211@:\203>\211@A@\262
\202C\211A@\262
\236A\262\306\262\210\307!\211\203\355\211@\211\211@:\203c\211@@\262
\202g\211@\262
\310=\203\220\206\210\311
\211@:\203\201\211@A@\262
\202\206\211A@\262
\236A\262\306\262\202\346\211\211@:\203\237\211@@\262
\202\243\211@\262
\312=\203\346\313
\211@:\203\271\211@A@\262
\202\276\211A@\262
\236A\314\232\203\346\206\341\315
\211@:\203\332\211@A@\262
\202\337\211A@\262
\236A\262\306\262
A\266\202\202N\210\203
\211\203
\316\317#\210\301\262\202

\203
\320\321!\210\322\323!\"\210\205K
\211\211@:\203'
\211@AA\262
\202,
\211AA\262
\211\205I
\211@\211;\203>
\320
!\210\202B
\324
!\210
A\266\202\202,
\266\202\266\204\207" [shr-inhibit-images nil type string-match "\\`image/svg" data t dom-non-text-children embed src param name "movie" value shr-indirect-call img shr-insert " [multimedia] " shr-urlify shr-expand-url shr-descend] 10 (#$ . 44807)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable shr-prefer-media-type-alist funcall function #[0 "\300\207" [(("webm" . 1.0) ("ogv" . 1.0) ("ogg" . 1.0) ("opus" . 1.0) ("flac" . 0.9) ("wav" . 0.5))] 1 ""] "Preferences for media types.\nThe key element should be a regexp matched against the type of the source or\nurl if no type is specified.  The value should be a float in the range 0.0 to\n1.0.  Media elements with higher value are preferred." :version "24.4" :type (alist :key-type regexp :value-type float)] 8)
#@114 Determine the preference for ELEM.
The preference is a float determined from `shr-prefer-media-type'.

(fn ELEM)
(defalias 'shr--get-media-pref #[257 "\302
\211@:\203\211@A@\262
\202\211A@\262
\236A\303
\2047\304\211@:\203.\211@A@\262
\2023\211A@\262
\236A\262
\203f\211\203e\211@\211AV\203^\211@\305\306\307#)\266\203\203^\211A\262
A\266\202\202<\210\207" [shr-prefer-media-type-alist inhibit-changing-match-data type 0.0 src nil t string-match] 12 (#$ . 46448)])
#@92 Extract the best `:src' property from <source> blocks in DOM.

(fn DOM &optional URL PREF)
(defalias 'shr--extract-best-source #[769 "\211\206\300\262
\301\302!\211\203\232\211@\211\211@:\203 \211@@\262
\202$\211@\262
\303=\203\223\304!\211\262W\203\223\262\305
\211@:\203H\211@A@\262
\202M\211A@\262
\236A\262\302
!\211\203\222\211@\211\211@:\203i\211@@\262
\202m\211@\262
\303=\203\213\306
C#
AW\203\212\211@\262\211A\262\210
A\266\202\202T\210
A\266\202\202\266

B\207" [-1.0 nil dom-non-text-children source shr--get-media-pref src shr--extract-best-source] 12 (#$ . 46941)])
#@12 

(fn DOM)
(defalias 'shr-tag-video #[257 "\300
\211@:\203\211@A@\262
\202\211A@\262
\236A\301\211@:\203)\211@A@\262
\202.\211A@\262
\236A`
\204;\302!@\262G\303V\203K\304\305\306#\210\202O\307\310!\210\311
\312!\"\207" [poster src shr--extract-best-source 0 shr-indirect-call img nil shr-insert " [video] " shr-urlify shr-expand-url] 8 (#$ . 47560)])
#@12 

(fn DOM)
(defalias 'shr-tag-audio #[257 "\300
\211@:\203\211@A@\262
\202\211A@\262
\236A`
\204#\301!@\262\302\303!\210\304
\305!\"\207" [src shr--extract-best-source shr-insert " [audio] " shr-urlify shr-expand-url] 7 (#$ . 47932)])
#@26 

(fn DOM &optional URL)
(defalias 'shr-tag-img #[513 "\211\204D
\205*\306\211@:\203\211@A@\262
\202\211A@\262
\236AG\307V\204D\310\211@:\2037\211@A@\262
\202<\211A@\262
\236AG\307V\205*i\307V\203M\311c\210\312\211@:\203^\211@A@\262
\202c\211A@\262
\236A\313\314\211@:\203w\211@A@\262
\202|\211A@\262
\236A!\313\315\211@:\203\221\211@A@\262
\202\226\211A@\262
\236A!\316\206\242\317!!\320 G\307U\203\257\321\262
\203\332
\315\211@:\203\305\211@A@\262
\202\312\211A@\262
\236A\322\235\204\332
\314\211@:\203\343\211@A@\262
\202\350\211A@\262
\236A\323\235\204\332
\204
\324\325\"\203
\326\307\225\327O!\211\203
	
\330\331	F#\266\202\332
c\266\202\332
\204T
\324\332\"\203T

\307\225\327O\327\n\203;
\n!\211\262\204C
c\266\202\332
	
\330	\331\nF#\266\202\332
\204c
\203l
\324\"\203l
`\333!\210\202\332

\204\212
\334\335!!\203\212
	\336!\330\331F#\210\202\332

\203\246
\334\335!!\203\246
\337\335!!\340
!\203\245
\341
!\210\210\342\343!\203\271
\344\345!\206\267
\346\"\210\347c\210\350\335!\351p\352 `\327\223\330\n\331FF\353\3546\"?%\2107\307U\205&\355
`\3568$\210\355
`\357$\210\355
`\360$\210\355
`\361\362\n!$\210\355
`\363\364\365\f\211@:\203\211@A@\262
\202\211A@\262
\236A\206$	!$\262
\266\204\207" [shr-inhibit-images shr-put-image-function shr-content-function shr-blocked-images shr-start shr-ignore-cache src 0 srcset "\n" alt shr-string-number width height shr-expand-url shr--preferred-image point-marker "*" ("0" "1") ("0" "1") string-match "\\`data:" shr-image-from-data nil :width :height "\\`cid:" shr-insert url-is-cached shr-encode-url shr-get-image-data url-cache-create-filename file-exists-p delete-file image-type-available-p svg insert-image shr-make-placeholder-image "" " " url-queue-retrieve shr-image-fetched make-marker t shr--use-cookies-p put-text-property keymap shr-alt image-url image-displayer shr-image-displayer help-echo shr-fill-text title shr-base shr-table-depth shr-image-map] 17 (#$ . 48181)])
#@127 Say whether to use cookies when fetching URL (typically an image).
BASE is the URL of the HTML being rendered.

(fn URL BASE)
(defalias 'shr--use-cookies-p #[514 "\211\204\302\207\303=\203l\304!\305
!	>\204\306\307\310D\"\210\211\311H\262
\312\304@!\305
!	>\2047\306\307\310D\"\210\211\311H\262
\313\"\314\302\203e\315\316\317\320#\"\203Z\314\262
\302\211\262\202[\314\203eA\262\202@
?\205k\211\207\207" [shr-cookie-policy cl-struct-url-tags nil same-origin url-generic-parse-url type-of signal wrong-type-argument url 4 split-string "\\." t url-cookie-host-can-set-p mapconcat identity "."] 12 (#$ . 50229)])
#@12 

(fn DOM)
(defalias 'shr--preferred-image #[257 "\300
\211@:\203\211@A@\262
\202\211A@\262
\236A\301 \302\303\211@:\203,\211@A@\262
\2021\211A@\262
\236A\2067\304!\305G\306V\203r\307\310\311\312\"\313\314\315\316\n#\317\"\"\320\"\262@@\262
\203r@A@V\203r@@\262
A\262\202Y\211\206\216\321\211@:\203\207\211@A@\262
\202\214\211A@\262
\236A\207" [srcset frame-pixel-width string-to-number width "100" nil 0 sort mapcar make-closure #[257 "\301
\302\"\211G\303U\203\211@\304D\207\305\306A@\"\203'\211@\300\307\310\303A@\"!_D\207\211@\307A@!D\207" [V0 split-string "[	\n
 ]+" 1 0 string-match "\\([0-9]+\\)x\\'" string-to-number match-string] 8 "\n\n(fn ELEM)"] split-string replace-regexp-in-string "\\`[	\n
 ]+\\|[	\n
 ]+\\'" "" "[	\n
 ]*,[	\n
 ]*" #[514 "
A@
A@V\207" [] 4 "\n\n(fn E1 E2)"] src] 13 (#$ . 50870)])
#@15 

(fn STRING)
(defalias 'shr-string-number #[257 "\211\205\300\301\302#\262
\211G\303U?\205\304
!\207" [replace-regexp-in-string "[^0-9]" "" 0 string-to-number] 5 (#$ . 51722)])
#@12 

(fn DOM)
(defalias 'shr-make-placeholder-image #[257 "\302p!\205\303\302p!!\304!\305\306\307\211@:\203!\211@A@\262
\202&\211A@\262
\236A!\206-\310_!\305\306\311\211@:\203D\211@A@\262
\202I\211A@\262
\236A!\206P\310_!\205c\305	\3128@Z_!\205t\305	\3138A@Z_!\314\203\216V\203\216\305\315!\245_!\262\262
\203\247V\203\247\305\315!\245_!\262
\262\316\"\262
\317
\320\321\322$\210\323
\324\211\325\320\326\312\327\330&\210\331
\332\333#\334
\335\310#\210\207" [image-scaling-factor shr-max-image-proportion get-buffer-window window-inside-pixel-edges image-compute-scaling-factor truncate shr-string-number width 100 height 2 3 nil float svg-create svg-gradient "background" linear ((0 . "#b0b0b0") (100 . "#808080")) svg-rectangle 0 :gradient :stroke-width :stroke-color "black" svg-image :scale 1 image--set-property :ascent] 20 (#$ . 51911)])
#@12 

(fn DOM)
(defalias 'shr-tag-pre #[257 "\302\303\304 \210\211\211\211@:\203\211@AA\262
\202\211AA\262
\211\205:\211@\211;\203/\305
!\210\2023\306
!\210
A\266\202\202\266\304 *\207" [shr-current-font shr-folding-mode none default shr-ensure-newline shr-insert shr-descend] 6 (#$ . 52814)])
#@12 

(fn DOM)
(defalias 'shr-tag-blockquote #[257 "\302 \210`\303	_\\
\211\211@:\203\211@AA\262
\202 \211AA\262
\211\205=\211@\211;\2032\304
!\210\2026\305
!\210
A\266\202\202 \266\302 \210\306
!)\207" [shr-indentation shr-table-separator-pixel-width shr-ensure-paragraph 4 shr-insert shr-descend shr-mark-fill] 7 (#$ . 53122)])
#@12 

(fn DOM)
(defalias 'shr-tag-dl #[257 "\300 \210\211\211\211@:\203\211@AA\262
\202\211AA\262
\211\2056\211@\211;\203+\301
!\210\202/\302
!\210
A\266\202\202\266\300 \207" [shr-ensure-paragraph shr-insert shr-descend] 6 (#$ . 53464)])
#@12 

(fn DOM)
(defalias 'shr-tag-dt #[257 "\300 \210\211\211\211@:\203\211@AA\262
\202\211AA\262
\211\2056\211@\211;\203+\301
!\210\202/\302
!\210
A\266\202\202\266\300 \207" [shr-ensure-newline shr-insert shr-descend] 6 (#$ . 53715)])
#@12 

(fn DOM)
(defalias 'shr-tag-dd #[257 "\302 \210\303	_\\\211\211\211@:\203\211@AA\262
\202\211AA\262
\211\205<\211@\211;\2031\304
!\210\2025\305
!\210
A\266\202\202\266\202)\207" [shr-indentation shr-table-separator-pixel-width shr-ensure-newline 4 shr-insert shr-descend] 6 (#$ . 53964)])
#@12 

(fn DOM)
(defalias 'shr-tag-ul #[257 "\301 \210\302\211\211\211@:\203\211@AA\262
\202\211AA\262
\211\2058\211@\211;\203-\303
!\210\2021\304
!\210
A\266\202\202\266)n\204B\305c\210\301 \207" [shr-list-mode shr-ensure-paragraph ul shr-insert shr-descend "\n"] 6 (#$ . 54272)])
#@12 

(fn DOM)
(defalias 'shr-tag-ol #[257 "\301 \210\211\211@:\203\211@A@\262
\202\211A@\262
\302\303\"\3041'\305
!0\202*\306\262
\211\211\211@:\203=\211@AA\262
\202B\211AA\262
\211\205_\211@\211;\203T\307
!\210\202X\310
!\210
A\266\202\202B\266)\266\301 \207" [shr-list-mode shr-ensure-paragraph alist-get start (t) cl-parse-integer 1 shr-insert shr-descend] 9 (#$ . 54567)])
#@12 

(fn DOM)
(defalias 'shr-tag-li #[257 "\303 \210`\247\203\304\305\"T\202	@\247\203 \306
!\202\"	A
c\210\307!\210\n
\\\310\211T\311\n$\210\310\211T\312G$\210\211\211@:\203O\211@AA\262
\202T\211AA\262
\211\205q\211@\211;\203f\313
!\210\202j\314
!\210
A\266\202\202T\266)\266n?\205}\315c\207" [shr-list-mode shr-internal-bullet shr-indentation shr-ensure-newline format "%d " shr-string-pixel-width shr-mark-fill put-text-property shr-continuation-indentation shr-prefix-length shr-insert shr-descend "\n"] 9 (#$ . 54964)])
#@14 

(fn START)
(defalias 'shr-mark-fill #[257 "\211`U?\205\301
\302\"?\205\303
\211T\300$\207" [shr-indentation get-text-property shr-table-id put-text-property] 6 (#$ . 55518)])
#@12 

(fn DOM)
(defalias 'shr-tag-br #[257 "o\204n\203`\300ZeV\203`\300Zf\301U\204\302c\210\211\211\211@:\203-\211@AA\262
\2022\211AA\262
\211\205O\211@\211;\203D\303
!\210\202H\304
!\210
A\266\202\2022\207" [2 10 "\n" shr-insert shr-descend] 6 (#$ . 55706)])
#@12 

(fn DOM)
(defalias 'shr-tag-span #[257 "\211\211\211@:\203\211@AA\262
\202\211AA\262
\211\2053\211@\211;\203(\300
!\210\202,\301
!\210
A\266\202\202\207" [shr-insert shr-descend] 6 (#$ . 55982)])
#@12 

(fn DOM)
(defalias 'shr-tag-h1 #[257 "\300
\301\"\207" [shr-heading shr-h1] 4 (#$ . 56195)])
#@12 

(fn DOM)
(defalias 'shr-tag-h2 #[257 "\300
\301\"\207" [shr-heading shr-h2] 4 (#$ . 56296)])
#@12 

(fn DOM)
(defalias 'shr-tag-h3 #[257 "\300
\301\"\207" [shr-heading shr-h3] 4 (#$ . 56397)])
#@12 

(fn DOM)
(defalias 'shr-tag-h4 #[257 "\300
\301\"\207" [shr-heading shr-h4] 4 (#$ . 56498)])
#@12 

(fn DOM)
(defalias 'shr-tag-h5 #[257 "\300
\301\"\207" [shr-heading shr-h5] 4 (#$ . 56599)])
#@12 

(fn DOM)
(defalias 'shr-tag-h6 #[257 "\300
\301\"\207" [shr-heading shr-h6] 4 (#$ . 56700)])
#@12 

(fn DOM)
(defalias 'shr-tag-hr #[257 "\304 \210\305\204\f	\202	\n\245T\"\306\261\207" [shr-use-fonts shr-internal-width shr-table-separator-pixel-width shr-hr-line shr-ensure-newline make-string "\n"] 4 (#$ . 56801)])
#@12 

(fn DOM)
(defalias 'shr-tag-title #[257 "\300
\301\302#\207" [shr-heading bold underline] 5 (#$ . 57033)])
#@12 

(fn DOM)
(defalias 'shr-tag-font #[257 "`\301\211@:\203\211@A@\262
\202\211A@\262
\236A\301
BC\244\211\211@:\2031\211@AA\262
\2026\211AA\262
\211\205S\211@\211;\203H\302
!\210\202L\303
!\210
A\266\202\2026\266\211\205b\304`\305\236A$)\207" [shr-stylesheet color shr-insert shr-descend shr-colorize-region background-color] 9 (#$ . 57148)])
#@12 

(fn DOM)
(defalias 'shr-tag-bdo #[257 "\300
\211@:\203\211@A@\262
\202\211A@\262
\236A\211\301\267\202&\302\202'\303\202'\304\211\2030\305
\261\210\211\211@:\203A\211@AA\262
\202F\211AA\262
\211\205c\211@\211;\203X\306
!\210\202\\\307
!\210
A\266\202\202F\266\211\205m\310\311\261\207" [dir #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("ltr" 30 "rtl" 34)) 8237 8238 nil 8296 shr-insert shr-descend 8236 8297] 8 (#$ . 57515)])
#@12 

(fn DOM)
(defalias 'shr-tag-bdi #[257 "\300c\210\211\211\211@:\203\211@AA\262
\202\211AA\262
\211\2056\211@\211;\203+\301
!\210\202/\302
!\210
A\266\202\202\266\303c\207" [8296 shr-insert shr-descend 8297] 6 (#$ . 58012)])
#@12 

(fn DOM)
(defalias 'shr-tag-table-1 #[257 "\306
\307\"\206\211\262
\310	T\310\311
!\312
!\313\211@:\203(\211@A@\262
\202-\211A@\262
\236A\2068\314\315\313$\211\315\211:\203S@\262\316\317\"
B\262
A\262\202;\211\237\266\203
\315\211:\203r@\262\316\320\"
B\262
A\262\202Z\211\237\266\203\321#\322\315\323T\211\262\203\234GW\203\234H\262\211T\\\262
\202\266\202\\\f\\\324 V\203\252\310\325\314\310#\"+\207" [shr-inhibit-images shr-table-depth shr-kinsoku-shorten shr-indentation shr-table-separator-pixel-width truncate-lines dom-child-by-tag tbody t shr-column-specs shr-pro-rate-columns shr-suggested-widths shr-make-table nil mapcar car cdr shr-table-widths -1 0 frame-width shr-insert-table] 12 (#$ . 58253)])
#@12 

(fn DOM)
(defalias 'shr-table-body #[257 "\300\301\302!\"\211\204\f
\207\211A\204\211@\207\303\304\305\302\"BB\207" [seq-filter #[257 "\211\211@:\203\211@@\262
\202\211@\262
\300=\207" [tbody] 3 "\n\n(fn CHILD)"] dom-non-text-children tbody nil mapcan] 7 (#$ . 59021)])
#@14 

(fn TBODY)
(defalias 'shr--fix-tbody #[257 "\300
\211@:\203\211@A@\262
\202\211A@\262
D
\211@:\203'\211@AA\262
\202,\211AA\262
\301\211:\203j@\262
;\204T
\211@:\203K\211@@\262
\202O\211@\262
\302=\204^\302\301\303\301EE\202_

B\262
A\262\202.\211\237\266\203\244\207" [tbody nil tr td] 10 (#$ . 59308)])
#@34 

(fn DOM CAPTION HEADER FOOTER)
(defalias 'shr--fix-table #[1028 "\300\301\302!!!\205\303!
\203\303!\202\304\205!\303!\305\306D\2053\307\306\310\306BBEC\244\203N
\203\362U\203\225U\203b\307\306\310\306\305\306\311\306\312#BBEEEC\202\267
\307\306\310\306\305\306\311\306\312\"BBEEEC\313U\203\201\202\221\307\306\310\306\305\306\311\306BBEEEC\244\202\267
\307\306\310\306\305\306\311\306BBEEECU\203\302\307\306\310\306\305\306\311\306\312\"BBEEEC\202\356\307\306\310\306\305\306\311\306
BBEEEC\313U\203\335\202\355\307\306\310\306\305\306\311\306BBEEEC\244\244\202\267
U\203
\307\306\310\306\305\306\311\306\312\"BBEEEC\202\267
\313U\203,
\312\307\306\310\306\305\306\311\306BBEEEC\"\202\267
\307\306\310\306\305\306\311\306BBEEE\307\306\310\306\305\306\311\306
BBEEED\202\267
\203\236
U\203o
\307\306\310\306\305\306\311\306\312
\"BBEEEC\202\267
\307\306\310\306\305\306\311\306\fBBEEEC\313U\203\212
\202\232
\307\306\310\306\305\306\311\306BBEEEC\244\202\267
\203\266
\307\306\310\306\305\306\311\306\fBBEEEC\202\267
\244\207" [dom-non-text-children shr--fix-tbody shr-table-body shr-max-columns 0 table nil tr td tbody append 1] 21 (#$ . 59639)])
#@12 

(fn DOM)
(defalias 'shr-tag-table #[257 "\302 \210\303
\304\"\211@:\203\211@AA\262
\202\211AA\262
\305\303\306\"!\305\303\307\"!\204u
\204u\303\310\"\204u\303\311\"\204u\211\204u\211\211@:\203R\211@AA\262
\202W\211AA\262
\211\205t\211@\211;\203i\312
!\210\202m\313
!\210
A\266\202\202W\207\314\211@:\203\206\211@A@\262
\202\213\211A@\262
\236A\203\227\315!\210\202\255\316$\317
\314\320#\210
A\241\210\315!\266\321\211@:\203\276\211@A@\262
\202\303\211A@\262
\236A`\322BC\244
\203\333\323
`\324\236A$\210	\325U\205
\212\326
`\"\210)\327!\211\205

\214``}\210\330\331\332#c\210\333ed\")\262
)\207" [shr-stylesheet shr-table-depth shr-ensure-paragraph dom-child-by-tag caption dom-non-text-children thead tfoot tbody tr shr-insert shr-descend shr-fixed-table shr-tag-table-1 shr--fix-table dom-set-attribute t bgcolor background-color shr-colorize-region color 0 shr-expand-alignments shr-collect-extra-strings-in-table mapconcat identity "\n" shr-fill-lines] 11 (#$ . 60889)])
#@286 Return extra strings in DOM of which the root is a table clause.
Render <img>s and <object>s, and strings and child <table>s of which
the parent <td> or <th> is lacking.  FLAGS is a cons of two boolean
flags that control whether to collect or render objects.

(fn DOM &optional FLAGS)
(defalias 'shr-collect-extra-strings-in-table #[513 "
\211@:\203\211@AA\262
\202\211AA\262
\300\211\211\211:\203\326@\262\300\262;\203F@\203\300A\204\300\301\302\"\203\300\303\304\"
B\262
\202\300:\203\300\211@:\203Z\211@@\262
\202^\211@\262
\262
\305>\204\300
\306=\203t\307\306\"\210\202\300
\310=\203\202\307\310\"\210\202\300\311\262
\312=\203\221\313\262\202\300
\314>\203\242@\203\300\315\262\202\300
\316=\203\300A\203\263\300\262\202\300@\203\300\300\262\307\316\"\210\203\317\317\320\"!
\244\262
A\262\202\211\237\207" [nil string-match "\\(?:[^	\n
 ]+[	\n
 ]+\\)*[^	\n
 ]+" match-string 0 (comment style) img shr-indirect-call object t tr (t) (td th) (t . t) table reverse shr-collect-extra-strings-in-table] 11 (#$ . 61921)])
#@21 

(fn TABLE WIDTHS)
(defalias 'shr-insert-table #[514 "\306\236A\307\232\211\203\310\202\311\211\203\312\202\n`T
\204&\313!\210\211\203d
\211@`\310\211\211\211\203F\211@\3148]\262
A\266\202\2022\210\211\262
\211\311]\310\211W\203i\315n\203\\\316 \210\n\317\261\266\211T\262
\202N\266\211\203S
\211@\314
8\320V\203L
b\210\321
8\310\211W\203\255\315GSX\203\240H\\\314\f_\\\262T\262\210\211T\262
\202\201\266\322
8
\204\275\323 _\202\276
\211\203
\211@\315\210`
G\310V\205\331\324\325GS\326#!\327\330\331\332\333	CE\334%
\203\360\327
\326#\262

\n\261\210\335`S\3368\337\f8$\266\311y\210
A\266\202\202\277\210GZ\310\211W\203J
\315\211\210`\327\330\331\332\333	CE\334%\n\261\210\335
`S\336\n8\3378$\266\311y\266\211T\262
\202
\266
A\266\202\202l\266\204]
\313!\210
A\266\202\202'\210\211`U?\205s
\340
\211T\303$*\207" [shr-stylesheet shr-table-separator-length shr-table-vertical-line shr-table-id shr-table-separator-pixel-width shr-use-fonts border-collapse "collapse" 0 1 "" shr-insert-table-ruler 2 nil shr-indent "\n" -1 4 3 frame-char-width shr-face-background get-text-property face propertize " " display space :align-to shr-table-indent shr-colorize-region 5 6 put-text-property] 25 (#$ . 63008)])
#@13 

(fn FACE)
(defalias 'shr-face-background #[257 "\211:\205E\300
\301\"\203\301\300\301\"D\206E\302
\211\2039\211@\211:\2032\211@\301=\2032\2042\211A@\262
A\266\202\202\210\211\205C\301
\303\304F\262
\207" [plist-get :background nil :extend t] 6 (#$ . 64308)])
#@18 

(fn START END)
(defalias 'shr-expand-alignments #[514 "\301\302\303$\211\262
W\205X
b\210\304\305`\302\"\306 \303\203N\212\307`\310$\211\262\203M\211b\210\305`\311\"\312``T\311\313\314\3158@	\\CE$\266\316u\210\202))\266
T\262\202\207" [shr-use-fonts next-single-property-change shr-table-id nil t get-text-property shr-pixel-column text-property-any shr-table-indent display put-text-property space :align-to 2 1] 14 (#$ . 64589)])
#@15 

(fn WIDTHS)
(defalias 'shr-insert-table-ruler #[257 "\205Mn\203	\305V\203\306 \210\nc\210\305
G\305\211W\203IH\\\307_\\\262\310H\245T\"\311\312\313\314\315CE\316\f%\n\261\210\211T\262
\202\266\317c\207" [shr-table-horizontal-line shr-indentation shr-table-corner shr-table-separator-pixel-width shr-table-id 0 shr-indent 2 make-string propertize " " display space :align-to shr-table-indent "\n"] 11 (#$ . 65051)])
#@45 

(fn TABLE NATURAL-TABLE SUGGESTED-WIDTHS)
(defalias 'shr-table-widths #[771 "\211G\301
\302\"\301\302\"\211\2038\211@\302
\211\203/\211@H]I\210T\262
A\266\202\202\266
A\266\202\202\210\211\203f\211@\302
\211\203]\211@H]I\210T\262
A\266\202\202B\266
A\266\202\202:\210\303\304\305\306\"\"\303\304\305\306\"\"ZGT_Z\302
\302V\203\314\302\211W\203\241
HHV\203\232
T\262\211T\262
\202\205\210\302\211W\203\313
HHV\203\304
H\245H\\^I\210\211T\262
\202\243\210\266
\207" [shr-table-separator-pixel-width make-vector 0 apply + append nil] 15 (#$ . 65497)])
#@52 

(fn DOM WIDTHS &optional FILL STORAGE-ATTRIBUTE)
(defalias 'shr-make-table #[1026 "\301E\"A@\206'\302#E
DB
\203$\303#\210\211\262
\207" [shr-content-cache assoc shr-make-table-1 dom-set-attribute] 9 (#$ . 66118)])
#@34 

(fn DOM WIDTHS &optional FILL)
(defalias 'shr-make-table-1 #[770 "\302\303G\304\"\304\302\211\211\211\305\n!\211\203\331
\211@\211\211@:\203$\211@@\262
\202(\211@\262
\306=\203\322
\302\305!\304\211\302GW\203\311
\fH\304U\203N\211A\262\242\202Y\fHSI\210\307\262
\211;\2044\211\211@:\203o\211@@\262
\202s\211@\262
\310>\204|\211\2044\311
\211@:\203\215\211@A@\262
\202\222\211A@\262
\236A\211\203\247
H\312!S\\I\210\210
GY\203\263\304\262\211\203\276H\202\301\313_\262	\314
\211@:\203\324\211@A@\262
\202\331\211A@\262
\236A\211\262	\2033
\312!GZ^\262S\304\211W\203\"
T
\\GSV\203\f
\211GSH\202
\n	\\T\\H\\\262\211T\262
\202\361\266
S\\\262\262\n\262\f\211\203\202
\315
\n#\204g
\f\304V\203g
\211@\262\f\245\211A@BB\262
S\262\266\202\202
\204{
\211@
A@BB\262\210\202\202
\211B\262\210\203\276
\316V\203\276
S\304\211W\203\274
\302T\262\203\256
\304\211\317\302\316\302\211\257\202\257
\320B\262\210\211T\262
\202\222
\266T\262
T\262\2024\237B\262\266
A\266\202\202\210\237\207" [shr-table-separator-pixel-width shr-table-separator-length nil make-vector 0 dom-non-text-children tr (td) (td th) rowspan string-to-number 10 colspan shr-render-td 1 -1 (0 . 0)] 27 (#$ . 66357)])
(defalias 'shr-pixel-buffer-width #[0 "\204 \212eb\210\301m\204\302\210\211i]\262
\303y\210\202	\211\262
)\207\304 \203,\305\302ed#@\207\306 \307\310\"\216\311\302\211\"\210\312\302p\"\210\305\302ed#@)\207" [shr-use-fonts 0 nil 1 get-buffer-window window-text-pixel-size current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] set-window-dedicated-p set-window-buffer] 5])
#@23 

(fn DOM WIDTH FILL)
(defalias 'shr-render-td #[771 "\300\301\302#!\211\211@:\203\211@A@\262
\202\211A@\262
\236A\206\211
\203w\303\211@:\2037\211@A@\262
\202<\211A@\262
\211\203p\211@\304
@!\305\306\"\203h\307\310\311\"!\211Y\203gA@X\203gA\262\210\210
A\266\202\202<\210\211\262
\206\211`\312#\313#\210
b\210\262
\207" [intern format "shr-td-cache-%s-%s" nil symbol-name string-match "shr-td-cache-\\([0-9]+\\)-nil" string-to-number match-string 1 shr-render-td-1 dom-set-attribute] 12 (#$ . 68090)])
#@23 

(fn DOM WIDTH FILL)
(defalias 'shr-render-td-1 #[771 "\303\304\305\"r\211q\210\306\307\"\216\310\211@:\203\211@A@\262
\202#\211A@\262
\236A\311\211@:\2036\211@A@\262
\202;\211A@\262
\236A\312\211@:\203O\211@A@\262
\202T\211A@\262
\236A\313\314\203k\315\316\"\205i\317!\262\203x\320BC\244\262\203\204\321BC\244\262\203\215\322\"\313\323\n!\210*\324 \306\325\"\216\326\314\211\"\210\327\314p\"\210\204\336\330\211@:\203\300\211@A@\262
\202\305\211A@\262
\236A\206\334\331 \332\f\313\"]\333\f\330#\210\211\262
\262
\203\357
\nX\203\357
\262\202\374	\334ed\"\210\331 \262))\210db\210`\335\314x\210\314\210`|\210eb\210

\336ed\"\337\340 \341\"\342\211@:\203,
\211@A@\262
\2021
\211A@\262
\236A\203T
\343\342\211@:\203I
\211@A@\262
\202N
\211A@\262
\236A!\202U
\344\321\236A\320\236A\257)\266\206*\207" [shr-stylesheet shr-indentation shr-internal-width generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] bgcolor fgcolor style 0 nil string-match "color" shr-parse-style background-color color append shr-descend current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] set-window-dedicated-p set-window-buffer shr-td-cache-natural shr-pixel-buffer-width shr-dom-max-natural-width dom-set-attribute shr-fill-lines " 	\n" count-lines split-string buffer-string "\n" colspan string-to-number 1] 18 (#$ . 68633)])
#@16 

(fn DOM MAX)
(defalias 'shr-dom-max-natural-width #[514 "
\211@:\203\211@@\262
\202\211@\262
\301=\203{\211\302\211@:\203*\211@A@\262
\202/\211A@\262
\236A\303\211:\203s@\262\303\304:\203Z@\262\211A\305_\\\\\262
A\262\202@\266\202\\
\203i

]\266\202\202l\211\266\202A\262\2023\266\202\206y\304]\207
\211@:\203\213\211@AA\262
\202\220\211AA\262
\211\203\252\211@\211;\204\243\306
\"\307_\262
A\266\202\202\220\210\207" [shr-table-separator-length table shr-suggested-widths nil 0 2 shr-dom-max-natural-width 1] 14 (#$ . 70102)])
(defalias 'shr-buffer-width #[0 "eb\210\300m\204\301\210\211i]\262
\302y\210\202\207" [0 nil 1] 3])
#@16 

(fn COLUMNS)
(defalias 'shr-pro-rate-columns #[257 "\302\303G\302\"G\302\211W\203H\\\262\211T\262
\202	\266\304\245\262G\302\211W\203L
\305H_	GT	_Z_!\306]I\210\211T\262
\202'\266\207" [shr-internal-width shr-table-separator-pixel-width 0 make-vector 1.0 truncate 10] 12 (#$ . 70779)])
#@12 

(fn DOM)
(defalias 'shr-column-specs #[257 "\300\301!\302\"\303!\211\203\227\211@\211\211@:\203\211@@\262
\202\"\211@\262
\304=\203\220\305\303!\211\203\216\211@\211\211@:\203@\211@@\262
\202D\211@\262
\306>\203\207\307
\211@:\203Z\211@A@\262
\202_\211A@\262
\236A\211\203\202\310\311\"\203\202\312\313\302\"!\211\262\305U\204\202\314\245I\210\210T\262
A\266\202\202+\266
A\266\202\202	\210\207" [make-vector shr-max-columns 1 dom-non-text-children tr 0 (td th) width string-match "\\([0-9]+\\)%" string-to-number match-string 100.0] 12 (#$ . 71098)])
#@17 

(fn DOM ELEM)
(defalias 'shr-count #[514 "\300\211@:\203\211@AA\262
\202\211AA\262
\211\203D\211@\211;\204=\211\211@:\2030\211@@\262
\2024\211@\262
=\203=T\262
A\266\202\202\210\207" [0] 7 (#$ . 71687)])
#@12 

(fn DOM)
(defalias 'shr-max-columns #[257 "\300\211\301\211@:\203\211@AA\262
\202\211AA\262
\211\203\324\211@\211;\204\257\211\211@:\2032\211@@\262
\2026\211@\262
\302=\203\257\300\262\211\211@:\203N\211@AA\262
\202S\211AA\262
\211\203\251\211@\211;\204\242\211\211@:\203m\211@@\262
\202q\211@\262
\303>\203\242TG\\\262\304
\211@:\203\216\211@A@\262
\202\223\211A@\262
\236A\211\203\241\305
!B\262\210
A\266\202\202S\210]\262\301\211\203\312\211@\211\306V\203\303\211SB\262
A\266\202\202\261\210\262
A\266\202\202\210\207" [0 nil tr (td th) rowspan string-to-number 1] 11 (#$ . 71914)])
(provide 'shr)