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


(byte-code "\300\301!\210\302\303\304\305\306\301\307\310&\210\302\311\312\313\306\301\307\310&\207" [require w3m custom-declare-variable w3m-save-buffer-use-cache t "If non-nil, use cached data if available." :group :type boolean w3m-save-buffer-html-only nil "Save images along with a web-page, or just html.\nIf nil, `w3m-save-buffer' will save the images of a buffer in\naddition to the buffer's html. If the buffer was originally\nloaded without images, the images will now be retrieved. The\nvalue of this variable may be over-ridden at run-time by passing\na prefix argument to function `w3m-save-buffer'."] 8)
#@584 Save the current w3m buffer.
Save the current buffer as `w3m-default-save-directory'/NAME.html,
and optionally save the buffer's associated image files in folder
`w3m-default-save-directory'/NAME-files/. The value of
`w3m-default-save-directory' may be changed for the current
session by including a folder path in NAME. Variable
`w3m-save-buffer-html-only' determines whether images will be
saved by default, but that setting may be toggled using the
prefix argument (the optional NO-IMAGES). The saved page will be
added to the history list, and be viewable using `w3m-next-page'.
(defalias 'w3m-save-buffer #[(name &optional no-images) "\203 	?\n\306\307\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211@ABCDEFGHIJKLMNO\211P\203f \310\311P\"\203j \310\312P\"\203f P\313\225\307O\211P\203f \310\314P\"\203j \315\316!\210Q;\203x \310\314Q\"\203 \315\317!\210\202\215 \310\320Q\"\204\215 Q\321PQ\322Q!\204\234 \323QR\"Q\324Q!\325PM	\204\332 \326Q!\203\332 \326M!\203\332 \327\330\331\332Q!\322Q!#!\203\324 \333Q!\210\334M\306\"\210\202\335 \210\202\326Q!\203\371 \327\330\336Q\"!\203\363 \333Q!\210\202\335 \210\202	\204\326M!\203\327\330\336M\"!\203\334M\306\"\210\202\335 \210\337\340\306\"SrSq\210\341\216\342P!\211L\2047\315\343P\"\210eb\210\344\345\307\306#\203a\313\225K\344\346\307\306#\203a\347\350K\306#\203a\351\352!\353\354!\210\202cPJ`K\355\307T\211U\203\270U@T\356T@\357TA\360\260I\344I\307\306#\203\253\3611\234\362\351\363!J\"0\202\240\210\351\363!\363\224\363\225|\210c\210\202\204Kb\210UA\211U\204r*	\204:\364M\306\"\210\332\365M!!H\366P\367\"\206\353\370P\307\"A@\206\353L\371\232\203\351\372 \206\353\373 \211G\203\374G!\211G\203\375HG\"H\376\216\344\377\307\306#\2039\363\224K\363\225D\362\351\363!J\"\211CB\235\204\201Y CE\"\203L\201Y CE\"A@A\201Y CE\"AA@@\202rF\206X\337\340!\211Fq\210\201Z  \210\342C!\211L\203CCEBE\332C!C\324C!A\201[ C!@\363@G\313U\203\255\201Y LV\"\211@\203\265\201\\ \201] @A!P@\202\265\201\\ @P@\201^ \201_ \201` A#A\326\323A@PM\"!\203\363A\201a \201b !Q\326\323\f@PM\"!\203\360T\202\321\fAE@A@D\241\210\201c ed\323A@PM\"#\210\306\202CBBB\307)\203KbD|\210H\201d A@\2063\201e \261\210\202)\326\322Q!!\204K\364\322Q!\306\"\210\201c edQ#\210+\201f W@A@\201g \201h Q!\201i X\206q\201j D\"\210!\210Q.\207" [w3m-save-buffer-html-only no-images w3m-current-url w3m-save-buffer-use-cache bn num t nil string-match "\\`[ - ]*\\'\\|\\`about:\\|\\`file:" "\\`about://\\(?:header\\|source\\)/" 0 "\\`[ - ]*\\'" error "No valid url for this page" "No valid file name" "\\.html?\\'" ".html" file-name-directory expand-file-name file-name-sans-extension "-files" file-exists-p yes-or-no-p format "#1=%s and #1#-files/ already exist in %s, overwrite? " file-name-nondirectory delete-file delete-directory keyboard-quit "%s already exists, overwrite? " generate-new-buffer " *temp*" #[nil "\301!\205	 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] w3m-retrieve "Retrieving failed: %s" re-search-forward "<head[	\n >]" "</head[	\n >]" re-search-backward "<\\(base\\(?:[	\n ]+[^	\n >]+\\)*[	\n ]+href=\"\\([^\"]+\\)\"[^>]*\\)>" match-string 2 replace-match "<!--\\1-->" (("a" . "href") ("form" . "action")) "<" "\\(?:[	\n ]+[^	\n >]+\\)*[	\n ]+" "=\"\\([^\"]+\\)" (error) w3m-expand-url 1 make-directory directory-file-name w3m-arrived-get content-charset w3m-attributes "text/html" w3m-detect-meta-charset w3m-detect-xml-charset w3m-charset-to-coding-system encode-coding-string #[nil "\203 \303!\210	?\205 \304\n!\207" [ibuf imgs subdir kill-buffer delete-directory] 2] "<img\\(?:[	\n ]+[^	\n >]+\\)*[	\n ]+src=\"\\([^\"?]+\\)" ext bname bads img nd imgs ibuf charset sdir regexp base st type subdir case-fold-search w3m-prefer-cache url name w3m-default-save-directory #1# tag --dolist-tail-- w3m-image-type-alist w3m-history w3m-current-title assoc erase-buffer file-name-extension "." symbol-name replace-regexp-in-string "[ - \"*/:<>?|]+" "_" "-" number-to-string write-region "/" "" w3m-history-set-current w3m-history-push w3m-expand-file-name-as-url :title "<no-title>"] 20 (#$ . 708) (byte-code "\203S \306\307\"\203 \306\310\"\203S 	;\203\" \306\311	\"\204\" 	\2062 \306\311\"\204/ \312!\2062 \313\314!\315\316\317\320#\321\f\204D \322\202E \323\324!\325\326P%*D\207\327\330!\207" [w3m-current-url w3m-current-title case-fold-search name w3m-save-buffer-html-only w3m-default-save-directory string-match "\\`[ - ]*\\'\\|\\`about:\\|\\`file:" "\\`about://\\(?:header\\|source\\)/" "\\`[ - ]*\\'" file-name-nondirectory make-temp-name "w3m-" t replace-regexp-in-string "[ - \"*/:<>?\\|]+" "_" w3m-read-file-name "Save this page (with images) to: " "Save this page (html only) to: " file-name-as-directory nil ".html" error "No valid url for this page" current-prefix-arg] 7)])
(provide 'w3m-save)