ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/doc-view.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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\300\305!\210\306\307\310\311\312\313\314\315\316\317\316\320\316\321\322\323&\210\324\325\326\327\330DD\331\332\333\316\307&\210\324\334\326\327\335DD\336\332\333\314\337&\210\324\340\326\327\341DD\342\332\343\314\337&\210\324\344\326\327\345DD\346\332\347\316\307&\210\324\350\326\327\351DD\352\332\353\316\307&\210\324\354\326\327\355DD\356\314\337\332\357&\210\324\360\326\327\361DD\362\314\363\332\353\316\307& \210\324\364\326\327\365DD\366\332\333\316\307&\210\324\367\326\327\370DD\371\332\333\316\307&\210\372\373\374\310#\210\375\211\203\330 \211@\373N\203\321 \374N\204\321 \376\374\373N#\210A\266\202\202\267 \210\377\373\374\337#\210\324\374\326\327\201@ DD\201A \314\337\332\333\316\307& \210\324\201B \326\327\201C DD\201D \332\201E \314\337&\210\324\201F \326\327\201G DD\201H \332\333\316\307&\210\324\201I \326\327\201J DD\201K \332\333\316\307&\210\324\201L \326\327\201M DD\201N \332\201O \316\307&\207" [require cl-lib dired image-mode jka-compr subr-x 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 "\300\207" [#1="gs"] 1 #1#] "Program to convert PS and PDF files to PNG." :type file doc-view-pdfdraw-program #[0 "\300\301!\203 \301\207\302\207" [executable-find "pdfdraw" "mudraw"] 2] "Name of MuPDF's program to convert PDF files to PNG." "24.4" 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" "-sDEVICE=png16m" "-dTextAlphaBits=4" "-dBATCH" "-dGraphicsAlphaBits=4" "-dQUIET")] 1] "A list of options to give to ghostscript." (repeat 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*" (#$ . 5128))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311\316\317& \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 :group doc-view 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"] 10)
#@23 Only used internally.
(defvar doc-view--current-converter-processes nil (#$ . 6144))
(make-variable-buffer-local 'doc-view--current-converter-processes)
(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 "\n\n(fn WINPROPS)"])
#@23 Only used internally.
(defvar doc-view--current-files nil (#$ . 7245))
(make-variable-buffer-local 'doc-view--current-files)
#@23 Only used internally.
(defvar doc-view--current-timer nil (#$ . 7376))
(make-variable-buffer-local 'doc-view--current-timer)
#@23 Only used internally.
(defvar doc-view--current-cache-dir nil (#$ . 7507))
(make-variable-buffer-local 'doc-view--current-cache-dir)
#@23 Only used internally.
(defvar doc-view--current-search-matches nil (#$ . 7646))
(make-variable-buffer-local 'doc-view--current-search-matches)
#@23 Only used internally.
(defvar doc-view--pending-cache-flush nil (#$ . 7795))
#@23 Only used internally.
(defvar doc-view--previous-major-mode nil (#$ . 7878))
#@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 (#$ . 7962))
#@75 The type of document in the current buffer.
Can be `dvi', `pdf', or `ps'.
(defvar doc-view-doc-type nil (#$ . 8292))
#@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 (#$ . 8416))
#@66 The type of image in the current buffer.
Can be `png' or `tiff'.
(defvar doc-view--image-type nil (#$ . 8656))
(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 (#$ . 8824))
(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\373#\210\303\375\376#\210\303\377\201@ #\210\303\201A \201B #\210\303\201C \201D #\210\303\201E \201F #\210\303\201G \201F #\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 "K" doc-view-kill-proc "ss" doc-view-set-slice "sm" doc-view-set-slice-using-mouse "sb" doc-view-set-slice-from-bounding-box "sr" doc-view-reset-slice "" doc-view-search [find] "" doc-view-search-backward "" doc-view-show-tooltip "" doc-view-toggle-display "" doc-view-open-text "g" doc-view-revert-buffer "r"] 5) (#$ . 9010))
#@103 Like `revert-buffer', but preserves the buffer's current modes.
(fn &optional IGNORE-AUTO NOCONFIRM)
(defalias 'doc-view-revert-buffer #[512 "\302\303\304\305\306\307\"\310\"\311$\262\312=\203< \313\314!\203< \315\313\314!\302\211\211 %\304U\2030 \211 \202> \316\317!\205> \320\321!\202> \211 \207" [doc-view-doc-type doc-view--buffer-file-name nil make-byte-code 0 "\303\304\300\301\305#)\207" vconcat vector [revert-buffer-function nil revert-buffer preserve-modes] 4 pdf executable-find "pdfinfo" call-process called-interactively-p interactive message "Can't revert right now because the file is corrupted."] 10 (#$ . 10908) (byte-code "?C\207" [current-prefix-arg] 1)])
#@25 Menu for Doc View mode.
(defvar doc-view-menu nil (#$ . 11598))
(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-minor-view-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) (#$ . 12366))
(defalias 'doc-view-current-page '(macro . #[256 "\300\301E\207" [image-mode-window-get 'page] 4 "\n\n(fn &optional WIN)"]))
(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 (#$ . 13161) "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 (#$ . 14684) "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 (#$ . 14887) "p"])
#@22 View the first page.
(defalias 'doc-view-first-page #[0 "\300\301!\207" [doc-view-goto-page 1] 2 (#$ . 15094) 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 (#$ . 15216) 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\2040 \301 \302\303\304\"\305 \306!U\205/ \307 \210\211\302\303\304\"U\204* \310 \210\311\312!\210\313\314 \"\207\306!\207" [doc-view-continuous window-hscroll image-mode-window-get page nil window-vscroll image-scroll-up doc-view-next-page image-bob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 15362) "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\2040 \301 \302\303\304\"\305 \306!U\205/ \307 \210\211\302\303\304\"U\204* \310 \210\311\312!\210\313\314 \"\207\306!\207" [doc-view-continuous window-hscroll image-mode-window-get page nil window-vscroll image-scroll-down doc-view-previous-page image-eob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 16002) "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 \306!U\205+ \307 \210\211\302\303\304\"U\204& \310 \210\311\312!\210\313\314 \"\207\306!\207" [doc-view-continuous window-hscroll image-mode-window-get page nil window-vscroll image-next-line doc-view-next-page image-bob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 16667) "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 \306!U\205+ \307 \210\211\302\303\304\"U\204& \310 \210\311\312!\210\313\314 \"\207\306!\207" [doc-view-continuous window-hscroll image-mode-window-get page nil window-vscroll image-previous-line doc-view-previous-page image-eob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 17247) "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 (#$ . 17851) 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)
(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 "\n\n(fn DIR)"])
#@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 (#$ . 18864)])
#@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 \205\\ \305\306!\204 \305\307!\205\\ \211\310=\203/ \311\312!\205\\ \203' \313!\206\\ \205\\ \313 !\207\211\314>\203= \n\205\\ \313\n!\207\211\315=\203Q \205\\ \313 !\205\\ \311\312!\207\211\316=\203[ \313\317!\207\320\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 dvi doc-view-mode-p pdf executable-find (postscript ps eps pdf) odf djvu "ddjvu" nil] 3 (#$ . 19625)])
(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 (#$ . 20377) (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 (#$ . 20890) (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 (#$ . 21054) 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>\203 \305!\202* \211\306=\203 \307!\202* \211\310=\203) \311 \202* \302\262)\207" [last-command-event echo-keystrokes nil event-basic-type (61 43) doc-view-enlarge 45 doc-view-shrink 48 doc-view-scale-reset] 5 (#$ . 21486) (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 (#$ . 22204) 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 (#$ . 22793) 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 (#$ . 23389) 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 (#$ . 24175) 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 (#$ . 24563)])
(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 "\n\n(fn NAME PROGRAM ARGS CALLBACK)"])
#@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 (#$ . 25537)])
(defalias 'doc-view-pdf->png-converter-ghostscript #[1028 "\303\304\305 \306\307\310\n!\"C\205 \306\311 \"C\205\" \306\312\n\"C\313 P\fD%$\207" [doc-view-ghostscript-program doc-view-ghostscript-options doc-view-resolution doc-view-start-process "pdf/ps->png" append format "-r%d" round "-dFirstPage=%d" "-dLastPage=%d" "-sOutputFile="] 14 "\n\n(fn PDF PNG PAGE CALLBACK)"])
(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 (#$ . 26333)])
(defalias 'doc-view-pdf->png-converter-mupdf #[1028 "\302\303\304P\305\306\307 !\"\205 \305\310 \"CBBB$\207" [doc-view-pdfdraw-program doc-view-resolution doc-view-start-process "pdf->png" "-o" format "-r%d" round "%d"] 13 "\n\n(fn PDF PNG PAGE CALLBACK)"])
#@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 (#$ . 27080)])
#@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 (#$ . 27520)])
#@56 Convert PDF-PS to PNG asynchronously.
(fn PDF-PS PNG)
(defalias 'doc-view-pdf/ps->png #[514 "\305=\203\n \202 \306=\203 \307\202 \310\311\n\312\313\314\315\316!\317\"\320$\262$\210 \2054 \321\322 \323p$\211\207" [doc-view-doc-type doc-view-pdf->png-converter-function doc-view-resolution doc-view-conversion-refresh-interval doc-view--current-timer pdf djvu 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 (#$ . 28249)])
#@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 (#$ . 29046)])
#@91 Convert PDF to TXT asynchronously and call CALLBACK when finished.
(fn PDF TXT CALLBACK)
(defalias 'doc-view-pdf->txt #[771 "\301!\204\n \302\303!\210\304\305\306E$\207" [doc-view-pdftotext-program executable-find error "You need the `pdftotext' program to convert a PDF to text" doc-view-start-process "pdf->txt" "-raw"] 9 (#$ . 29979)])
#@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 (#$ . 30333)])
#@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=\203 \306 #\207\307=\203/ \310 \311 \312\313\314\315\316\n\n\n#\317\"\320$#\207\321=\204; \322=\203B \306\310 #\207\323\324!\207" [doc-view-doc-type doc-view--buffer-file-name make-directory doc-view--current-cache-dir t pdf doc-view-pdf->txt ps 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 (#$ . 30618)])
#@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 (#$ . 31221)])
(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=\203/ \314 \315 \316\317\320\321\322 \"\323\"\324$#\262\202n \n\325=\203X \314 \307\326 !\327P\f\"
\316\317\330\321\322 #\331\"\324$\"\266\203\202n \n\332>\203j \333 \334 #\262\202n \335 \"\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 dvi 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 odf file-name-base ".pdf" "\303\301\300\"\210\304\300\302\"\207" [rename-file doc-view-pdf/ps->png] (djvu pdf) doc-view-active-pages doc-view-document->bitmap doc-view-pdf/ps->png] 14 (#$ . 31771)])
#@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 (#$ . 32804) (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 (#$ . 33683) 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 (#$ . 34316)])
#@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)) (#$ . 35127))
#@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 (#$ . 35424)])
(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 "\n\n(fn PS IW IH BB)"])
#@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 (#$ . 36050) "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 (#$ . 36820) 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\376 \205J \314!\205J \203) \315\316!\2044 \317\320\n\306%\202J \321\235\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\372 \307\354\"\307\355\"\203\360 \351\"\210\211\205\370 \353\"\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] 20 (#$ . 37098)])
#@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 (#$ . 38501)])
#@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 (#$ . 38700)])
(defalias 'doc-view-buffer-message #[0 "\300\301\302!\303\"?\205 \304\301\302!\303\305\306\307\310#\311\312Q#\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])
#@45 Display the current doc's contents as text.
(defalias 'doc-view-open-text #[0 "\203 \304\305!\207\306\307\310 \"\311!\203A \312\211 \313 \210\314\312!\210\315!\210\316 \210\317\301!\210\211\320\321!\210\322 \210\323\324\325\321\312$*\266\203\202E \326\327\"\207" [doc-view--current-converter-processes doc-view--buffer-file-name buffer-undo-list inhibit-read-only message "DocView: please wait till conversion finished." expand-file-name "doc.txt" doc-view--current-cache-dir file-readable-p t erase-buffer set-buffer-multibyte insert-file-contents text-mode make-local-variable set-buffer-modified-p nil doc-view-minor-mode add-hook write-file-functions #[0 "\302=\205\n \303\304 \"\207" [major-mode buffer-file-name text-mode error "Cannot save text contents of document %s"] 3] doc-view-doc->txt doc-view-open-text] 9 (#$ . 40494) nil])
#@51 Doc-view settings saved while in some other mode.
(defvar doc-view-saved-settings nil (#$ . 41351))
(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=\203 \305 \210\306\307 \210\310\311!\207\312=\2030 \313\306\314 \306\211\211\313%\210\307 \210\310\311!\210\315\306!)\207\316 \203> \317\320!\203> \321 \210\304 \207" [major-mode buffer-read-only buffer-undo-list doc-view--buffer-file-name doc-view-mode doc-view-kill-proc nil doc-view-fallback-mode doc-view-minor-mode 1 text-mode 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] 6 (#$ . 41583) 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 (#$ . 42188)])
#@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 (#$ . 42989)])
#@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 (#$ . 43196) "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 (#$ . 43416) "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 (#$ . 44334) "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 (#$ . 44748) "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 (#$ . 45223)])
(defalias 'doc-view-initiate-display #[0 "\304!\203f \305 \210\306\307\310\307\311\"\206 \312\311#\210\313 \203\\ \314\315!\210\316\317\320 \"\321\322!r\211q\210\323\324\325\326\327!\330\"\331$\216\332!\205D \333!\210\334p!*\262\211\247\203R \335\301!\210\211\266\336p\337\"\210\202_ \340 \210\314\341\342\343!\"\207\314\341\344\345\n!\346Q\"\210\347 !\203 \350\351!\203 \352 \207\353 \207" [doc-view-doc-type doc-view-resolution 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." "No PNG support is available, or some conversion utility for " file-name-extension " files is missing." 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])
(defalias 'doc-view-intersection #[514 "\300\211\203 \211@\211>\203 \211B\262A\266\202\202 \210\211\207" [nil] 7 "\n\n(fn L1 L2)"])
#@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 (#$ . 47176)])
#@68 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 (#$ . 48115)])
(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 "\n\n(fn DESKTOP-DIRNAME)"])
(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 "\n\n(fn FILE NAME MISC)"])
(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\310!\203 \202 \311=?\205 \312 \210\313\300!\210\n\211\2039 \211@\313@!AL\210A\266\202\202$ \210 \204A \314 \210\315 \210\316\f!\210\313\317!\210
\203\\ \320\321\322;!!\f\"\202\202 \323 <;\205h \324;!)\204\200 \320;\203y \321;!\202{ \325 \f\"\202\202 ;\211;\230\204\222 \326\323\211#\210\313\327!\210\330\331\332\333\323\334$\210\331\335\336\323\334$\210\331\337\340\323\334$\210\313\341!\210\342!\343ed\344\334$\210\331\345\346\323\334$\210\347 \210\313\350!\210\351(\313\352!\210\323*\353\354!\203\341 \313\354!\210\355,\353\356!\203\356 \313\356!\210\357.\313\360!\210\3230\361=!\210\331\362\363\323\334$\210\313\364!\210\3654\366>\334?\310\367 \210\313\370!\210\3238\371\372!\207" [doc-view--previous-major-mode major-mode doc-view-saved-settings doc-view-doc-type doc-view-cache-directory jka-compr-really-do-compress doc-view-fallback-mode derived-mode-p doc-view-mode fundamental-mode kill-all-local-variables make-local-variable doc-view-set-doc-type doc-view-set-up-single-converter doc-view-make-safe-dir doc-view--buffer-file-name expand-file-name file-name-nondirectory file-name-sans-extension nil file-readable-p buffer-name write-region revert-buffer-function 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-initiate-display view-read-only run-mode-hooks doc-view-mode-hook buffer-file-name file-name-handler-alist doc-view-mode-map mode-name buffer-read-only] 6 (#$ . 49393) nil])
#@51 Fallback to the previous or next best major mode.
(defalias 'doc-view-fallback-mode #[0 "\303\304!\205\n \305\306\307\"\310ed\311\312$\210\203 \210\202) \313\314\313\304\315 !\"\"\316 \210)\211\2054 \317\302!\210\211\211\207" [doc-view--previous-major-mode auto-mode-alist 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 rassq-delete-all doc-view-mode-maybe copy-alist normal-mode make-local-variable] 7 (#$ . 51949)])
#@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 (#$ . 52509)])
#@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 (#$ . 52863))
(make-variable-buffer-local 'doc-view-minor-mode)
#@315 Toggle displaying buffer via Doc View (Doc View minor mode).
With a prefix argument ARG, enable Doc View minor mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
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 (#$ . 53072) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@184 Hook run after entering or leaving `doc-view-minor-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar doc-view-minor-mode-hook nil (#$ . 54227))
(byte-code "\301\302\303\304\211%\207" [doc-view-minor-mode-map add-minor-mode doc-view-minor-mode " DocView" 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 (#$ . 54586) nil])
#@45 Open `dired' in `doc-view-cache-directory'.
(defalias 'doc-view-dired-cache #[0 "\301!\207" [doc-view-cache-directory dired] 2 (#$ . 54772) 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])
(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 "\n\n(fn BMK)"])
(provide 'doc-view)
Kontol Shell Bypass