HOME


sh-3ll 1.0
DIR:/usr/share/emacs/26.1/lisp/net/
Upload File :
Current File : //usr/share/emacs/26.1/lisp/net/shr.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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


(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313\314\315&\210\316\317\320\321\322DD\323\312\324\314\307\325\326&	\210\316\327\320\321\330DD\331\312\324\314\307\325\332&	\210\316\333\320\321\334DD\335\312\313\314\307\325\336&	\210\316\337\320\321\340DD\341\312\342\314\307\325\336&	\210\316\343\320\321\344DD\345\314\307\325\346&\210\316\347\320\321\350DD\351\314\307\325\352&\210\316\353\320\321\354DD\355\314\307\325\352&\210\316\356\320\321\357DD\360\314\307\325\352&\210\316\361\320\321\362DD\363\312\313\325\364\314\307&	\210\316\365\320\321\366DD\367\312\370\325\371\314\307&	\210\316\372\320\321\373DD\374\312\370\314\307\325\321&	\210\316\375\320\321\376DD\377\312\370\314\307\325\336&	\207" [require browse-url dom seq svg image 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] "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] "Images that have URLs matching this regexp will be blocked." (choice (const nil) regexp) shr-use-fonts #[0 "\300\207" [t] 1] "If non-nil, use proportional fonts for text." boolean shr-use-colors #[0 "\300\207" [t] 1] "If non-nil, respect color specifications in the HTML." "26.1" shr-table-horizontal-line #[0 "\300\207" [nil] 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] "Character used to draw vertical table lines." character shr-table-corner #[0 "\300\207" [32] 1] "Character used to draw table corners." shr-hr-line #[0 "\300\207" [45] 1] "Character used to draw hr lines." shr-width #[0 "\300\207" [nil] 1] "Frame width to use for rendering.\nMay either be an integer specifying a fixed width in characters,\nor nil, meaning that the full width of the window should be used.\nIf `shr-use-fonts' is set, the mean character width is used to\ncompute the pixel width, which is used instead." (choice (integer :tag "Fixed width in characters") (const :tag "Use the width of the window" nil)) shr-bullet #[0 "\300\207" [#1="* "] 1 #1#] "Bullet used for unordered lists.\nAlternative suggestions are:\n- \"  \"\n- \"  \"" "24.4" string shr-external-browser #[0 "\300\207" [browse-url-default-browser] 1] "Function used to launch an external browser." shr-image-animate #[0 "\300\207" [t] 1] "Non nil means that images that can be animated will be."] 10)
#@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 (#$ . 3206))
#@46 Function called to put image and alt string.
(defvar shr-put-image-function 'shr-put-image (#$ . 3414))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face shr-strike-through ((t (:strike-through t))) "Font for <s> elements." :group shr shr-link ((t (:inherit link))) "Font for link elements."] 6)
#@37 If non-nil, inhibit loading images.
(defvar shr-inhibit-images nil (#$ . 3759))
#@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 (#$ . 3846))
(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-target-id 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)
(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\323#\210\301\325\317#\210\301\326\327#\210\301\330\317#\210\211\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 "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\211\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\307rq\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 (#$ . 5369) (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 (#$ . 5756) "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 "\302\303!\205Y\304\305\203\306\202\307	\310=\203\311\202\312\313 !\206%\314\315\316 !\"*\314U?\206Y\310\305\203=\306\202>\307	\310=\203H\311\202I\312\313 !\206P\314\315\316 !\"*\314U?\207" [real side fboundp fringe-columns right nil / ceiling left car cadr window-fringes 0 float frame-char-width] 4 (#$ . 6120)])
#@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\202 \n\312 _\206X\204=\313\314 \315\n\2048\316 \2048\307\2029\315#\202X\313\314\306\317\"\312 \320_\n\204V\316 \204V\312 \320_\202W\307#\306\321\306\307\"\210\322!\210\323`\"\210\324`\"\210\205\206\325\326\".	\207" [shr-content-cache shr-bullet shr-width shr-use-fonts bidi-display-reordering shr-internal-width nil 0 shr-string-pixel-width "-" frame-char-width - window-body-width 1 shr--have-one-fringe-p t 2 set-window-hscroll shr-descend shr-fill-lines shr--remove-blank-lines-at-the-end message "%s" shr-internal-bullet shr-table-separator-pixel-width shr-warning shr-table-id shr-depth shr-base shr-start] 14 (#$ . 6576)])
#@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 (#$ . 7493)])
#@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 (#$ . 7698)])
#@211 Copy the URL under point to the kill ring.
If IMAGE-URL (the prefix) 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 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 (#$ . 8053) (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\305!\306\"\307\310%\311\312$\207" [url-retrieve make-byte-code 257 "\211:\205&\211@\211\301=\205$A\211:\205\"\211@\211\300\302\303\304#!\262\262\262\262\207" vconcat vector [:redirect replace-regexp-in-string ".utm_.*" ""] 10 "\n\n(fn A)" nil t] 10 (#$ . 8511) "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 (#$ . 9048) (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 (#$ . 9396) (byte-code "\301!C\207" [current-prefix-arg shr-url-at-point] 2)])
#@24 Skip to the next link.
(defalias 'shr-next-link #[0 "\300`\301\"`\302m\204\300`\301\"\232\203\303u\210\202m\204.\300`\301\"\203.\304\305\300`\306\"\"\202Qm\204>\307`d\301\302$\211\262\204Gb\210\304\310!\202Q\211b\210\304\305\300`\306\"\"\207" [get-text-property shr-url nil 1 message "%s" help-echo text-property-not-all "No next link"] 8 (#$ . 9788) nil])
#@28 Skip to the previous link.
(defalias 'shr-previous-link #[0 "`\300o\204\301`\302\"\203\303u\210\202o\204'\301`\302\"\211\262\204'\303u\210\202\211\2044\304\305!\210b\202Oo\204E\301`\302\"\203E\303u\210\2024\306u\210\304\307\301`\302\"\"\207" [nil get-text-property help-echo -1 message "No previous link" 1 "%s"] 7 (#$ . 10166) nil])
#@45 Show the ALT text of the image under point.
(defalias 'shr-show-alt-text #[0 "\300`\301\"\211\204\302\303!\202\302\304\305!\"\207" [get-text-property shr-alt message "No image under point" "%s" shr-fill-text] 5 (#$ . 10523) nil])
#@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\302\303!\202?\2037\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216c\210\315ed\"\210\302\316\"*\262\202?\302\317\"\210\320!\207" [get-text-property image-url message "No image under point" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 copy-region-as-kill "Copied %s" "Browsing %s..." browse-url] 9 (#$ . 10765) "P"])
#@47 Insert the image under point into the buffer.
(defalias 'shr-insert-image #[0 "\300`\301\"\211\204\302\303!\202\302\304\"\210\305\306p`S\307 E\310\211%\207" [get-text-property image-url message "No image under point" "Inserting %s..." url-retrieve shr-image-fetched point-marker t] 7 (#$ . 11406) 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\200\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{\322=\203s\323\202{\323=\205{\321BCF\324$)\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 full t] 11 (#$ . 11722) 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!\210A\266\202\202\207" [shr-insert shr-descend] 5 (#$ . 12418)])
(put 'shr-generic 'byte-optimizer 'byte-compile-inline-expand)
#@32 

(fn TAG-NAME DOM &rest ARGS)
(defalias 'shr-indirect-call #[642 "\302\303\304!P\"	\236A\211\203\305#\202+\306!\203&\305#\202+\305\307#\207" [obarray shr-external-rendering-functions intern "shr-tag-" symbol-name apply fboundp shr-generic] 9 (#$ . 12689)])
#@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\203^\313\211\202\203u\314\315\"\203r\316!\n\244\202u\317\262\320\n\236A\321\232?\205\203\213!\210\202\320\322!\203\232!\210\202\320\211\211@:\203\254\211@AA\262\202\261\211AA\262\211\205\316\211@\211;\203\303\323!\210\202\307\324!\210A\266\202\202\261\266\203\325\211@:\203\347\211@A@\262\202\354\211A@\262\236A\232\203\211`U\203\375\326c\210\327\211T\330$\210\205\331`\332\n\236A\333\n\236A$*\207" [obarray shr-external-rendering-functions shr-stylesheet shr-depth max-specpdl-size shr-warning intern "shr-tag-" symbol-name style 15 "Too deeply nested to render properly; consider increasing `max-specpdl-size'" string-match "color\\|display\\|border-collapse" shr-parse-style nil display "none" fboundp shr-insert shr-descend id "*" put-text-property shr-target-id shr-colorize-region color background-color] 13 (#$ . 12970)])
#@13 

(fn TEXT)
(defalias 'shr-fill-text #[257 "\211G\304U\203\207\305\306!r\211q\210\307\304\310\311\312!\313\"\314$\216\304\315\316\317\315\320\"\321 \314_\2046\322 \2046\321 \314_\2027\304#\323!\210\324ed\"\210\325 -\207" [shr-width shr-internal-width shr-start shr-indentation 0 generate-new-buffer " *temp*" make-byte-code "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil - window-body-width t frame-char-width shr--have-one-fringe-p shr-insert shr-fill-lines buffer-string] 9 (#$ . 14085)])
#@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 (#$ . 14624)])
(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 (#$ . 14930)])
#@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 (#$ . 15111)])
(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 (#$ . 15407)])
#@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 (#$ . 15582)])
(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 "\30024\211\301!\203\211\202\302\303!\304\305\306\307ED\310\311D\312EE=\203*\211\2021\313DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "char" and not eq 39 aref char-category-set 62 macroexp-let*] 9 (#$ . 15899)])
#@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 (#$ . 16231)])
(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 (#$ . 16526)])
(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\305\306\307!\310\"\311$\216\312\313\211\"\210\314\313p\"\210\315\313\316 `#@)\207\315\313\316 `#@\207" [shr-use-fonts get-buffer-window current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 set-window-dedicated-p nil set-window-buffer window-text-pixel-size line-beginning-position] 7])
(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!r\211q\210\303\304\305\306\307!\310\"\311$\216c\210\312 *\262b\210\207" [shr-use-fonts generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 shr-pixel-column] 9 (#$ . 17384)])
(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])
(put 'shr--translate-insertion-chars 'byte-optimizer 'byte-compile-inline-expand)
#@13 

(fn TEXT)
(defalias 'shr-insert #[257 "n\204\303`S\304\"\203\305c\210\306\267\202K`c\210\214\211`}\210eb\210\307\310\311\312#\2032\313\314\312\211#\210\202!eb\210\307\315\311\312#\203G\313\316\312\211#\210\2025\210db)\207`\317\320\"\203bn\204b`Sf\321=\204b\316c\210`nc\210\214`}\210b\210\322\323!\203{\313\314\312\211#\210\324\323\311\312#\203\214\313\316\312\211#\210\202{eb\210\307\310\311\312#\203\240\313\314\312\211#\210\202\217eb\210\307\315\311\312#\203\265\313\316\312\211#\210\202\243\210db\210)`U?\205\326\211\203\310\325!\210	\205\326\326`\327\n\206\325\330$\266\202\207" [shr-folding-mode shr-use-fonts shr-current-font get-text-property image-url "\n" #s(hash-table size 1 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (none 21)) search-forward "­" nil t replace-match "" " " " " string-match "\\`[ 	\n
]" 32 looking-at "[ 	\n
]+" re-search-forward shr-mark-fill put-text-property face variable-pitch] 9 (#$ . 18023)])
#@18 

(fn START END)
(defalias 'shr-fill-lines #[514 "\301X?\2053\214}\210b\210\302`\303\"\203\304 \210\305\303\"\211\262\2030b\210n\203\304 \210\202db)\207" [shr-internal-width 0 get-text-property shr-indentation shr-fill-line next-single-property-change] 5 (#$ . 19015)])
#@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 (#$ . 19306)])
(defalias 'shr-fill-line #[0 "\302`\300\"\302`\303\"\304\305``T\300\304$\210\302`\306\"`\307 \210\203)\305`\306\310!$\210\266`\262\2063\311	!\210\312\313!\203C`\314 |\210l?\205\233\315\316 !\203U`U\203c\317 \210\320\304w\210\321\320\314 \322#\210h\323U\203m\324\325!\210\306\302`\306\"\326\302`\326\"F`\327c\210\307 \210\330`#\266`\262\311	!\210\312\313!\203C`\314 |\210\202C)\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 image-displayer "\n" add-text-properties] 11])
#@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\201l\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\203h\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\202ug\211\305=?\205E\306!\307H\262\203x\321\316u\210\211S\211\262\317Y\205sg\211\305=?\205e\306!\307H\262\205sgH\205s\202K\262\204\201g\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 (#$ . 20278)])
#@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\211\312\313I\266\301\314\"\203K\315\316\"\262\211G\303U\204a\211GSH\317=\204a\211\320P\262\321!\306!>\204u\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 (#$ . 21485)])
(autoload 'url-expand-file-name "url-expand")
#@27 

(fn URL &optional BASE)
(defalias 'shr-expand-url #[513 "\211\203\n\301!\202\262G\302U\203\303\262\203)\304\305\"\203)\302\225\303O\262G\302U\2034\3068\207\211\203?\304\307\"\203A\207\302H\310=\203dG\311V\203_\311H\310=\203_\3128\313Q\207\211@P\207\302H\314=\203r\3068P\207\315@A@P\"\207" [shr-base shr-parse-base 0 nil string-match "\\`\\s-+" 3 "\\`[a-z]*:" 47 1 2 ":" 35 url-expand-file-name] 6 (#$ . 22073)])
(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`\300\301 \302\"n\203\212\303y\210\304\305!)\206^\211\203&\211`\301 ZU\206^\212\306 \210\304\305!\205C\300`\307\"?\205C\310`\307\311\312 $\312 U?)\203O\313\224\313\225|\202^l\203\\n\203\\\314c\202^\315c\262\207" [get-text-property line-beginning-position shr-prefix-length -1 looking-at " *$" beginning-of-line face next-single-property-change nil line-end-position 0 "\n" "\n\n"] 6])
(defalias 'shr-indent #[0 "\302V\205	\204\303\304\"\202\305\306\307\310\311CE#c\207" [shr-indentation shr-use-fonts 0 make-string 32 propertize " " display space :width] 6])
#@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!\210A\266\202\202\266\211\205J\211@\302`#\210A\266\202\2027\262\207" [shr-insert shr-descend shr-add-font] 9 (#$ . 23346)])
#@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\202b\210\202)\207" [" " nil add-face-text-property line-end-position t 1] 8 (#$ . 23639)])
#@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 (#$ . 23878) "e"])
#@351 Browse the URL at point using `browse-url'.
If EXTERNAL is non-nil (interactively, the prefix argument), browse
the URL using `shr-external-browser'.
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)
(defalias 'shr-browse-url #[512 "\301!\210\302`\303\"\211\204\304\305!\202,\306\307\"\203\310!\202,\203)!\202,\311!\207" [shr-external-browser mouse-set-point get-text-property shr-url message "No link under point" string-match "^mailto:" browse-url-mail browse-url] 6 (#$ . 24047) (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\302\303!\202\304\305!\306D\307\310%\207" [get-text-property shr-url message "No link under point" url-retrieve shr-encode-url shr-store-contents nil t] 8 (#$ . 24747) "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 (#$ . 25078)])
#@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\211A\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 (#$ . 25366)])
#@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 (#$ . 25952)])
#@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\335\302\236A:\203@\202:\205A@`\303=\2031\304\305\306\307\310\311&\202z\312=\203A\304\313\306\307\310%\202z\314=\203b\3151]\316\317\320\"\317	\321\"$0\202z\210\305\202z\3221x\316\317\320\"\317	\321\"$0\202z\210\305\211\203\334i\323V\203\221\324\306\"@\325V\203\221\326c\210\303=\203\247\327\206\237\330\305\331\332%\210\202\261\333\206\257\330\"\210\334`\324$\210\203\334\335\336!\203\312\336!A\202\323\335\337!\203\334\337!\203\334\340\305\341#\210\207\206\342\342c\207" [shr-image-animate display-graphic-p size original create-image nil t :ascent 100 :format image/svg+xml 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 fboundp image-multi-frame-p image-animated-p image-animate 60 ""] 15 (#$ . 26353)])
#@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 "\302\303!\203\f\304p!\204\305\306\307\310\311%\207\312\304p!!\313\206&\3148@Z_!\313\2065\3158A@Z_!\316	!\203FV\204R\203XV\203X\306\262\306\262\203\211\203\211_W\203\211_W\203\211\305\n\317\307\310\311\320\321\322&\202\233\305\n\317\307\310\311\323	\324\n\322&\207" [shr-max-image-proportion image-scaling-factor fboundp imagemagick-types get-buffer-window create-image nil t :ascent 100 window-inside-pixel-edges truncate 2 3 image-compute-scaling-factor imagemagick :width :height :format :max-width :max-height] 22 (#$ . 27494)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [autoload mm-disable-multibyte "mm-util" browse-url-mail "browse-url"] 3)
#@68 Get image data for URL.
Return a string with image data.

(fn URL)
(defalias 'shr-get-image-data #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311 \210\3121'\313\314\315!!!\210\3160\202,\210\317\2029\2059\320\321\317\316#\2059\322 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mm-disable-multibyte (error) url-cache-extract url-cache-create-filename shr-encode-url t nil re-search-forward "
?\n
?\n" shr-parse-image-data] 8 (#$ . 28570)])
(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\"!\262D\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] 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\302\303\304\305\205\306\307\310	\311BBDC\312BB\313BBBEE\207" [lambda (url start end) when url if (string-match "\\`cid:" url) let image funcall ((substring url (match-end 0))) ((when image (goto-char start) (funcall shr-put-image-function image (buffer-substring start end)) (delete-region (point) end))) ((url-retrieve url 'shr-image-fetched (list (current-buffer) start end) t t))] 12 (#$ . 29432)])
#@24 

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

(fn START URL &optional TITLE)
(defalias 'shr-urlify #[770 "\301`\302#\210\303`\304\305\3061\307\310	!\311\312#0\202 \210\202#\206%\2033\313\314\n#\2024\211\262\315\312\316\317\257#\210\205j`W\205j\320\321\322`$\323\321\"\203[\211\262\202f\324\206b`\321$\210\210\202>\207" [shr-map shr-add-font shr-link add-text-properties shr-url help-echo (error) decode-coding-string url-unhex-string utf-8 t format "%s (%s)" follow-link mouse-face highlight next-single-property-change keymap nil get-text-property put-text-property] 14 (#$ . 30313)])
#@23 Encode URL.

(fn URL)
(defalias 'shr-encode-url #[257 "\300\301\"\207" [browse-url-url-encode-chars "[)$ ]"] 4 (#$ . 30894)])
(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\205P\204\300\202\211?\205\301\302!\206 \303\304\305\"\302!\206*\303\304\306\"\307\267\202H\304\310\311#A@D\202L\310\311#A@\304D\202L\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 60)) shr-color-visible t] 10 (#$ . 31145)])
#@34 

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

(fn DOM)
(defalias 'shr-tag-html #[257 "\301\211@:\203\211@A@\262\202\211A@\262\236A\211\302\267\202*\303\202*\304\202*\305\210\211\211\211@:\203<\211@AA\262\202A\211AA\262\211\205^\211@\211;\203S\306!\210\202W\307!\210A\266\202\202A\207" [bidi-paragraph-direction dir #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("ltr" 30 "rtl" 35 "auto" 40)) left-to-right right-to-left nil shr-insert shr-descend] 6 (#$ . 32110)])
#@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!\210A\266\202\202j\266\310`$)\207" [shr-stylesheet fgcolor text bgcolor color background-color shr-insert shr-descend shr-colorize-region] 9 (#$ . 32603)])
#@12 

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

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

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

(fn DOM)
(defalias 'shr-dom-to-xml #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210\312 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 shr-dom-print buffer-string] 8 (#$ . 33336)])
#@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\210A\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!\210A\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 (#$ . 33632)])
#@12 

(fn DOM)
(defalias 'shr-tag-svg #[257 "\302\303!\205I?\205I\304\211@:\203\211@A@\262\202!\211A@\262\236A\205I\305\211@:\2037\211@A@\262\202<\211A@\262\236A\205I	\306!\307D\310\"\207" [shr-inhibit-images shr-put-image-function image-type-available-p svg width height shr-dom-to-xml image/svg+xml "SVG Image"] 4 (#$ . 34502)])
#@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!\210A\266\202\202\266\302`\303\304$\207" [shr-insert shr-descend put-text-property display (raise 0.5)] 7 (#$ . 34852)])
#@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!\210A\266\202\202\266\302`\303\304$\207" [shr-insert shr-descend put-text-property display (raise -0.5)] 7 (#$ . 35120)])
#@12 

(fn DOM)
(defalias 'shr-tag-label #[257 "\211\211\211@:\203\211@AA\262\202\211AA\262\211\2053\211@\211;\203(\300!\210\202,\301!\210A\266\202\202\266\302 \207" [shr-insert shr-descend shr-ensure-paragraph] 6 (#$ . 35389)])
#@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!\210A\266\202\202\266\300 \207" [shr-ensure-paragraph shr-insert shr-descend] 6 (#$ . 35634)])
#@12 

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

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

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

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

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

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

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

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

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

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

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

(fn DOM)
(defalias 'shr-tag-base #[257 "\301\211@:\203\211@A@\262\202\211A@\262\236A\211\203 \302!\210\211\211\211@:\2032\211@AA\262\2027\211AA\262\211\205T\211@\211;\203I\303!\210\202M\304!\210A\266\202\2027\207" [shr-base href shr-parse-base shr-insert shr-descend] 6 (#$ . 38199)])
#@12 

(fn DOM)
(defalias 'shr-tag-a #[257 "\302\211@:\203\211@A@\262\202\211A@\262\236A\303\211@:\203)\211@A@\262\202.\211A@\262\236A`\304\211\211@:\203D\211@AA\262\202I\211AA\262\211\205f\211@\211;\203[\305!\210\202_\306!\210A\266\202\202I\266	\203\235\307\211@:\203}\211@A@\262\202\202\211A@\262\236A	\232\203\235\211`U\203\225\310 \210\311c\210\312\211T\301	$\210\205\254\313\206\247\314!#)\207" [shr-start shr-target-id href title nil shr-insert shr-descend name shr-ensure-newline " " put-text-property shr-urlify shr-expand-url] 9 (#$ . 38513)])
#@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\262A\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!\210A\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 (#$ . 39109)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\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" :group shr :type (alist :key-type regexp :value-type float)] 10)
#@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\262A\266\202\202<\210\207" [shr-prefer-media-type-alist inhibit-changing-match-data type 0.0 src nil t string-match] 12 (#$ . 40767)])
#@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\306C#AW\203\212\211@\262\211A\262\210A\266\202\202T\210A\266\202\202\266B\207" [-1.0 nil dom-non-text-children source shr--get-media-pref src shr--extract-best-source] 12 (#$ . 41260)])
#@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 (#$ . 41879)])
#@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 (#$ . 42251)])
#@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\205i\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\315\211@:\203\301\211@A@\262\202\306\211A@\262\236A\322\235\204\317\314\211@:\203\337\211@A@\262\202\344\211A@\262\236A\323\235\204\317\204\324\325\"\203\326\307\225\327O!\211\203	\330\331	F#\210\202c\210\210\202\317\204O\324\332\"\203O\307\225\327O\327\n\2036\n!\211\262\204=c\210\202J	\330	\331\nF#\210\266\202\317\204^\203g\324\"\203g`\333!\210\202\317
\204\205\334\335!!\203\205	\336!\330\331F#\210\202\317
\203\241\334\335!!\203\241\337\335!!\340!\203\240\341!\210\210\342\343!\203\264\344\345!\206\262\346\"\210\347c\210\350\335!\351p\352 `\327\223\330\n\331FF\353\211%\2105\307U\205\354`\3556$\210\354`\356$\210\354`\357$\210\354`\360\361\n!$\210\354`\362\363\364\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 put-text-property keymap shr-alt image-url image-displayer shr-image-displayer help-echo shr-fill-text title shr-table-depth shr-image-map] 17 (#$ . 42500)])
#@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\203}\307\310\311\312\313\314\315!\316\"\317\320%\321\322\323\324\n#\325\"\"\326\"\262@@\262\203}@A@V\203}@@\262\211A\262\210\202b\211\206\231\327\211@:\203\222\211@A@\262\202\227\211A@\262\236A\207" [srcset frame-pixel-width string-to-number width "100" nil 0 sort mapcar make-byte-code 257 "\301\302\"\211G\303U\203\211@\304D\2023\305\306A@\"\203+\211@\300\307\310\303A@\"!_D\2023\211@\307A@!D\207" vconcat vector [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 (#$ . 44501)])
#@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 (#$ . 45403)])
#@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!\211\332\333\310#\266\211\262\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 image--set-property :ascent] 20 (#$ . 45592)])
#@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!\210A\266\202\202\266\304 *\207" [shr-current-font shr-folding-mode none default shr-ensure-newline shr-insert shr-descend] 6 (#$ . 46492)])
#@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!\210A\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 (#$ . 46800)])
#@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!\210A\266\202\202\266\300 \207" [shr-ensure-paragraph shr-insert shr-descend] 6 (#$ . 47142)])
#@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!\210A\266\202\202\266\300 \207" [shr-ensure-newline shr-insert shr-descend] 6 (#$ . 47393)])
#@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!\210A\266\202\202\266\202)\207" [shr-indentation shr-table-separator-pixel-width shr-ensure-newline 4 shr-insert shr-descend] 6 (#$ . 47642)])
#@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!\210A\266\202\202\266)n\204B\305c\210\301 \207" [shr-list-mode shr-ensure-paragraph ul shr-insert shr-descend "\n"] 6 (#$ . 47950)])
#@12 

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

(fn DOM)
(defalias 'shr-tag-li #[257 "\303 \210`\247\203\304\305\"T\202	@\247\203 \306!\202\"	Ac\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!\210A\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 (#$ . 48518)])
#@14 

(fn START)
(defalias 'shr-mark-fill #[257 "\211`U?\205\301\211T\300$\207" [shr-indentation put-text-property] 6 (#$ . 49072)])
#@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!\210A\266\202\2022\207" [2 10 "\n" shr-insert shr-descend] 6 (#$ . 49211)])
#@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!\210A\266\202\202\207" [shr-insert shr-descend] 6 (#$ . 49487)])
#@12 

(fn DOM)
(defalias 'shr-tag-h1 #[257 "\301\203\n\302\202\303\"\207" [shr-use-fonts shr-heading (variable-pitch (:height 1.3 :weight bold)) bold] 4 (#$ . 49700)])
#@12 

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

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

(fn DOM)
(defalias 'shr-tag-h4 #[257 "\300!\207" [shr-heading] 3 (#$ . 50075)])
#@12 

(fn DOM)
(defalias 'shr-tag-h5 #[257 "\300!\207" [shr-heading] 3 (#$ . 50164)])
#@12 

(fn DOM)
(defalias 'shr-tag-h6 #[257 "\300!\207" [shr-heading] 3 (#$ . 50253)])
#@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 (#$ . 50342)])
#@12 

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

(fn DOM)
(defalias 'shr-tag-font #[257 "`\301\211@:\203\211@A@\262\202\211A@\262\236A\301BC\244\211\211@:\2031\211@AA\262\2026\211AA\262\211\205S\211@\211;\203H\302!\210\202L\303!\210A\266\202\2026\266\211\205b\304`\305\236A$)\207" [shr-stylesheet color shr-insert shr-descend shr-colorize-region background-color] 9 (#$ . 50689)])
#@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!\210A\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 (#$ . 51056)])
#@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!\210A\266\202\202\266\303c\207" [8296 shr-insert shr-descend 8297] 6 (#$ . 51553)])
#@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\262A\262\202;\211\237\266\203\315\211:\203r@\262\316\320\"B\262A\262\202Z\211\237\266\203\321#\322\323\315\324T\211\262GW\203\232H\262\211T\\\262\202\201\266\203\f#\325 V\203\247\310\326\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] 14 (#$ . 51794)])
#@12 

(fn DOM)
(defalias 'shr-table-body #[257 "\300\301\302!\"\211\204\202&\211G\303U\203\211@\202&\304\305\306\307\310\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 1 tbody nil cl-reduce append mapcar] 9 (#$ . 52559)])
#@12 

(fn DOM)
(defalias 'shr-tag-table #[257 "\302 \210\303\304\"\211@:\203\211@AA\262\202\211AA\262\305\303\306\"!\305\307!!\305\303\310\"!\311\211@:\203=\211@A@\262\202B\211A@\262\236A`\312BC\244\205S\313!\203]\313!\202^\314\205e\313!\204\274\204\274\303\n\315\"\204\274\303\n\316\"\204\274\204\274	\211\211@:\203\225\211@AA\262\202\232\211AA\262\211\205\267\211@\211;\203\254\317!\210\202\260\320!\210A\266\202\202\232\266\202\214\321\n\211@:\203\316\211@A@\262\202\323\211A@\262\236A\203\340\322\n!\210\202\214\323\324D	\205\362\316\324\325\324
BBEC\244\203\203\262U\203UU\203\"\316\324\325\324\323\324\315\324\326#BBEEEC\202y\316\324\325\324\323\324\315\324\326\"BBEEEC\327U\203A\202Q\316\324\325\324\323\324\315\324BBEEEC\244\202y\316\324\325\324\323\324\315\324BBEEECU\203\202\316\324\325\324\323\324\315\324\326\"BBEEEC\202\256\316\324\325\324\323\324\315\324BBEEEC\327U\203\235\202\255\316\324\325\324\323\324\315\324BBEEEC\244\244\202yU\203\317\316\324\325\324\323\324\315\324\326\"BBEEEC\202y\327U\203\354\326	\316\324\325\324\323\324\315\324BBEEEC\"\202y\316\324\325\324\323\324\315\324BBEEE\316\324\325\324\323\324\315\324BBEEED\202y\203_U\2030\316\324\325\324\323\324\315\324\326\"BBEEEC\202y\316\324\325\324\323\324\315\324BBEEEC\327U\203K\202[\316\324\325\324\323\324\315\324BBEEEC\244\202y	\203w\316\324\325\324\323\324\315\324BBEEEC\202y\244\330\321\331#\210\nA\241\210\322!\266\203\233\332`\333\236A$\210	\314U\205\303\212\334`\"\210)\335\n!\211\205\301\214``}\210\336\337\340#c\210\341ed\")\262)\207" [shr-stylesheet shr-table-depth shr-ensure-paragraph dom-child-by-tag caption dom-non-text-children thead shr-table-body tfoot bgcolor background-color shr-max-columns 0 tbody tr shr-insert shr-descend shr-fixed-table shr-tag-table-1 table nil td append 1 dom-set-attribute t shr-colorize-region color shr-expand-alignments shr-collect-extra-strings-in-table mapconcat identity "\n" shr-fill-lines] 23 (#$ . 52884)])
#@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\262A\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 (#$ . 55008)])
#@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\203`\211@`\310\211\211\211\203F\211@\3148]\262A\266\202\2022\210\211\262\211\311]\310\211W\203e\211\315 \210\n\316\261\266\211T\262\202N\266\211\203O\211@\3148\317V\203Hb\210\3208\310\211W\203\251\211GSX\203\234\321	H\f\314_#\262T\262\210\211T\262\202}\266\3228
\204\271\323 _\202\272\211\203\211@\324\210`G\310V\205\325\325\326GS\327#!\330\331\332\333\334	CE\335%\203\354\330\327#\262\n\261\210\336`S\3378\340\f8$\266\311y\210A\266\202\202\273\210GZ\310\211W\203F\211\324\210`\330\331\332\333\334	CE\335%\n\261\210\336`S\337\n8\3408$\266\311y\266\211T\262\202\266A\266\202\202h\266\204Y\313!\210A\266\202\202'\210\211`U?\205o\341\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 shr-indent "\n" -1 4 + 3 frame-char-width nil shr-face-background get-text-property face propertize " " display space :align-to shr-table-indent shr-colorize-region 5 6 put-text-property] 25 (#$ . 56095)])
#@13 

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

(fn START END)
(defalias 'shr-expand-alignments #[514 "\301\302\303$\211\262W\205Xb\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))\266T\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 (#$ . 57650)])
#@15 

(fn WIDTHS)
(defalias 'shr-insert-table-ruler #[257 "\205Pn\203	\305V\203\306 \210\nc\210\305G\305\211W\203L\211\307H\310_#\262\311H\245T\"\312\313\314\315\316	CE\317\f%\n\261\266\211T\262\202\266\320c\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"] 12 (#$ . 58112)])
#@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\262A\266\202\202\266A\266\202\202\210\211\203f\211@\302\211\203]\211@H]I\210T\262A\266\202\202B\266A\266\202\202:\210\303\304\305\306\307\"\"\304\305\306\307\"\"GT_#\302\302V\203\331\302\211W\203\245\211HHV\203\235T\262\210\211T\262\202\207\266\302\211W\203\327\211HHV\203\317H\245\nH\\^I\210\210\211T\262\202\251\266\266\207" [shr-table-separator-pixel-width make-vector 0 - apply + append nil] 17 (#$ . 58567)])
#@52 

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

(fn DOM WIDTHS &optional FILL)
(defalias 'shr-make-table-1 #[770 "\302\303G\304\"\304\302\211\211\211\305\n!\211\203\335\211@\211\211@:\203$\211@@\262\202(\211@\262\306=\203\326\302\305!\304\211\302GW\203\315\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\210GY\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	\2039\312!GZ^\262S\304\211W\203(\211\315\316#GSV\203\211GSH\202\315\f	\315\n\316#H#\262\f\210\211T\262\202\361\266S\\\262\262\n\262\f\211\203\206\317\n#\204l\f\304V\203l\211@\262\f\245\211A@BB\262
S\262\210\202\205\204\211@A@BB\262\202\205\211B\262\210\203\302\316V\203\302S\304\211W\203\300\211T\262\203\262\304\211\320\302\316\302\211\257\202\263\321B\262\210\211T\262\202\226\266T\262T\262\2024\237B\262\266A\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 + 1 shr-render-td -1 (0 . 0)] 28 (#$ . 59458)])
(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\301\310\311\312!\313\"\314$\216\315\302\211\"\210\316\302p\"\210\305\302ed#@)\207" [shr-use-fonts 0 nil 1 get-buffer-window window-text-pixel-size current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 set-window-dedicated-p set-window-buffer] 7])
#@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\210A\266\202\202<\210\211\262\206\211`\312#\313#\210b\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 (#$ . 61242)])
#@23 

(fn DOM WIDTH FILL)
(defalias 'shr-render-td-1 #[771 "\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\211@:\203$\211@A@\262\202)\211A@\262\236A\315\211@:\203<\211@A@\262\202A\211A@\262\236A\316\211@:\203U\211@A@\262\202Z\211A@\262\236A\306\317\203q\320\321\"\205o\322!\262\203~\323BC\244\262\203\212\324BC\244\262\203\223\325\"\306\326\n!\210*\327 \305\306\330\310\311!\331\"\313$\216\332\317\211\"\210\333\317p\"\210\204\353\334\211@:\203\315\211@A@\262\202\322\211A@\262\236A\206\351\335 \336\f\306\"]\337\f\334#\210\211\262\262\203\374\nX\203\374\262\202		\340ed\"\210\335 \262))\210db\210`\341\317x\210\317\210`|\210eb\210\342ed\"\343\344 \345\"\346\211@:\2039\211@A@\262\202>\211A@\262\236A\203a\347\346\211@:\203V\211@A@\262\202[\211A@\262\236A!\202b\350\324\236A\323\236A\257)\266\206*\207" [shr-stylesheet shr-indentation shr-internal-width generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 bgcolor fgcolor style nil string-match "color" shr-parse-style background-color color append shr-descend current-window-configuration "\301\300!\207" [set-window-configuration] 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 (#$ . 61785)])
#@16 

(fn DOM MAX)
(defalias 'shr-dom-max-natural-width #[514 "\211@:\203\211@@\262\202\211@\262\301=\203y\211\302\211@:\203*\211@A@\262\202/\211A@\262\236A\303\211:\203q@\262\303\304:\203Z@\262\211A\305_\\\\\262A\262\202@\266\202\\\203g]\202h\211\266\202A\262\2023\266\202\206w\304]\207\211@:\203\211\211@AA\262\202\216\211AA\262\211\203\250\211@\211;\204\241\306\"\304\\\262A\266\202\202\216\210\207" [shr-table-separator-length table shr-suggested-widths nil 0 2 shr-dom-max-natural-width] 14 (#$ . 63287)])
(defalias 'shr-buffer-width #[0 "eb\210\300m\204\301\210\211i]\262\302y\210\202\211\207" [0 nil 1] 3])
#@16 

(fn COLUMNS)
(defalias 'shr-pro-rate-columns #[257 "\302\303G\302\"G\302\211W\203 \211H\\\262\210\211T\262\202	\266\304\245\262G\302\211W\203Q\211\305\306	H	\fGT	_Z#!\307]I\266\211T\262\202*\266\207" [shr-internal-width shr-table-separator-pixel-width 0 make-vector 1.0 truncate * 10] 15 (#$ . 63959)])
#@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\262A\266\202\202+\266A\266\202\202	\210\211\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 (#$ . 64298)])
#@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\262A\266\202\202\210\211\207" [0] 7 (#$ . 64891)])
#@12 

(fn DOM)
(defalias 'shr-max-columns #[257 "\300\211@:\203\211@AA\262\202\211AA\262\211\203M\211@\211;\204F\211\211@:\2030\211@@\262\2024\211@\262\301=\203F\302\303\"\302\304\"\\]\262A\266\202\202\210\211\207" [0 tr shr-count td th] 9 (#$ . 65122)])
(provide 'shr)