%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314\315\316\315\317\315\320\321\322&\210\323\324\325\326\327DD\330\331\332\313\333&\210\323\334\325\326\335DD\336\331\332\313\337&\210\323\340\325\326\341DD\342\313\333\331\343&\210\323\344\325\326\345DD\346\331\347\313\337&\210\323\350\325\326\351DD\352\331\353%\210\323\354\325\326\355DD\356\331\357\313\333&\210\323\360\325\326\361DD\362\331\363%\210\323\364\325\326\365DD\366\313\337\331\367&\210\323\370\325\326\371DD\372\313\373\331\363&\210\323\374\325\326\375DD\376\331\332%\210\323\377\325\326\201@ DD\201A \331\332%\210\201B \201C \201D \307#\210\201E \211\203\372 \211@\201C N\203\363 \201D N\204\363 \201F \201D \201C N#\210A\266\202\202\317 \210\201G \201C \201D \337#\210\323\201D \325\326\201H DD\201I \313\337\331\332&\210\323\201J \325\326\201K DD\201L \331\201M \313\337&\210\323\201N \325\326\201O DD\201P \331\332%\210\323\201Q \325\326\201R DD\201S \331\332%\210\323\201T \325\326\201U DD\201V \331\201W %\207" [require cl-lib dired image-mode jka-compr custom-declare-group doc-view nil "In-buffer viewer for PDF, PostScript, DVI, and DJVU files." :link (function-link doc-view) :version "22.2" :group applications data multimedia :prefix "doc-view-" custom-declare-variable doc-view-ghostscript-program funcall function #[0 "\301>\203. \302\303!\203 \303\207\302\304!\203 \304\207\302\305!\203 \305\207\302\306!\205- \307\310!\311U\205/ \306\207\312\207" [system-type (windows-nt ms-dos) executable-find "gswin64c" "gswin32c" "rungs" "mgs" shell-command "mgs -q -dNODISPLAY -c quit" 0 "gs"] 2] "Program to convert PS and PDF files to PNG." :type file "27.1" doc-view-pdfdraw-program #[0 "\300\301!\203 \301\207\300\302!\203 \302\207\300\303!\203 \303\207\302\207" [executable-find "pdfdraw" "mudraw" "mutool"] 2] "Name of MuPDF's program to convert PDF files to PNG." "24.4" doc-view-pdftotext-program-args #[0 "\300\207" [("-raw")] 1] "Parameters to give to the pdftotext command." (repeat string) doc-view-pdf->png-converter-function #[0 "\301!\203 \302\207\303\207" [doc-view-pdfdraw-program executable-find doc-view-pdf->png-converter-mupdf doc-view-pdf->png-converter-ghostscript] 2] "Function to call to convert a PDF file into a PNG file." (radio (function-item doc-view-pdf->png-converter-ghostscript :doc "Use ghostscript") (function-item doc-view-pdf->png-converter-mupdf :doc "Use mupdf") function) doc-view-ghostscript-options #[0 "\300\207" [("-dSAFER" "-dNOPAUSE" "-dTextAlphaBits=4" "-dBATCH" "-dGraphicsAlphaBits=4" "-dQUIET")] 1] "A list of options to give to ghostscript." (repeat string) doc-view-ghostscript-device #[0 "\300\207" [#1="png16m"] 1 #1#] "Output device to give to ghostscript." string doc-view-resolution #[0 "\300\207" [100] 1] "Dots per inch resolution used to render the documents.\nHigher values result in larger images." number doc-view-scale-internally #[0 "\300\207" [t] 1] "Whether we should try to rescale images ourselves.\nIf nil, the document is re-rendered every time the scaling factor is modified.\nThis only has an effect if the image libraries linked with Emacs support\nscaling." boolean doc-view-image-width #[0 "\300\207" [850] 1] "Default image width.\nHas only an effect if `doc-view-scale-internally' is non-nil and support for\nscaling is compiled into Emacs." "24.1" doc-view-dvipdfm-program #[0 "\300\207" [#2="dvipdfm"] 1 #2#] "Program to convert DVI files to PDF.\n\nDVI file will be converted to PDF before the resulting PDF is\nconverted to PNG.\n\nIf this and `doc-view-dvipdf-program' are set,\n`doc-view-dvipdf-program' will be preferred." doc-view-dvipdf-program #[0 "\300\207" [#3="dvipdf"] 1 #3#] "Program to convert DVI files to PDF.\n\nDVI file will be converted to PDF before the resulting PDF is\nconverted to PNG.\n\nIf this and `doc-view-dvipdfm-program' are set,\n`doc-view-dvipdf-program' will be preferred." defvaralias doc-view-unoconv-program doc-view-odf->pdf-converter-program (saved-value saved-variable-comment) put make-obsolete-variable #[0 "\300\301!\203 \301\207\300\302!\203 \302\207\301\207" [executable-find "soffice" "unoconv"] 2] "Program to convert any file type readable by OpenOffice.org to PDF.\n\nNeeded for viewing OpenOffice.org (and MS Office) files." doc-view-odf->pdf-converter-function #[0 "\301\302\"\203 \303\207\301\304\"\205 \305\207" [doc-view-odf->pdf-converter-program string-match "unoconv\\'" doc-view-odf->pdf-converter-unoconv "soffice\\'" doc-view-odf->pdf-converter-soffice] 3] "Function to call to convert a ODF file into a PDF file." (radio (function-item doc-view-odf->pdf-converter-unoconv :doc "Use unoconv") (function-item doc-view-odf->pdf-converter-soffice :doc "Use LibreOffice") function) doc-view-ps2pdf-program #[0 "\300\207" [#4="ps2pdf"] 1 #4#] "Program to convert PS files to PDF.\n\nPS files will be converted to PDF before searching is possible." doc-view-pdftotext-program #[0 "\300\207" [#5="pdftotext"] 1 #5#] "Program to convert PDF files to plain text.\n\nNeeded for searching." doc-view-cache-directory #[0 "\301\302\303\304 \"\"\207" [temporary-file-directory expand-file-name format "docview%d" user-uid] 4] "The base directory, where the PNG images will be saved." directory] 16)
#@62 The buffer where messages from the converter programs go to.
(defvar doc-view-conversion-buffer " *doc-view conversion output*" (#$ . 5678))
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313\314\315&\207" [custom-declare-variable doc-view-conversion-refresh-interval funcall function #[0 "\300\207" [1] 1] "Interval in seconds between refreshes of the DocView buffer while converting.\nAfter such a refresh newly converted pages will be available for\nviewing. If set to nil there won't be any refreshes and the\npages won't be displayed before conversion of the whole document\nhas finished." :type integer doc-view-continuous #[0 "\300\207" [nil] 1] "In Continuous mode reaching the page edge advances to next/previous page.\nWhen non-nil, scrolling a line upward at the bottom edge of the page\nmoves to the next page, and scrolling a line downward at the top edge\nof the page moves to the previous page." boolean :version "23.2"] 8)
#@23 Only used internally.
(defvar doc-view--current-converter-processes nil (#$ . 6660))
(make-variable-buffer-local 'doc-view--current-converter-processes)
#@17
(fn WINPROPS)
(defalias 'doc-view-new-window-function #[257 "\211@\301=\204 \302@!p=\204 \303\304!\210\305\306\"\211\203* \307!\262\310ed#\210\2028 \311ed\312\301$\262\313\314\301#\210\313\315@#\210\316@!\204U @\301=\204Q \303\317!\210\320!\210\321\306#\210\316@!\205\217 \322\323\";\205\217 ?\205\217 \324@!r\325\326\327\330\331!\332\"\333$\216\334@\335\"\210\336\305\337\301\"!*\262\207" [doc-view--current-converter-processes t window-buffer cl--assertion-failed (or (eq t (car winprops)) (eq (window-buffer (car winprops)) (current-buffer))) image-mode-window-get overlay copy-overlay move-overlay make-overlay nil overlay-put doc-view window windowp (eq t (car winprops)) delete-overlay image-mode-window-put overlay-get display internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord doc-view-goto-page page] 9 (#$ . 6819)])
#@23 Only used internally.
(defvar doc-view--current-files nil (#$ . 7775))
(make-variable-buffer-local 'doc-view--current-files)
#@23 Only used internally.
(defvar doc-view--current-timer nil (#$ . 7906))
(make-variable-buffer-local 'doc-view--current-timer)
#@23 Only used internally.
(defvar doc-view--current-cache-dir nil (#$ . 8037))
(make-variable-buffer-local 'doc-view--current-cache-dir)
#@23 Only used internally.
(defvar doc-view--current-search-matches nil (#$ . 8176))
(make-variable-buffer-local 'doc-view--current-search-matches)
#@23 Only used internally.
(defvar doc-view--pending-cache-flush nil (#$ . 8325))
#@273 Only used internally.
The file name used for conversion. Normally it's the same as
`buffer-file-name', but for remote files, compressed files and
files inside an archive it is a temporary copy of
the (uncompressed, extracted) file residing in
`doc-view-cache-directory'.
(defvar doc-view--buffer-file-name nil (#$ . 8409))
#@89 The type of document in the current buffer.
Can be `dvi', `pdf', `ps', `djvu' or `odf'.
(defvar doc-view-doc-type nil (#$ . 8739))
#@170 Function to call to convert a single page of the document to a bitmap file.
May operate on the source document or on some intermediate (typically PDF)
conversion of it.
(defvar doc-view-single-page-converter-function nil (#$ . 8877))
#@66 The type of image in the current buffer.
Can be `png' or `tiff'.
(defvar doc-view--image-type nil (#$ . 9117))
(make-variable-buffer-local 'doc-view--image-type)
#@68 The `format' pattern of image file names.
Typically "page-%s.png".
(defvar doc-view--image-file-pattern nil (#$ . 9285))
(make-variable-buffer-local 'doc-view--image-file-pattern)
#@74 Keymap used by `doc-view-mode' when displaying a doc as a set of images.
(defvar doc-view-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\305#\210\303\315\307#\210\303\316\317#\210\303\320\321#\210\303\322\321#\210\303\323\324#\210\303\325\324#\210\303\326\327#\210\303\330\327#\210\303\331\332#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\342#\210\303\344\345#\210\303\346\347#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\357#\210\303\360\361#\210\303\362\363#\210\303\364\365#\210\303\366\367#\210\303\370\371#\210\303\372\373#\210\303\374\375#\210\303\376\377#\210\303\201@ \377#\210\303\201A \201B #\210\303\201C \201D #\210\303\201E \201F #\210\303\201G \201H #\210\303\201I \201J #\210\211\207" [image-mode-map make-sparse-keymap set-keymap-parent define-key "n" doc-view-next-page "p" doc-view-previous-page [next] forward-page [prior] backward-page [remap forward-page] [remap backward-page] " " doc-view-scroll-up-or-next-page [33554464] doc-view-scroll-down-or-previous-page "" "" doc-view-next-line-or-next-page [down] "" doc-view-previous-line-or-previous-page [up] [134217788] doc-view-first-page [134217790] doc-view-last-page [remap goto-line] doc-view-goto-page "
" image-next-line "+" doc-view-enlarge "=" "-" doc-view-shrink "0" doc-view-scale-reset [remap text-scale-adjust] doc-view-scale-adjust "W" doc-view-fit-width-to-window "H" doc-view-fit-height-to-window "P" doc-view-fit-page-to-window "F" doc-view-fit-window-to-page "k" image-kill-buffer "K" doc-view-kill-proc "cs" doc-view-set-slice "cm" doc-view-set-slice-using-mouse "cb" doc-view-set-slice-from-bounding-box "cr" doc-view-reset-slice "" doc-view-search [find] "" doc-view-search-backward "" doc-view-show-tooltip "" doc-view-toggle-display "" doc-view-open-text "r" revert-buffer] 5) (#$ . 9471))
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias doc-view-revert-buffer revert-buffer nil make-obsolete "27.1"] 4)
#@84 Preserve the buffer's current mode and check PDF sanity.
(fn ORIG-FUN &rest ARGS)
(defalias 'doc-view--revert-buffer #[385 "\303\304 _W\203 \305\300!\210\303\304 _\306\307\310\311\312\313\"\314\"\315$\262 \316=\203L \317\320!\203L \321\320\306\211\211\n%\310U\203@ \211 \202N \322\323!\205N \324\325!\202N \211 \207" [undo-outer-limit doc-view-doc-type doc-view--buffer-file-name 2 buffer-size make-local-variable nil make-byte-code 0 "\306\307\300\301\"\210 \f\232?\205 \310
!\210\311\312\211\f#)\207" vconcat vector [revert-buffer-preserve-modes buffer-file-name doc-view--buffer-file-name doc-view-cache-directory t apply doc-view-make-safe-dir write-region nil] 4 pdf executable-find "pdfinfo" call-process called-interactively-p interactive message "Can't revert right now because the file is corrupted."] 10 (#$ . 11563)])
#@25 Menu for Doc View mode.
(defvar doc-view-menu nil (#$ . 12409))
(easy-menu-do-define 'doc-view-menu doc-view-mode-map "Menu for Doc View mode." '("DocView" ["Toggle display" doc-view-toggle-display] ("Continuous" ["Off" (setq doc-view-continuous nil) :style radio :selected (eq doc-view-continuous nil)] ["On" (setq doc-view-continuous t) :style radio :selected (eq doc-view-continuous t)] "---" ["Save as Default" (customize-save-variable 'doc-view-continuous doc-view-continuous) t]) "---" ["Set Slice" doc-view-set-slice-using-mouse] ["Set Slice (BoundingBox)" doc-view-set-slice-from-bounding-box] ["Set Slice (manual)" doc-view-set-slice] ["Reset Slice" doc-view-reset-slice] "---" ["Search" doc-view-search] ["Search Backwards" doc-view-search-backward]))
#@39 Keymap used by `doc-view-minor-mode'.
(defvar doc-view-minor-mode-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key "" doc-view-toggle-display] 5) (#$ . 13177))
#@22
(fn &optional WIN)
(defalias 'doc-view-current-page '(macro . #[256 "\300\301E\207" [image-mode-window-get 'page] 4 (#$ . 13376)]))
(defalias 'doc-view-current-info '(macro . #[0 "\300\207" [(image-mode-window-get 'info)] 1]))
(defalias 'doc-view-current-overlay '(macro . #[0 "\300\207" [(image-mode-window-get 'overlay)] 1]))
(defalias 'doc-view-current-image '(macro . #[0 "\300\207" [(image-mode-window-get 'image)] 1]))
(defalias 'doc-view-current-slice '(macro . #[0 "\300\207" [(image-mode-window-get 'slice)] 1]))
(defalias 'doc-view-last-page-number #[0 "G\207" [doc-view--current-files] 1])
#@41 View the page given by PAGE.
(fn PAGE)
(defalias 'doc-view-goto-page #[257 "\211C\305 \242\306W\203 \306\240\210\202! \242V\203! \204! \240\210\307 \210\310\311\242\312#\210\310\313\314\315\316\242#\317\320#\203A \321\202B \322 \205r \242 \236\205r \314\323\317\320#\324\242 \236A\211\203m \211@\325\326R\262A\266\202\202Y \210\211\262PQ\312#\210\327\315\n\242\"\330 \"\331\332\333#\210\334!\204\252 \203\252 \f\242\335 \336\337\340\341\342\f #\343\"\344$\262$\210\210\345\346\347!\350\346\313!#\262\207" [doc-view--current-converter-processes doc-view--current-search-matches doc-view--image-file-pattern doc-view-single-page-converter-function doc-view--buffer-file-name doc-view-last-page-number 1 force-mode-line-update image-mode-window-put page nil info propertize format "Page %d of %d." face bold " (still converting...)\n" "\n" "Search matches:\n" "" " - \"" "\"\n" expand-file-name doc-view--current-cache-dir doc-view-insert-image :pointer arrow file-exists-p selected-window make-byte-code 0 "p\303\302!=\2055 \304\305\302\"\300\242=\2055 \306\301!\2055 \307\302!r\310\311\312\313\314!\315\"\316$\216\317@\320\"\210\321\300\242!*\262\207" vconcat vector [window-buffer image-mode-window-get page file-readable-p internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord doc-view-goto-page] 7 overlay-put image-mode-window-get overlay help-echo] 17 (#$ . 13987) "nPage: "])
#@47 Browse ARG pages forward.
(fn &optional ARG)
(defalias 'doc-view-next-page #[256 "\300\301\302\303\"\206\n \304\\!\207" [doc-view-goto-page image-mode-window-get page nil 1] 5 (#$ . 15510) "p"])
#@48 Browse ARG pages backward.
(fn &optional ARG)
(defalias 'doc-view-previous-page #[256 "\300\301\302\303\"\206\n \304Z!\207" [doc-view-goto-page image-mode-window-get page nil 1] 5 (#$ . 15713) "p"])
#@22 View the first page.
(defalias 'doc-view-first-page #[0 "\300\301!\207" [doc-view-goto-page 1] 2 (#$ . 15920) nil])
#@21 View the last page.
(defalias 'doc-view-last-page #[0 "\300\301 !\207" [doc-view-goto-page doc-view-last-page-number] 2 (#$ . 16042) nil])
#@250 Scroll page up ARG lines if possible, else goto next page.
When `doc-view-continuous' is non-nil, scrolling upward
at the bottom edge of the page moves to the next page.
Otherwise, goto next page only on typing SPC (ARG is nil).
(fn &optional ARG)
(defalias 'doc-view-scroll-up-or-next-page #[256 "\204 \211\2042 \301 \302\303\304\"\305\304\306\"\307!U\2051 \310 \210\211\302\303\304\"U\204, \311 \210\312\313!\210\314\315 \"\207\307!\207" [doc-view-continuous window-hscroll image-mode-window-get page nil window-vscroll t image-scroll-up doc-view-next-page image-bob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 16188) "P"])
#@263 Scroll page down ARG lines if possible, else goto previous page.
When `doc-view-continuous' is non-nil, scrolling downward
at the top edge of the page moves to the previous page.
Otherwise, goto previous page only on typing DEL (ARG is nil).
(fn &optional ARG)
(defalias 'doc-view-scroll-down-or-previous-page #[256 "\204 \211\2042 \301 \302\303\304\"\305\304\306\"\307!U\2051 \310 \210\211\302\303\304\"U\204, \311 \210\312\313!\210\314\315 \"\207\307!\207" [doc-view-continuous window-hscroll image-mode-window-get page nil window-vscroll t image-scroll-down doc-view-previous-page image-eob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 16839) "P"])
#@200 Scroll upward by ARG lines if possible, else goto next page.
When `doc-view-continuous' is non-nil, scrolling a line upward
at the bottom edge of the page moves to the next page.
(fn &optional ARG)
(defalias 'doc-view-next-line-or-next-page #[256 "\203. \301 \302\303\304\"\305\304\306\"\307!U\205- \310 \210\211\302\303\304\"U\204( \311 \210\312\313!\210\314\315 \"\207\307!\207" [doc-view-continuous window-hscroll image-mode-window-get page nil window-vscroll t image-next-line doc-view-next-page image-bob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 17515) "p"])
#@209 Scroll downward by ARG lines if possible, else goto previous page.
When `doc-view-continuous' is non-nil, scrolling a line downward
at the top edge of the page moves to the previous page.
(fn &optional ARG)
(defalias 'doc-view-previous-line-or-previous-page #[256 "\203. \301 \302\303\304\"\305\304\306\"\307!U\205- \310 \210\211\302\303\304\"U\204( \311 \210\312\313!\210\314\315 \"\207\307!\207" [doc-view-continuous window-hscroll image-mode-window-get page nil window-vscroll t image-previous-line doc-view-previous-page image-eob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 18106) "p"])
#@41 Kill the current converter process(es).
(defalias 'doc-view-kill-proc #[0 ":\203 \3031 \304\211A\242!0\202 \210\202 \210\202 \203& \305 !\210\306\306\211\207" [doc-view--current-converter-processes doc-view--current-timer mode-line-process (error) kill-process cancel-timer nil] 3 (#$ . 18721) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias doc-view-kill-proc-and-buffer image-kill-buffer nil make-obsolete "25.1"] 4)
#@12
(fn DIR)
(defalias 'doc-view-make-safe-dir #[257 "\3001 \301 \302\303\304\305\306!\307\"\310$\216\311\312!\210\313!)\2620\207\210\314!\203* \315\316\"\210\31714 \320\312\"0\207\315\321\322\323\324A\325##!\207" [(file-already-exists) default-file-modes make-byte-code 0 "\301\300!\207" vconcat vector [set-default-file-modes] 2 set-default-file-modes 448 make-directory file-symlink-p error "Danger: %s points to a symbolic link" (file-error) set-file-modes format "Unable to use temporary directory %s: %s" mapconcat identity " "] 10 (#$ . 19181)])
#@129 Return the directory where the png files of the current doc should be saved.
It's a subdirectory of `doc-view-cache-directory'.
(defalias 'doc-view--current-cache-dir #[0 "\203 \207\303 !\210\304\305\306\307\310\306\311\310\312\n!##\313\n\314\315!r\211q\210\316\317\320\321\322!\323\"\324$\216\325\326!\210\327!\210\330p!*\262\262Q \"!\211\207" [doc-view--current-cache-dir doc-view-cache-directory doc-view--buffer-file-name doc-view-make-safe-dir file-name-as-directory expand-file-name subst-char-in-string 58 95 37 file-name-nondirectory "-" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil insert-file-contents-literally md5] 12 (#$ . 19749)])
#@166 Return non-nil if document type TYPE is available for `doc-view'.
Document types are symbols like `dvi', `ps', `pdf', or `odf' (any
OpenDocument format).
(fn TYPE)
(defalias 'doc-view-mode-p #[257 "\304 \205J \305\306!\204 \305\307!\205J \211\310\267\202I \311\312!\205J \203' \313!\206J \205J \313 !\207\n\205J \313\n!\207 \205J \313 !\205J \311\312!\207\313\314!\207\315\207" [doc-view-dvipdf-program doc-view-dvipdfm-program doc-view-ghostscript-program doc-view-odf->pdf-converter-program display-graphic-p image-type-available-p imagemagick png #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dvi 23 postscript 47 ps 47 eps 47 pdf 47 odf 55 djvu 69)) doc-view-mode-p pdf executable-find "ddjvu" nil] 3 (#$ . 20510)])
(defvar doc-view-shrink-factor 1.125)
#@46 Enlarge the document by FACTOR.
(fn FACTOR)
(defalias 'doc-view-enlarge #[257 "\203. \303\304\305!A\306\"\307=\203. \310 _!\211 \232?\205- \311\301!\210\211\312\303\304\305!A\313\"\314 #\207\310\n_!\211\n\232?\205B \311\302!\210\211\315 \207" [doc-view-scale-internally doc-view-image-width doc-view-resolution plist-get image-mode-window-get image :type imagemagick ceiling make-local-variable doc-view-insert-image :file :width doc-view-reconvert-doc] 6 (#$ . 21319) (list doc-view-shrink-factor)])
#@35 Shrink the document.
(fn FACTOR)
(defalias 'doc-view-shrink #[257 "\300\301\245!\207" [doc-view-enlarge 1.0] 4 (#$ . 21832) (list doc-view-shrink-factor)])
#@56 Reset the document size/zoom level to the initial one.
(defalias 'doc-view-scale-reset #[0 "\203 \302\303\304!A\305\"\306=\203 \307\301!\210\310\302\303\304!A\311\"\312 #\207\307\313!\210\314 \207" [doc-view-scale-internally doc-view-image-width plist-get image-mode-window-get image :type imagemagick kill-local-variable doc-view-insert-image :file :width doc-view-resolution doc-view-reconvert-doc] 4 (#$ . 21996) nil])
#@392 Adjust the scale of the DocView page images by FACTOR.
FACTOR defaults to `doc-view-shrink-factor'.
The actual adjustment made depends on the final component of the
key-binding used to invoke the command, with all modifiers removed:
+, = Increase the image scale by FACTOR
- Decrease the image scale by FACTOR
0 Reset the image scale to the initial scale
(fn FACTOR)
(defalias 'doc-view-scale-adjust #[257 "\302\303!\211\304\267\202 \305!\202 \306!\202 \307 \202 \302\262)\207" [last-command-event echo-keystrokes nil event-basic-type #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (61 12 43 12 45 18 48 24)) doc-view-enlarge doc-view-shrink doc-view-scale-reset] 5 (#$ . 22428) (list doc-view-shrink-factor)])
#@42 Fit the image width to the window width.
(defalias 'doc-view-fit-width-to-window #[0 "\300\301 8\301 @Z\302\303!\211\204# \304\305 \306\"@\307\310!\310!\245!\262\202O \3008\310!\310!\245\311\312\313\314\315\316!\317\"\320\321%\"\307!\210\322\303\323#\210\324\302\325\323\"!\266\203\207" [2 window-inside-pixel-edges image-mode-window-get slice image-display-size image-get-display-property t doc-view-enlarge float mapcar make-byte-code 257 "\301\300_!\207" vconcat vector [ceiling] 4 "\n\n(fn X)" image-mode-window-put nil doc-view-goto-page page] 11 (#$ . 23218) nil])
#@44 Fit the image height to the window height.
(defalias 'doc-view-fit-height-to-window #[0 "\300\301 8\301 A@Z\302\303!\211\204% \304\305 \306\"A\307\310S!\310!\245!\262\202R \3008\310S!\310!\245\311\312\313\314\315\316!\317\"\320\321%\"\307!\210\322\303\323#\210\324\302\325\323\"!\266\203\207" [3 window-inside-pixel-edges image-mode-window-get slice image-display-size image-get-display-property t doc-view-enlarge float mapcar make-byte-code 257 "\301\300_!\207" vconcat vector [ceiling] 4 "\n\n(fn X)" image-mode-window-put nil doc-view-goto-page page] 11 (#$ . 23807) nil])
#@157 Fit the image to the window.
More specifically, this function enlarges image by:
min {(window-width / image-width), (window-height / image-height)} times.
(defalias 'doc-view-fit-page-to-window #[0 "\300\301 8\301 @Z\302\301 8\301 A@Z\303\304!\211\204= \305\306 \307\"@\305\306 \307\"A\310\311!\311!\245\311S!\311!\245^!\266\202\202u \3008\3028\311!\311!\245\311S!\311!\245^\312\313\314\315\316\317!\320\"\321\322%\"\310!\210\323\304\324#\210\325\303\326\324\"!\266\204\207" [2 window-inside-pixel-edges 3 image-mode-window-get slice image-display-size image-get-display-property t doc-view-enlarge float mapcar make-byte-code 257 "\301\300_!\207" vconcat vector [ceiling] 4 "\n\n(fn X)" image-mode-window-put nil doc-view-goto-page page] 13 (#$ . 24403) nil])
#@97 Resize selected window so it just fits the current page.
Resize the containing frame if needed.
(defalias 'doc-view-fit-window-to-page #[0 "\300\301!\211\203
\3028\202 \303\304 \305\"@\203 \3068\202# \303\304 \305\"A\302\307 8\307 @Z\306\307 8\307 A@ZZZ\310\311 \312 U\203O \313\314\315 \\BBC\202X \316\317 \245\320\"\210\321\322 \323 U\203l \324\314\325 \\BBC\202u \316\326 \245\321\"\210\321\"\211\205 \327\330 \"\207" [image-mode-window-get slice 2 image-display-size image-get-display-property t 3 window-inside-pixel-edges append window-width frame-width width text-pixels frame-text-width enlarge-window frame-char-width horiz nil window-height frame-height height frame-text-height frame-char-height modify-frame-parameters selected-frame] 13 (#$ . 25189) nil])
#@93 Reconvert the current document.
Should be invoked when the cached images aren't up-to-date.
(defalias 'doc-view-reconvert-doc #[0 "\300 \210\301\302 !\203 \303\302 \304\"\210\305\306!\210\307 \207" [doc-view-kill-proc file-exists-p doc-view--current-cache-dir delete-directory recursive kill-local-variable doc-view-last-page-number doc-view-initiate-display] 3 (#$ . 25980) nil])
#@70 Generic sentinel for doc-view conversion processes.
(fn PROC EVENT)
(defalias 'doc-view-sentinel #[514 "\302\303\"\204 \304\305\306!\302\307\"\203 \310\311\"\202 #\207\312\313\314\"!\205B r\313\314\"q\210\315\"\211\205; \316\317@\"\313\320\" )\207" [doc-view--current-converter-processes mode-line-process string-match "finished" message "DocView: process %s changed status to %s." process-name "\\(.+\\)\n?\\'" match-string 1 buffer-live-p process-get buffer delq format ":%s" callback] 9 (#$ . 26368)])
#@35
(fn NAME PROGRAM ARGS CALLBACK)
(defalias 'doc-view-start-process #[1028 "\304!\206 \305\306!\307\310 %\211\nB\311\312\"C\313\314\"\210\315\316p#\210\315\317#)\207" [default-directory doc-view-conversion-buffer doc-view--current-converter-processes mode-line-process unhandled-file-name-directory expand-file-name "~/" apply start-process format ":%s" set-process-sentinel doc-view-sentinel process-put buffer callback] 10 (#$ . 26896)])
#@91 Convert DVI to PDF asynchronously and call CALLBACK when finished.
(fn DVI PDF CALLBACK)
(defalias 'doc-view-dvi->pdf #[771 "\203 \302!\203 \303\304D$\207\303\304 \305E$\207" [doc-view-dvipdf-program doc-view-dvipdfm-program executable-find doc-view-start-process "dvi->pdf" "-o"] 9 (#$ . 27357)])
#@123 Return non-nil if a PDF file is password-protected.
The test is performed using `doc-view-ghostscript-program'.
(fn PDF)
(defalias 'doc-view-pdf-password-protected-ghostscript-p #[257 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314\315p\315\316 \317\nD\"&\210eb\210\320\321\315\322#*\207" [doc-view-ghostscript-program doc-view-ghostscript-options generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply call-process nil append "-sNODISPLAY" search-forward "This file requires a password for access." t] 12 (#$ . 27675)])
#@30
(fn PDF PNG PAGE CALLBACK)
(defalias 'doc-view-pdf->png-converter-ghostscript #[1028 "\304!\205 \305\306!\307\310\311 \312\nP\313\314\315 !\"D\205# \313\316\n\"C \205. \313\317 \"C\2059 \313\320\n\"C\321
PD&$\207" [doc-view-ghostscript-program doc-view-ghostscript-options doc-view-ghostscript-device doc-view-resolution doc-view-pdf-password-protected-ghostscript-p read-passwd "Enter password for PDF file: " doc-view-start-process "pdf/ps->png" append "-sDEVICE=" format "-r%d" round "-dFirstPage=%d" "-dLastPage=%d" "-sPDFPassword=%s" "-sOutputFile="] 16 (#$ . 28296)])
(defalias 'doc-view-ps->png-converter-ghostscript 'doc-view-pdf->png-converter-ghostscript)
#@175 Convert PAGE of a DJVU file to bitmap(s) asynchronously.
Call CALLBACK with no arguments when done.
If PAGE is nil, convert the whole document.
(fn DJVU TIFF PAGE CALLBACK)
(defalias 'doc-view-djvu->tiff-converter-ddjvu #[1028 "\301\302\303\304\305\306\307!\"\310?\205 \311\205 \305\312\n\"C D#BB$\207" [doc-view-resolution doc-view-start-process "djvu->tiff" "ddjvu" "-format=tiff" format "-scale=%d" round append ("-eachpage") "-page=%d"] 14 (#$ . 28987)])
#@113 Return the mutool subcommand replacing mudraw.
Recent MuPDF distributions replaced `mudraw' with `mutool draw'.
(defalias 'doc-view-pdfdraw-program-subcommand #[0 "\301\302\"\205 \303\207" [doc-view-pdfdraw-program string-match "mutool[^/\\]*$" ("draw")] 3 (#$ . 29466)])
#@119 Return non-nil if a PDF file is password-protected.
The test is performed using `doc-view-pdfdraw-program'.
(fn PDF)
(defalias 'doc-view-pdf-password-protected-pdfdraw-p #[257 "\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314\315p\315\316\317 \320 P\n\321BB\"&\210eb\210\322\323\315\324#*\207" [doc-view-pdfdraw-program null-device generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply call-process nil append doc-view-pdfdraw-program-subcommand "-o" ("1") search-forward "error: cannot authenticate password" t] 13 (#$ . 29747)])
#@30
(fn PDF PNG PAGE CALLBACK)
(defalias 'doc-view-pdf->png-converter-mupdf #[1028 "\302!\205 \303\304!\305\306\307\310 \311 P\312\313\314 !\"D\205# \315D C\n\2051 \312\316\f\"C%$\207" [doc-view-pdfdraw-program doc-view-resolution doc-view-pdf-password-protected-pdfdraw-p read-passwd "Enter password for PDF file: " doc-view-start-process "pdf->png" append doc-view-pdfdraw-program-subcommand "-o" format "-r%d" round "-p" "%d"] 16 (#$ . 30377)])
#@205 Convert ODF to PDF asynchronously and call CALLBACK when finished.
The converted PDF is put into the current cache directory, and it
is named like ODF with the extension turned to pdf.
(fn ODF CALLBACK)
(defalias 'doc-view-odf->pdf-converter-unoconv #[514 "\301\302\303\304\305\306 \257$\207" [doc-view-odf->pdf-converter-program doc-view-start-process "odf->pdf" "-f" "pdf" "-o" doc-view--current-cache-dir] 10 (#$ . 30842)])
#@205 Convert ODF to PDF asynchronously and call CALLBACK when finished.
The converted PDF is put into the current cache directory, and it
is named like ODF with the extension turned to pdf.
(fn ODF CALLBACK)
(defalias 'doc-view-odf->pdf-converter-soffice #[514 "\302\303\304\"\305\306\307 \310=\205 \311Q\312\313\314\315\316 \257\317\320\321\322\323\n\n\"\324\"\325$$\207" [doc-view-odf->pdf-converter-program system-type make-temp-file "libreoffice-docview" t doc-view-start-process "odf->pdf" "-env:UserInstallation=file://" windows-nt "/" "--headless" "--convert-to" "pdf" "--outdir" doc-view--current-cache-dir make-byte-code 0 "\302\301\303\"\210\300 \207" vconcat vector [delete-directory t] 3] 14 (#$ . 31282)])
#@56 Convert PDF-PS to PNG asynchronously.
(fn PDF-PS PNG)
(defalias 'doc-view-pdf/ps->png #[514 "\305\267\202 \202 \306\202 \307\310\n\311\312\313\314\315!\316\"\317$\262$\210 \205. \320\321 \322p$\211\207" [doc-view-doc-type doc-view-pdf->png-converter-function doc-view-resolution doc-view-conversion-refresh-interval doc-view--current-timer #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pdf 6 djvu 10)) doc-view-djvu->tiff-converter-ddjvu doc-view-ps->png-converter-ghostscript nil make-byte-code 0 "\302\303\300!\304\305\306\307 \"\304\310%\210 \203 \311 !\210\304\312p\313\"\207" vconcat vector [doc-view--current-timer write-region prin1-to-string nil expand-file-name "resolution.el" doc-view--current-cache-dir silently cancel-timer doc-view-display force] 6 run-at-time "1 secs" doc-view-display] 13 (#$ . 32011)])
#@124 Convert a document file to bitmap images asynchronously.
Start by converting PAGES, and then the rest.
(fn PDF PNG PAGES)
(defalias 'doc-view-document->bitmap #[771 "\211\204 \301\"\207\211A\302@\"@\303\304\305\306\307\f\f #\310\"\311$$\207" [doc-view-single-page-converter-function doc-view-pdf/ps->png format make-byte-code 0 "\302\203\n \303\300\301\302#\207\304 \210\305p\306\307#\211\203H \211@\310!r\311\312\313\314\315!\316\"\317$\216\320@\321\"\210\322\323\324!\325\";\203? \326\323\327\306\"!\210*\210A\266\202\202 \210\330\300\301\"\207" vconcat vector [doc-view-document->bitmap clear-image-cache get-buffer-window-list nil visible internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord overlay-get image-mode-window-get overlay display doc-view-goto-page page doc-view-pdf/ps->png] 9] 16 (#$ . 32891)])
#@91 Convert PDF to TXT asynchronously and call CALLBACK when finished.
(fn PDF TXT CALLBACK)
(defalias 'doc-view-pdf->txt #[771 "\302!\204\n \303\304!\210\305\306\307 D\"$\207" [doc-view-pdftotext-program doc-view-pdftotext-program-args executable-find error "You need the `pdftotext' program to convert a PDF to text" doc-view-start-process "pdf->txt" append] 10 (#$ . 33824)])
#@138 Return the name of the doc.pdf in the current cache dir.
This file exists only if the current document isn't a PDF or PS file already.
(defalias 'doc-view-current-cache-doc-pdf #[0 "\300\301\302 \"\207" [expand-file-name "doc.pdf" doc-view--current-cache-dir] 3 (#$ . 34214)])
#@86 Convert the current document to text and call CALLBACK when done.
(fn TXT CALLBACK)
(defalias 'doc-view-doc->txt #[514 "\302\303 \304\"\210\305\267\202) \306 #\207\307 \310 \311\312\313\314\315\n\n\n#\316\"\317$#\207\320=\2045 \321=\203< \306\307 #\207\322\323!\207" [doc-view-doc-type doc-view--buffer-file-name make-directory doc-view--current-cache-dir t #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pdf 12 ps 18)) doc-view-pdf->txt doc-view-current-cache-doc-pdf doc-view-ps->pdf make-byte-code 0 "\303\302\300\301#\207" vconcat vector [doc-view-pdf->txt] 4 dvi odf error "DocView doesn't know what to do"] 14 (#$ . 34499)])
#@89 Convert PS to PDF asynchronously and call CALLBACK when finished.
(fn PS PDF CALLBACK)
(defalias 'doc-view-ps->pdf #[771 "\301!\204\n \302\303!\210\304\305\306E$\207" [doc-view-ps2pdf-program executable-find error "You need the `ps2pdf' program to convert PS to PDF" doc-view-start-process "ps->pdf" "-dSAFER"] 9 (#$ . 35187)])
(defalias 'doc-view-active-pages #[0 "\300\301p\300\302#\211\203# \211@\303\304\"\211>\204 \211B\262\210A\266\202\202 \210\211\207" [nil get-buffer-window-list visible image-mode-window-get page] 6])
#@172 Convert `doc-view--buffer-file-name' to a set of png files, one file per page.
Those files are saved in the directory given by the function
`doc-view--current-cache-dir'.
(defalias 'doc-view-convert-current-doc #[0 "\306\307\310 \311\"\304 \"\312\304 \306\"\210\n\313\267\202^ \314 \315 \316\317\320\321\322 \"\323\"\324$#\262\202b \314 \307\325 !\326P\f\"
\316\317\327\321\322 #\330\"\324$\"\266\203\202b \331 \332 #\262\202b \333 \"\207" [doc-view--pending-cache-flush doc-view--image-file-pattern doc-view-doc-type doc-view--buffer-file-name doc-view--current-cache-dir doc-view-odf->pdf-converter-function t expand-file-name format "%d" make-directory #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dvi 22 odf 47 djvu 82 pdf 82)) doc-view-current-cache-doc-pdf doc-view-dvi->pdf make-byte-code 0 "\302\301\300\"\207" vconcat vector [doc-view-pdf/ps->png] 3 file-name-base ".pdf" "\303\301\300\"\210\304\300\302\"\207" [rename-file doc-view-pdf/ps->png] doc-view-active-pages doc-view-document->bitmap doc-view-pdf/ps->png] 14 (#$ . 35737)])
#@427 Set the slice of the images that should be displayed.
You can use this function to tell doc-view not to display the
margins of the document. It prompts for the top-left corner (X
and Y) of the slice to display and its WIDTH and HEIGHT.
See `doc-view-set-slice-using-mouse' and
`doc-view-set-slice-from-bounding-box' for more convenient ways
to do that. To reset the slice use `doc-view-reset-slice'.
(fn X Y WIDTH HEIGHT)
(defalias 'doc-view-set-slice #[1028 "\300\301F\302#\210\303\304\305\302\"!\207" [image-mode-window-put slice nil doc-view-goto-page image-mode-window-get page] 10 (#$ . 36845) (byte-code "\300\301\302!\303\"\304\305\306@\"!\304\305\307A\"!\304\305\310@Z\"!\304\305\311AZ\"!F\207" [image-size image-mode-window-get image t read-number format "Top-left X (0..%d): " "Top-left Y (0..%d): " "Width (0..%d): " "Height (0..%d): "] 9)])
#@219 Set the slice of the images that should be displayed.
You set the slice by pressing mouse-1 at its top-left corner and
dragging it to its bottom-right corner. See also
`doc-view-set-slice' and `doc-view-reset-slice'.
(defalias 'doc-view-set-slice-using-mouse #[0 "\300\211\211\211\211\211\204K \301\302!\211@\303=\203G \304!\3058\262@\262\304!\3058\262A\262\306!\3058\262@Z\262\306!\3058\262AZ\262\307\262\210\202 \310$\207" [nil read-event "Press mouse-1 at the top-left corner and drag it to the bottom-right corner!" drag-mouse-1 event-start 8 event-end t doc-view-set-slice] 10 (#$ . 37724) nil])
#@54 Get the BoundingBox information of the current page.
(defalias 'doc-view-get-bounding-box #[0 "\302\303\304\"\305 \306!\203 \211\202 \262\307 \310\311\312\211$Q!\313 \314\315\316\317\320!\321\"\322$\216\323\324\"\205L \325\326\327\330\"\327\331\"\327\322\"\327\332\"F\")\262\207" [doc-view--buffer-file-name doc-view-ghostscript-program image-mode-window-get page nil doc-view-current-cache-doc-pdf file-exists-p shell-command-to-string " -dSAFER -dBATCH -dNOPAUSE -q -sDEVICE=bbox " format "-dFirstPage=%s -dLastPage=%s %s" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match "%%BoundingBox: \\([[:digit:]]+\\) \\([[:digit:]]+\\) \\([[:digit:]]+\\) \\([[:digit:]]+\\)" mapcar string-to-number match-string 1 2 4] 12 (#$ . 38357)])
#@47 An alist from paper size names to dimensions.
(defvar doc-view-paper-sizes '((a4 595 842) (a4-landscape 842 595) (letter 612 792) (letter-landscape 792 612) (legal 612 1008) (legal-landscape 1008 612) (a3 842 1191) (a3-landscape 1191 842) (tabloid 792 1224) (ledger 1224 792)) (#$ . 39168))
#@65 Guess the paper size according to the aspect ratio.
(fn IW IH)
(defalias 'doc-view-guess-paper-size #[514 "\301C\211\302\240\210\211\242\"\303\304\305\306\307\310!\311\"\312\313%\"\314\"A@\266\202\207" [doc-view-paper-sizes nil #[514 "\300\301_\245!\207" [round 100.0] 5 "\n\n(fn X Y)"] mapcar make-byte-code 257 "\300\242A@\3018\"@D\207" vconcat vector [2] 5 "\n\n(fn L)" assoc] 11 (#$ . 39465)])
#@20
(fn PS IW IH BB)
(defalias 'doc-view-scale-bounding-box #[1028 "\211@_\301\"A@\245A@_\302\301\"8\245\3028_\301\"A@\245\3038_\302\301 \"8\245F\207" [doc-view-paper-sizes assoc 2 3] 12 (#$ . 39882)])
#@242 Set the slice from the document's BoundingBox information.
The result is that the margins are almost completely cropped,
much more accurate than could be done manually using
`doc-view-set-slice-using-mouse'.
(fn &optional FORCE-PAPER-SIZE)
(defalias 'doc-view-set-slice-from-bounding-box #[256 "\301 \211\204\f \302\303!\202T \304\305\306!\307\"\211@A\204! \310\"\206) \311\312\313\314\307$!\315$\211@A@\3168\3178\320\316Z\321 \316#Z\322\\Z\322\\$\266\211\207" [doc-view-paper-sizes doc-view-get-bounding-box message "BoundingBox couldn't be determined" image-size image-mode-window-get image t doc-view-guess-paper-size intern completing-read "Paper size: " nil doc-view-scale-bounding-box 2 3 doc-view-set-slice - 4] 17 (#$ . 40106) "P"])
#@89 Reset the current slice.
After calling this function whole pages will be visible again.
(defalias 'doc-view-reset-slice #[0 "\300\301\302\211#\210\303\304\305\302\"!\207" [image-mode-window-put slice nil doc-view-goto-page image-mode-window-get page] 4 (#$ . 40876) nil])
#@87 Insert the given png FILE.
ARGS is a list of image descriptors.
(fn FILE &rest ARGS)
(defalias 'doc-view-insert-image #[385 "\203 \305 \210\306\307\310!\311\312\313\"!\205\377 \205J \314!\205J \203) \315\316!\2044 \317\320\n\306%\202J \321>\204B \322\321 D\"\262\317\320\323\306%\307\324!\205U \325!@\203m \203m \326\3278!\325\330\"@\245_\202n \211\331 \332\333\306#\210\334ed#\210\335\336\205\233 V\205\233 \337\340\341\342\343\344\345\346\fBEE##\210\335\341\203\272 \203\265 \324BD\202\303 \202\303 \f\203\302 \347\202\303 \350#\210\312\313\"\312\341\";\203\337 \351\352\"\210\353\352\"\202\373 \307\354\"\307\355\"\203\360 \351\"\210\211\205\371 \353\356#\266\202\262\266\205\207" [doc-view--pending-cache-flush doc-view-scale-internally doc-view--image-type doc-view-image-width doc-view--current-converter-processes clear-image-cache nil image-mode-window-get overlay window-live-p overlay-get window file-readable-p fboundp imagemagick-types apply create-image :width append imagemagick slice image-size float 2 pixels window-width image-mode-window-put image move-overlay overlay-put before-string propertize " " display space :align-to + center -0.5 "Cannot display this page (yet)!" "Cannot display this page!\nMaybe because of a conversion failure!" set-window-hscroll 0 set-window-vscroll hscroll vscroll t] 20 (#$ . 41154)])
#@107 Return non-nil if A should be sorted before B.
Predicate for sorting `doc-view--current-files'.
(fn A B)
(defalias 'doc-view-sort #[514 "GGW\206 GGU\205 \231\207" [] 4 (#$ . 42559)])
#@164 Start viewing the document in BUFFER.
If FORCE is non-nil, start viewing even if the document does not
have the page we want to view.
(fn BUFFER &optional FORCE)
(defalias 'doc-view-display #[513 "rq\210\302\303\304 \305\306 \307\"\305$\310\"\211GG=\204 \311 \210\312\313\305#\206( \305C\211\205\215 \211@\314\315\"\316\306 \"\304 \"\204J \211\235\204\204 \211\235\203\204 \317!\203\200 \320!r\321\322\323\324\325!\326\"\327$\216\330@\331\"\210p=\204w \332\333\313p D\313$\210\334!\210*\210\202\204 \334!\210\266A\266\202\202( \262\262)\207" [doc-view--current-files doc-view--image-file-pattern sort directory-files doc-view--current-cache-dir t format "[0-9]+" doc-view-sort force-mode-line-update get-buffer-window-list nil image-mode-window-get page expand-file-name windowp internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord cl--assertion-failed (eq (current-buffer) buffer) doc-view-goto-page] 14 (#$ . 42758)])
(defalias 'doc-view-buffer-message #[0 "\300\301\302!\303\"?\205 \304\301\302!\303\305\306\307\310#\311P#\207" [overlay-get image-mode-window-get overlay display overlay-put propertize "Welcome to DocView!" face bold "\n\nIf you see this buffer it means that the document you want to view is being\nconverted to PNG and the conversion of the first page hasn't finished yet or\n`doc-view-conversion-refresh-interval' is set to nil.\n\nFor now these keys are useful:\n\n`q' : Bury this buffer. Conversion will go on in background.\n`k' : Kill the conversion process and this buffer.\n`K' : Kill the conversion process.\n"] 7])
(defalias 'doc-view-show-tooltip #[0 "\300\301\302!!\207" [tooltip-show image-mode-window-get info] 3 nil nil])
(defvar doc-view--text-view-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [doc-view--text-view-mode-hook variable-documentation put "Hook run after entering DV/Text mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp doc-view--text-view-mode-map definition-name doc-view--text-view-mode] 4)
(defvar doc-view--text-view-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [doc-view--text-view-mode-abbrev-table doc-view--text-view-mode-map variable-documentation put purecopy "Keymap for `doc-view--text-view-mode'." boundp doc-view--text-view-mode-syntax-table definition-name doc-view--text-view-mode (lambda (#1=#:def-tmp-var) (defvar doc-view--text-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `doc-view--text-view-mode'." (lambda (#1#) (defvar doc-view--text-view-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `doc-view--text-view-mode'." derived-mode-parent text-mode] 5)
#@259 View mode used in DocView's text buffers.
In addition to any hooks its parent mode `text-mode' might have run,
this mode runs the hook `doc-view--text-view-mode-hook', as the final or penultimate step
during initialization.
\{doc-view--text-view-mode-map}
(defalias 'doc-view--text-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325 C#\210\327 !\210\330\f!\210
\331 \210)\332\333!\207" [delay-mode-hooks major-mode mode-name doc-view--text-view-mode-map doc-view--text-view-mode-syntax-table doc-view--text-view-mode-abbrev-table make-local-variable t text-mode doc-view--text-view-mode "DV/Text" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table view-mode run-mode-hooks doc-view--text-view-mode-hook local-abbrev-table] 5 (#$ . 45867) nil])
#@45 Display the current doc's contents as text.
(defalias 'doc-view-open-text #[0 "\203 \305\306!\207\307\310\311 \"\312\313\314\"\315!\203Q \316\211 \317 \210\320\316!\210\321!\210\322 \210\323\301!\210\211\324\314!\210\325 \210eb\210\326\f\314\316S$\210\327\330\331\314\316$*\266\203\202U \332\333\"\207" [doc-view--current-converter-processes doc-view--buffer-file-name buffer-undo-list inhibit-read-only page-delimiter message "DocView: please wait till conversion finished." expand-file-name "doc.txt" doc-view--current-cache-dir image-mode-window-get page nil file-readable-p t erase-buffer set-buffer-multibyte insert-file-contents doc-view--text-view-mode make-local-variable set-buffer-modified-p doc-view-minor-mode re-search-forward add-hook write-file-functions #[0 "\302=\205\n \303\304 \"\207" [major-mode buffer-file-name doc-view--text-view-mode error "Cannot save text contents of document %s"] 3] doc-view-doc->txt doc-view-open-text] 10 (#$ . 46946) nil])
#@51 Doc-view settings saved while in some other mode.
(defvar doc-view-saved-settings nil (#$ . 47936))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local doc-view-saved-settings put permanent-local t] 4)
#@58 Toggle between editing a document as text or viewing it.
(defalias 'doc-view-toggle-display #[0 "\304\267\202* \305 \210\306\307 \210\310\311!\207\312\306\313 \306\211\211\312%\210\307 \210\310\311!\210\314\306!)\207\315 \2038 \316\317!\2038 \320 \210\321 \207" [major-mode buffer-read-only buffer-undo-list doc-view--buffer-file-name #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (doc-view-mode 6 doc-view--text-view-mode 18)) doc-view-kill-proc nil doc-view-fallback-mode doc-view-minor-mode 1 t insert-file-contents set-buffer-modified-p buffer-modified-p y-or-n-p "The buffer has been modified. Save the changes? " save-buffer doc-view-mode] 6 (#$ . 48168) nil])
#@218 Return a list of FILE's pages that contain text matching REGEXP.
The value is an alist of the form (PAGE CONTEXTS) where PAGE is
the pagenumber and CONTEXTS are all lines of text containing a match.
(fn REGEXP FILE)
(defalias 'doc-view-search-internal #[514 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311!\210\312\211\313\314\315\316Q\313\317#\203e \320\312!\2030 T\262\320\310!\203 U\204K \321 \322 {CBB\262\202_ \323@\206S C\321 \322 {C\"AB\262\262\202 \211\237\266\203*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents 1 nil re-search-forward "\\(?:\\([\f]\\)\\|\\(" "\\)\\)" t match-string line-beginning-position line-end-position append] 10 (#$ . 48886)])
#@71 Extract the number of matches from the search result LIST.
(fn LIST)
(defalias 'doc-view-search-no-of-matches #[257 "\300\211\203 \211@GS\\\262A\266\202\202 \210\211\207" [0] 6 (#$ . 49687)])
#@113 Call `doc-view-search' for backward search.
If prefix NEW-QUERY is given, ask for a new regexp.
(fn NEW-QUERY)
(defalias 'doc-view-search-backward #[257 "\300\301\"\207" [doc-view-search t] 4 (#$ . 49894) "P"])
#@245 Jump to the next match or initiate a new search if NEW-QUERY is given.
If the current document hasn't been transformed to plain text
till now do that first.
If BACKWARD is non-nil, jump to the previous match.
(fn NEW-QUERY &optional BACKWARD)
(defalias 'doc-view-search #[513 "\204 \203 \211\203 \302\303!\207\304\303!\207\305\306\307\310 \"\311!\2031 \312\313\314!\"\315\316\317!\"\202? \203; \315\320!\202? \321\322\"\207" [doc-view--current-search-matches doc-view--current-converter-processes doc-view-search-previous-match 1 doc-view-search-next-match nil expand-file-name "doc.txt" doc-view--current-cache-dir file-readable-p doc-view-search-internal read-from-minibuffer "Regexp: " message "DocView: search yielded %d matches." doc-view-search-no-of-matches "DocView: please wait till conversion finished." doc-view-doc->txt #[0 "\300\301!\207" [doc-view-search nil] 2]] 7 (#$ . 50114) "P"])
#@47 Go to the ARGth next matching page.
(fn ARG)
(defalias 'doc-view-search-next-match #[257 "\301\302\"S8@\211\203 \303!\202\" \205\" \304\305!\205\" \303@@!\207" [doc-view--current-search-matches cl-remove-if #[257 "\211@\300\301\302\"X\207" [image-mode-window-get page nil] 5 "\n\n(fn I)"] doc-view-goto-page y-or-n-p "No more matches after current page. Wrap to first match? "] 5 (#$ . 51032) "p"])
#@51 Go to the ARGth previous matching page.
(fn ARG)
(defalias 'doc-view-search-previous-match #[257 "\301\302\"S\2378@\211\203 \303!\202% \205% \304\305!\205% \303\306!@@!\207" [doc-view--current-search-matches cl-remove-if #[257 "\211@\300\301\302\"Y\207" [image-mode-window-get page nil] 5 "\n\n(fn I)"] doc-view-goto-page y-or-n-p "No more matches before current page. Wrap to last match? " last] 6 (#$ . 51446) "p"])
(put 'doc-view-mode 'mode-class 'special)
#@58 Return non-nil if the current doc was already converted.
(defalias 'doc-view-already-converted-p #[0 "\301\302 !\205 \303\304\305\302 \"!\205 \306\302 \307\310\311\"#G\312V\207" [doc-view--image-file-pattern file-exists-p doc-view--current-cache-dir file-readable-p expand-file-name "resolution.el" directory-files nil format "[0-9]+" 0] 6 (#$ . 51921)])
(defalias 'doc-view-initiate-display #[0 "\305!\203f \306 \210\307\310\311\310\312\"\206 \313\312#\210\314 \203\\ \315\316!\210\317\320\321 \"\322\323!r\211q\210\324\325\326\327\330!\331\"\332$\216\333!\205D \334!\210\335p!*\262\211\247\203R \336\301!\210\211\266\337p\340\"\210\202_ \341 \210\315\342\343\344!\"\207\345\346!\203w \315\347\n\350 !#\210\202{ \315\351!\210\352\f!\203\212 \353\354!\203\212 \355 \207\356 \207" [doc-view-doc-type doc-view-resolution doc-view-ghostscript-program doc-view--buffer-file-name doc-view-pdftotext-program doc-view-mode-p doc-view-buffer-message image-mode-window-put page image-mode-window-get nil 1 doc-view-already-converted-p message "DocView: using cached files!" expand-file-name "resolution.el" doc-view--current-cache-dir generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 file-readable-p insert-file-contents read make-local-variable doc-view-display force doc-view-convert-current-doc "%s" substitute-command-keys "Type \\[doc-view-toggle-display] to toggle between editing or viewing the document." image-type-available-p png "Conversion utility \"%s\" not available for %s" file-name-extension "PNG support not available; can't view document" executable-find y-or-n-p "Unable to render file. View extracted text instead? " doc-view-open-text doc-view-toggle-display] 8])
(defalias 'doc-view-clone-buffer-hook #[0 "\301ed\302\303$\210:\205 \304\211\207" [image-mode-winprops-alist remove-overlays doc-view t nil] 5])
#@14
(fn L1 L2)
(defalias 'doc-view-intersection #[514 "\300\211\203 \211@\211>\203 \211B\262A\266\202\202 \210\211\207" [nil] 7 (#$ . 53836)])
#@61 Figure out the current document type (`doc-view-doc-type').
(defalias 'doc-view-set-doc-type #[0 "\205\f \302\303!\304\305#A\212eb\210\306\307!\203 \310\2025 \306\311!\203$ \312\2025 \306\313!\203. \314\2025 \306\315!\2055 \316)\317\301!\210\320\"\206\\ \203Q \211\203Q \321\322#\206\\ \206\\ \211\206\\ \321\323!@\211\207" [buffer-file-name doc-view-doc-type assoc-string file-name-extension (("dvi" dvi) ("pdf" pdf) ("epdf" pdf) ("ps" ps) ("eps" ps) ("djvu" djvu) ("odt" odf) ("ods" odf) ("odp" odf) ("odg" odf) ("odc" odf) ("odi" odf) ("odm" odf) ("ott" odf) ("ots" odf) ("otp" odf) ("otg" odf) ("doc" odf) ("docx" odf) ("xls" odf) ("xlsx" odf) ("ppt" odf) ("pps" odf) ("pptx" odf) ("rtf" odf)) t looking-at "%!" (ps) "%PDF" (pdf) "\367" (dvi) "AT&TFORM" (djvu) make-local-variable doc-view-intersection error "Conflicting types: name says %s but content says %s" "Cannot determine the document type"] 6 (#$ . 53991)])
#@69 Find the right single-page converter for the current document type.
(defalias 'doc-view-set-up-single-converter #[0 "\305=\203
\306\307\310E\202 \311\312E\211@A\211@A\211@A\313\302!\210\211\313\303!\210\313\304!\210\314P\211\266\203\207" [doc-view-doc-type doc-view-pdf->png-converter-function doc-view-single-page-converter-function doc-view--image-type doc-view--image-file-pattern djvu doc-view-djvu->tiff-converter-ddjvu tiff "tif" png "png" make-local-variable "page-%s."] 12 (#$ . 54930)])
#@24
(fn DESKTOP-DIRNAME)
(defalias 'doc-view-desktop-save-buffer #[257 "\300\301\300\302\"B\303\301\303!BD\207" [page image-mode-window-get nil slice] 5 (#$ . 55448)])
#@23
(fn FILE NAME MISC)
(defalias 'doc-view-restore-desktop-buffer #[771 "\300\236A\301\236A\302#\210\303\304p\305\"\206 \306 !r\307\305\310\311\312!\313\"\314$\216\315@\316\"\210\317!\210\2039 \320\321\"\210p*\262\207" [page slice desktop-restore-file-buffer internal--before-with-selected-window get-buffer-window 0 selected-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord doc-view-goto-page apply doc-view-set-slice] 12 (#$ . 55620)])
(add-to-list 'desktop-buffer-mode-handlers '(doc-view-mode . doc-view-restore-desktop-buffer))
#@290 Major mode in DocView buffers.
DocView Mode is an Emacs document viewer. It displays PDF, PS
and DVI files (as PNG images) in Emacs buffers.
You can use \<doc-view-mode-map>\[doc-view-toggle-display] to
toggle between displaying the document or editing it as text.
\{doc-view-mode-map}
(defalias 'doc-view-mode #[0 "edU\203 \306 \207\307 \210\211\203\" \211@\310@!AL\210A\266\202\202
\210 \204* \311 \210\312 \210 \313=\2049 \310\302!\210\314\315 !\210\310\316!\210\317\f\203Q \320\321\322
!! \"\202r \314 >
\205[ \323
!)\204q \320
\203j \321
!\202l \324 \"\202r
!\211
\230\204\202 \325\314\211#\210\326\327\330\331B\332\314$\210\333\334\335\314\336$\210\333\337\340\314\336$\210\333\341\342\314\336$\210\310\343!\210\344#\345ed\346\336$\210\333\347\350\314\336$\210\351 \210\310\352!\210\353*\310\354!\210\314,\355\356!\203\323 \310\356!\210\357.\355\360!\203\340 \310\360!\210\3610\310\362!\210\3142\363?!\210\333\364\365\314\336$\210\310\366!\210\3676\370@\336A\371B\372 \210\310\373!\210\314;\374\375!\207" [doc-view-saved-settings doc-view-doc-type require-final-newline doc-view-cache-directory jka-compr-really-do-compress buffer-file-name doc-view-fallback-mode major-mode-suspend make-local-variable doc-view-set-doc-type doc-view-set-up-single-converter ps nil doc-view-make-safe-dir doc-view--buffer-file-name convert-standard-filename expand-file-name file-name-nondirectory file-name-sans-extension file-readable-p buffer-name write-region advice--add-function :around #[0 "\300\301!\207" [advice--buffer-local revert-buffer-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local revert-buffer-function] 4 "\n\n(fn GV--VAL)"] doc-view--revert-buffer add-hook change-major-mode-hook #[0 "\300 \210\301ed\302\303$\207" [doc-view-kill-proc remove-overlays doc-view t] 5] t clone-indirect-buffer-hook doc-view-clone-buffer-hook kill-buffer-hook doc-view-kill-proc desktop-save-buffer doc-view-desktop-save-buffer remove-overlays doc-view image-mode-new-window-functions doc-view-new-window-function image-mode-setup-winprops mode-line-position (" P" (:eval (number-to-string (doc-view-current-page))) "/" (:eval (number-to-string (doc-view-last-page-number)))) auto-hscroll-mode boundp mwheel-scroll-up-function doc-view-scroll-up-or-next-page mwheel-scroll-down-function doc-view-scroll-down-or-previous-page cursor-type use-local-map after-revert-hook doc-view-reconvert-doc bookmark-make-record-function doc-view-bookmark-make-record "DocView" doc-view-mode doc-view-initiate-display view-read-only run-mode-hooks doc-view-mode-hook file-name-handler-alist doc-view-mode-map mode-name buffer-read-only major-mode] 6 (#$ . 56239) nil])
#@51 Fallback to the previous or next best major mode.
(defalias 'doc-view-fallback-mode #[0 "\301\302!\205\n \303\304\305\"\306ed\307\310$\210\311\312!\210\211\205 \313\300!\210\211\211\207" [doc-view-saved-settings derived-mode-p doc-view-mode mapcar #[257 "\211JB\207" [] 3 "\n\n(fn VAR)"] (doc-view-resolution image-mode-winprops-alist) remove-overlays doc-view t major-mode-restore (doc-view-mode-maybe doc-view-mode) make-local-variable] 6 (#$ . 58928)])
#@127 Switch to `doc-view-mode' if possible.
If the required external tools are not available, then fallback
to the next best mode.
(defalias 'doc-view-mode-maybe #[0 "\3011\n \302 0\202
\210\303 \210\304!\203 \305 \207\303 \207" [doc-view-doc-type (error) doc-view-set-doc-type doc-view-fallback-mode doc-view-mode-p doc-view-mode] 2 (#$ . 59394)])
#@107 Non-nil if Doc-View minor mode is enabled.
Use the command `doc-view-minor-mode' to change this variable.
(defvar doc-view-minor-mode nil (#$ . 59748))
(make-variable-buffer-local 'doc-view-minor-mode)
#@397 Toggle displaying buffer via Doc View (Doc View minor mode).
If called interactively, enable Doc-View minor mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
See the command `doc-view-mode' for more information on this mode.
(fn &optional ARG)
(defalias 'doc-view-minor-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\203% \305\306\307\310\311$\210\312\313\314\315!\"\210\316\317\203/ \320\2020 \321\"\210\322\323!\203T \301 \203D \211\301 \232\203T \324\312\325\203O \326\202P \327#\266\210\330 \210\207" [doc-view-minor-mode current-message toggle prefix-numeric-value 0 add-hook change-major-mode-hook #[0 "\300\301!\207" [doc-view-minor-mode -1] 2] nil t message "%s" substitute-command-keys "Type \\[doc-view-toggle-display] to toggle between editing or viewing the document." run-hooks doc-view-minor-mode-hook doc-view-minor-mode-on-hook doc-view-minor-mode-off-hook called-interactively-p any " in current buffer" "Doc-View minor mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 59957) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar doc-view-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [doc-view-minor-mode-map doc-view-minor-mode-hook variable-documentation put "Hook run after entering or leaving `doc-view-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode doc-view-minor-mode " DocView" boundp nil] 6)
#@54 Delete the whole cache (`doc-view-cache-directory').
(defalias 'doc-view-clear-cache #[0 "\301\302\"\207" [doc-view-cache-directory dired-delete-file always] 3 (#$ . 61648) nil])
#@45 Open `dired' in `doc-view-cache-directory'.
(defalias 'doc-view-dired-cache #[0 "\301!\207" [doc-view-cache-directory dired] 2 (#$ . 61834) nil])
(defvar doc-view-presentation-mode-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\211\207" [make-sparse-keymap define-key "" doc-view-presentation-exit "q"] 5))
(defvar doc-view-presentation--src-data nil nil)
(make-variable-buffer-local 'doc-view-presentation--src-data)
#@37 Leave Doc-View's presentation mode.
(defalias 'doc-view-presentation-exit #[0 "\300\301!\207" [doc-view-presentation-mode -1] 2 (#$ . 62271) nil])
#@121 Non-nil if Doc-View-Presentation mode is enabled.
Use the command `doc-view-presentation-mode' to change this variable.
(defvar doc-view-presentation-mode nil (#$ . 62425))
(make-variable-buffer-local 'doc-view-presentation-mode)
#@319 Minor mode used while in presentation mode.
If called interactively, enable Doc-View-Presentation mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'doc-view-presentation-mode #[256 "\303 \304=\203
?\202 \305!\306V\211\203# \307\301!\210\310\311 \210\202Z \312\301!\210\313\314\310\"\315 \316\n\"\210\310\317!r\320\306\321\322\323!\324\"\325$\216\326@\327\"\210\330 \203W \331 \203W \332 \210*\266\333\334\203d \335\202e \336\"\210\337\340!\203\211 \303 \203y \211\303 \232\203\211 \341\342\343\203\204 \344\202\205 \345#\266\210\346 \210\207" [doc-view-presentation-mode mode-line-format doc-view-presentation--src-data current-message toggle prefix-numeric-value 0 make-local-variable nil doc-view-fit-page-to-window kill-local-variable image-mode-window-get page selected-window doc-view-presentation--propagate-pn internal--before-with-selected-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord one-window-p window-dedicated-p delete-frame run-hooks doc-view-presentation-mode-hook doc-view-presentation-mode-on-hook doc-view-presentation-mode-off-hook called-interactively-p any " in current buffer" message "Doc-View-Presentation mode %sabled%s" "en" "dis" force-mode-line-update] 12 (#$ . 62662) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar doc-view-presentation-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\307\211%\207" [doc-view-presentation-mode-map doc-view-presentation-mode-hook variable-documentation put "Hook run after entering or leaving `doc-view-presentation-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode doc-view-presentation-mode nil] 6)
#@20
(fn SRC-DATA PN)
(defalias 'doc-view-presentation--propagate-pn #[514 "\205' @\300!\203 p\301!=\203 \302!\210\303\304\305\"A=\205% \306!\262\207" [window-live-p window-buffer select-window image-mode-window-get page nil doc-view-goto-page] 6 (#$ . 64656)])
#@36 Put Doc-View in presentation mode.
(defalias 'doc-view-presentation #[0 "\301 \302\303\304\"B\305 \306\211\307 \310 \211\203C \211@\311 \312\313\">\203< \312\314\"\211\203; \211@\262\211A@\262\3158\262\3168\262\210A\266\202\202 \210\317\320\321\322\323\324 \"B\325\323\326 \"B\327\330\nB\331\nB\332BBBBBBB!\333\334!!\210\335\301 \336\"\210\337\340!\262\207" [doc-view-presentation--src-data selected-window image-mode-window-get page nil display-monitor-attributes-list 0 display-pixel-height display-pixel-width selected-frame alist-get frames geometry 2 3 make-frame (minibuffer) (fullscreen . fullboth) height ceiling frame-char-height width frame-char-width (name . "Doc-View-Presentation") top left ((user-position . t) (vertical-scroll-bars) (left-fringe . 0) (right-fringe . 0) (menu-bar-lines . 0) (tool-bar-lines . 0)) select-window frame-root-window set-window-dedicated-p t doc-view-presentation-mode 1] 15 (#$ . 64931) nil])
(defalias 'doc-view-bookmark-make-record #[0 "\300 \301\302\301\303\"B\304B\244\207" [bookmark-make-record-default page image-mode-window-get nil ((handler . doc-view-bookmark-jump))] 5])
#@12
(fn BMK)
(defalias 'doc-view-bookmark-jump #[257 "\300\301\"\302\303!\211\304\305\306\307\310\"\311\"\312$M\210\313\314\"\210\315!\207" [bookmark-prop-get page make-symbol "doc-view-bookmark-after-jump-hook" make-byte-code 0 "\303\304\301\"\210\n\305=\204 \306 \210\307\310p\311\"\206 \312 !r\313\311\314\315\316!\317\"\320$\216\321@\322\"\210\323\300!*\207" vconcat vector [major-mode remove-hook bookmark-after-jump-hook doc-view-mode doc-view-toggle-display internal--before-with-selected-window get-buffer-window 0 selected-window make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord doc-view-goto-page] 7 add-hook bookmark-after-jump-hook bookmark-default-handler] 11 (#$ . 66084)])
(provide 'doc-view)
Zerion Mini Shell 1.0