| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/doc-view.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:15 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/doc-view.el
;;; in Emacs version 24.3.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\304\305\306\307\310\311\312\313\314\315\314\316\314\317\320\321&\210\322\323\324\325\326DD\327\330\331\314\305&\210\322\332\324\325\333DD\334\330\335\314\305&\210\322\336\324\325\337DD\340\330\341\314\305&\210\322\342\324\325\343DD\344\312\345\330\341\314\305& \210\322\346\324\325\347DD\350\330\331\314\305&\210\322\351\324\325\352DD\353\330\331\314\305&\210\322\354\324\325\355DD\356\312\345\330\331\314\305& \210\322\357\324\325\360DD\361\330\331\314\305&\210\322\362\324\325\363DD\364\330\331\314\305&\210\322\365\324\325\366DD\367\330\370\314\305&\207" [require dired image-mode jka-compr custom-declare-group doc-view nil "In-buffer viewer for PDF, PostScript and DVI 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" ["gs"] 1 "gs\n\n(fn)"] "Program to convert PS and PDF files to PNG." :type file doc-view-ghostscript-options #[0 "\300\207" [("-dSAFER" "-dNOPAUSE" "-sDEVICE=png16m" "-dTextAlphaBits=4" "-dBATCH" "-dGraphicsAlphaBits=4" "-dQUIET")] 1 "\n\n(fn)"] "A list of options to give to ghostscript." (repeat string) doc-view-resolution #[0 "\300\207" [100] 1 "\n\n(fn)"] "Dots per inch resolution used to render the documents.\nHigher values result in larger images." number doc-view-image-width #[0 "\300\207" [850] 1 "\n\n(fn)"] "Default image width.\nHas only an effect if imagemagick support is compiled into emacs." "24.1" doc-view-dvipdfm-program #[0 "\300\207" ["dvipdfm"] 1 "dvipdfm\n\n(fn)"] "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" ["dvipdf"] 1 "dvipdf\n\n(fn)"] "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." doc-view-unoconv-program #[0 "\300\207" ["unoconv"] 1 "unoconv\n\n(fn)"] "Program to convert any file type readable by OpenOffice.org to PDF.\n\nNeeded for viewing OpenOffice.org (and MS Office) files." doc-view-ps2pdf-program #[0 "\300\207" ["ps2pdf"] 1 "ps2pdf\n\n(fn)"] "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" ["pdftotext"] 1 "pdftotext\n\n(fn)"] "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 "\n\n(fn)"] "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*" (#$ . 3427))
(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 "\n\n(fn)"] "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 "\n\n(fn)"] "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)
(defalias 'doc-view-new-window-function #[257 "\211@\300=\204 \301@!p=\204 \302\303\304C\"\210\305\306\"\211\203, \307!\262\310ed#\210\202: \311ed\312\300$\262\313\314\300#\210\313\315@#\210\316@!\204Y @\300=\204U \302\303\317C\"\210\320!\210\321\306#\207" [t window-buffer signal 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] 7 "\n\n(fn WINPROPS)"])
#@23 Only used internally.
(defvar doc-view-current-files nil (#$ . 5055))
(make-variable-buffer-local 'doc-view-current-files)
#@23 Only used internally.
(defvar doc-view-current-converter-processes nil (#$ . 5184))
(make-variable-buffer-local 'doc-view-current-converter-processes)
#@23 Only used internally.
(defvar doc-view-current-timer nil (#$ . 5341))
(make-variable-buffer-local 'doc-view-current-timer)
#@23 Only used internally.
(defvar doc-view-current-cache-dir nil (#$ . 5470))
(make-variable-buffer-local 'doc-view-current-cache-dir)
#@23 Only used internally.
(defvar doc-view-current-search-matches nil (#$ . 5607))
(make-variable-buffer-local 'doc-view-current-search-matches)
#@23 Only used internally.
(defvar doc-view-pending-cache-flush nil (#$ . 5754))
#@23 Only used internally.
(defvar doc-view-previous-major-mode nil (#$ . 5836))
#@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 (#$ . 5919))
#@75 The type of document in the current buffer.
Can be `dvi', `pdf', or `ps'.
(defvar doc-view-doc-type nil (#$ . 6248))
#@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\323#\210\303\324\323#\210\303\325\326#\210\303\327\326#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\337#\210\303\340\341#\210\303\342\343#\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\367#\210\303\371\372#\210\303\373\374#\210\303\375\376#\210\303\377\201@ #\210\303\201A \201B #\210\303\201C \201B #\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 "" 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 "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-and-buffer "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) (#$ . 6371))
#@103 Like `revert-buffer', but preserves the buffer's current modes.
(fn &optional IGNORE-AUTO NOCONFIRM)
(defalias 'doc-view-revert-buffer #[512 "\300\301#\207" [revert-buffer preserve-modes] 6 (#$ . 8153) (byte-code "?C\207" [current-prefix-arg] 1)])
#@25 Menu for Doc View mode.
(defvar doc-view-menu nil (#$ . 8411))
(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) (#$ . 9178))
(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 "\n\n(fn)"]))
(defalias 'doc-view-current-overlay '(macro . #[0 "\300\207" [(image-mode-window-get 'overlay)] 1 "\n\n(fn)"]))
(defalias 'doc-view-current-image '(macro . #[0 "\300\207" [(image-mode-window-get 'image)] 1 "\n\n(fn)"]))
(defalias 'doc-view-current-slice '(macro . #[0 "\300\207" [(image-mode-window-get 'slice)] 1 "\n\n(fn)"]))
(defalias 'doc-view-last-page-number #[0 "G\207" [doc-view-current-files] 1 "\n\n(fn)"])
#@41 View the page given by PAGE.
(fn PAGE)
(defalias 'doc-view-goto-page #[257 "\211C\303 \304 @\305W\203 \305\240\210\202# @V\203# \204# \240\210\306\307@\310#\210\306\311\312\313\314@#\315\316#\203@ \317\202A \320 \205r @ \236\205r \312\321\315\316#\322@ \236A\211\203m \211@\323\324R\262A\266\202\202Y \210\211\262PQ\310#\210\325\313\326@\"\327 \"\330\331\332#\210\333\334 \"\210\335!\204\262 \203\262 \336\n@\334 \337\340\341\342\343
#\344\"\345\346%\262$\210\210\347\350\351!\352\350\311!#\266\202\207" [doc-view-current-converter-processes doc-view-current-search-matches doc-view-buffer-file-name doc-view-last-page-number window-hscroll 1 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 "page-%d.png" doc-view-current-cache-dir doc-view-insert-image :pointer arrow set-window-hscroll selected-window file-exists-p doc-view-pdf->png-1 make-byte-code 0 "p\303\302!=\205: \304\305\302\"\300@=\205: \306\301!\205: \307\302!r\310\311\312\313\314\315!\316\"\317\320%DC\216\321@\322\"\210\323\300@!*\262\207" vconcat vector [window-buffer image-mode-window-get page file-readable-p internal--before-with-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" select-window norecord doc-view-goto-page] 8 "\n\n(fn)" overlay-put image-mode-window-get overlay help-echo] 18 (#$ . 10026) "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 (#$ . 11557) "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 (#$ . 11760) "p"])
#@28 View the first page.
(fn)
(defalias 'doc-view-first-page #[0 "\300\301!\207" [doc-view-goto-page 1] 2 (#$ . 11967) nil])
#@27 View the last page.
(fn)
(defalias 'doc-view-last-page #[0 "\300\301 !\207" [doc-view-goto-page doc-view-last-page-number] 2 (#$ . 12095) 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 (#$ . 12247) "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 (#$ . 12887) "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\312!\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 (#$ . 13552) "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 (#$ . 14135) "p"])
#@47 Kill the current converter process(es).
(fn)
(defalias 'doc-view-kill-proc #[0 ":\203 \303\304\305D\306\304\307\303EDC\217\210\202 \203 \310 !\210\311\311\211\207" [doc-view-current-converter-processes doc-view-current-timer mode-line-process #1=#:err funcall #[0 "\301\211A@!\207" [doc-view-current-converter-processes kill-process] 3 "\n\n(fn)"] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] cancel-timer nil] 6 (#$ . 14739) nil])
#@54 Kill the current converter process and buffer.
(fn)
(defalias 'doc-view-kill-proc-and-buffer #[0 "\301 \210\302=\205\f \303p!\207" [major-mode doc-view-kill-proc doc-view-mode kill-buffer] 2 (#$ . 15193) nil])
(defalias 'doc-view-make-safe-dir #[257 "\300\301\302\303\304\305\306!\307\"\310\311%D\312\301\302\313\314\305\306 !\315\"\316\317%\300EDC\217\207" [#1=#:err funcall make-byte-code 0 "\301 \302\303\304\305\306\307!\310\"\311\312%DC\216\313\314!\210\315\300!)\207" vconcat vector [default-file-modes funcall make-byte-code 0 "\301\300!\207" vconcat vector [set-default-file-modes] 2 "\n\n(fn)" set-default-file-modes 448 make-directory] 8 "\n\n(fn)" file-already-exists 257 "\301\300!\203 \302\303\300\"\210\304\305\306\307\310\311\312\300!\313\"\314\315%D\316\305\306\317\320\311\312\300!\321\"\322\323%\304EDC\217\207" [file-symlink-p error "Danger: %s points to a symbolic link" #2=#:err funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-file-modes 448] 3 "\n\n(fn)" file-error 257 "\301\302\303\300\304\305A\306##!\207" [error format "Unable to use temporary directory %s: %s" mapconcat identity " "] 9 "\n\n(fn ERROR)"] 11 "\n\n(fn IGNORED)"] 11 "\n\n(fn DIR)"])
#@135 Return the directory where the png files of the current doc should be saved.
It's a subdirectory of `doc-view-cache-directory'.
(fn)
(defalias 'doc-view-current-cache-dir #[0 "\203 \207\303 !\210\304\305\306\n!\307\n\310\311!r\211q\210\312\313\314\315\316\317!\320\"\321\322%DC\216\323\324!\210\325!\210\326p!*\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 file-name-nondirectory "-" generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" set-buffer-multibyte nil insert-file-contents-literally md5] 13 (#$ . 16403)])
#@81 Return LIST with all items removed that satisfy PREDICATE.
(fn PREDICATE LIST)
(defalias 'doc-view-remove-if #[514 "\300\211\203 \211@!\204 \211B\262A\266\202\202 \210\211\237\207" [nil] 7 (#$ . 17140)])
#@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 \205d \305\306!\204 \305\307!\205d \211\310=\203/ \311\312!\205d \203' \313!\206d \205d \313 !\207\211\314=\204G \211\315=\204G \211\316=\204G \211\312=\203O \n\205d \313\n!\207\211\317=\203c \205d \313 !\205d \311\312!\207\320\207" [doc-view-dvipdf-program doc-view-dvipdfm-program doc-view-ghostscript-program doc-view-unoconv-program display-graphic-p image-type-available-p imagemagick png dvi doc-view-mode-p pdf executable-find postscript ps eps odf nil] 3 (#$ . 17361)])
(defvar doc-view-shrink-factor 1.125)
#@46 Enlarge the document by FACTOR.
(fn FACTOR)
(defalias 'doc-view-enlarge #[257 "\302\303\304!A\305\"\306=\203* \307_!\211\232?\205) \310\300!\210\211\311\302\303\304!A\312\"\313#\207\307 _!\211 \232?\205> \310\301!\210\211\314 \207" [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 (#$ . 18092) (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 (#$ . 18570) (list doc-view-shrink-factor)])
#@48 Fit the image width to the window width.
(fn)
(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 (#$ . 18734) nil])
#@50 Fit the image height to the window height.
(fn)
(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 (#$ . 19329) nil])
#@163 Fit the image to the window.
More specifically, this function enlarges image by:
min {(window-width / image-width), (window-height / image-height)} times.
(fn)
(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 (#$ . 19931) nil])
#@99 Reconvert the current document.
Should be invoked when the cached images aren't up-to-date.
(fn)
(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 (#$ . 20723) 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 (#$ . 21116)])
(defalias 'doc-view-start-process #[1028 "\304!\203\n \202
\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 file-readable-p 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 (#$ . 22082)])
#@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 #[514 "\301\302\303\304\305\306 \257$\207" [doc-view-unoconv-program doc-view-start-process "odf->pdf" "-f" "pdf" "-o" doc-view-current-cache-dir] 10 (#$ . 22400)])
#@56 Convert PDF-PS to PNG asynchronously.
(fn PDF-PS PNG)
(defalias 'doc-view-pdf/ps->png #[514 "\305\306\307 \310\311\312\n!\"\313PE\"\n\314\315\316\317\320!\321\"\322\323%\262$\210 \2050 \324\325 \326p$\211\207" [doc-view-ghostscript-program doc-view-ghostscript-options doc-view-resolution doc-view-conversion-refresh-interval doc-view-current-timer doc-view-start-process "pdf/ps->png" append format "-r%d" round "-sOutputFile=" 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 "\n\n(fn)" run-at-time "1 secs" doc-view-display] 13 (#$ . 22809)])
#@124 Convert a PAGE of a PDF file to PNG asynchronously.
Call CALLBACK with no arguments when done.
(fn PDF PNG PAGE CALLBACK)
(defalias 'doc-view-pdf->png-1 #[1028 "\303\304\305 \306\307\310\n!\"\306\311 \"\306\312\n\"\313 P\f\257\"$\207" [doc-view-ghostscript-program doc-view-ghostscript-options doc-view-resolution doc-view-start-process "pdf->png-1" append format "-r%d" round "-dFirstPage=%d" "-dLastPage=%d" "-sOutputFile="] 14 (#$ . 23604)])
#@109 Convert a PDF file to PNG asynchronously.
Start by converting PAGES, and then the rest.
(fn PDF PNG PAGES)
(defalias 'doc-view-pdf->png #[771 "\211\204 \300\"\207\211A\301\302@\"@\303\304\305\306\307\f\f #\310\"\311\312%$\207" [doc-view-pdf/ps->png doc-view-pdf->png-1 format make-byte-code 0 "\302\203\n \303\300\301\302#\207\304 \210\305p\306\307#\211\203K \211@\310!r\311\312\313\314\315\316!\317\"\320\321%DC\216\322@\323\"\210\324e\325\";\203B \326\327\330\306\"!\210*\210A\266\202\202 \210\331\300\301\"\207" vconcat vector [doc-view-pdf->png clear-image-cache get-buffer-window-list nil visible internal--before-with-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" select-window norecord get-char-property display doc-view-goto-page image-mode-window-get page doc-view-pdf/ps->png] 10 "\n\n(fn)"] 16 (#$ . 24064)])
#@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 (#$ . 24985)])
#@144 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.
(fn)
(defalias 'doc-view-current-cache-doc-pdf #[0 "\300\301\302 \"\207" [expand-file-name "doc.pdf" doc-view-current-cache-dir] 3 (#$ . 25339)])
#@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=\2030 \310 \311 \312\313\314\315\316\n\n\n#\317\"\320\321%#\207\322=\203= \306\310 #\207\323=\203J \306\310 #\207\324\325!\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 "\n\n(fn)" dvi odf error "DocView doesn't know what to do"] 14 (#$ . 25629)])
#@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 (#$ . 26261)])
(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 "\n\n(fn)"])
#@176 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'.
(fn)
(defalias 'doc-view-convert-current-doc #[0 "\304\305\306\303 \"\307\303 \304\"\210 \310=\203- \311 \312\n\313\314\315\316\317 \"\320\"\321\322%#\262\202m \323=\203W \311 \305\324\n!\325P \"\326\n\313\314\327\316\317 #\330\"\321\322%\"\266\203\202m \331=\203i \332 \333\n#\262\202m \334\n\"\207" [doc-view-pending-cache-flush doc-view-doc-type doc-view-buffer-file-name doc-view-current-cache-dir t expand-file-name "page-%d.png" 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 "\n\n(fn)" odf file-name-base ".pdf" doc-view-odf->pdf "\303\301\300\"\210\304\300\302\"\207" [rename-file doc-view-pdf/ps->png] pdf doc-view-active-pages doc-view-pdf->png doc-view-pdf/ps->png] 14 (#$ . 26822)])
#@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 (#$ . 27811) (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)])
#@225 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'.
(fn)
(defalias 'doc-view-set-slice-using-mouse #[0 "\301\211\211\211\211\211\204K \302\303!\211@\304=\203G \305!\3068)@\262\305!\3068)A\262\307!\3068)@Z\262\307!\3068)AZ\262\310\262\210\202 \311$\207" [position 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 (#$ . 28690) nil])
#@60 Get the BoundingBox information of the current page.
(fn)
(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\"\323\324%DC\216\325\326\"\205Q \327\330\331\332\"\331\333\"\331\323\"\331\334\"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 funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" string-match "%%BoundingBox: \\([[:digit:]]+\\) \\([[:digit:]]+\\) \\([[:digit:]]+\\) \\([[:digit:]]+\\)" mapcar string-to-number match-string 1 2 4] 12 (#$ . 29326)])
#@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)) (#$ . 30172))
#@65 Guess the paper size according to the aspect ratio.
(fn IW IH)
(defalias 'doc-view-guess-paper-size #[514 "\302C\211\303\240\210\211@\"\304\305\306\307\310\311!\312\"\313\314%\"\315\"\211A@)\266\202\207" [doc-view-paper-sizes x nil #[514 "\300\301_\245!\207" [round 100.0] 5 "\n\n(fn X Y)"] mapcar make-byte-code 257 "\300@A@\3018\"@D\207" vconcat vector [2] 5 "\n\n(fn L)" assoc] 12 (#$ . 30469)])
(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!\202W \304\305\306!\307\"\211@A\204! \310\"\206, \311\312\313\314\315\"\316\307$!\317$\211@A@\3208\3218\322\320Z\323 \320#Z\324\\Z\324\\$\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: " mapcar car nil doc-view-scale-bounding-box 2 3 doc-view-set-slice - 4] 17 (#$ . 31097) "P"])
#@95 Reset the current slice.
After calling this function whole pages will be visible again.
(fn)
(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 (#$ . 31888) 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 \303 \210\304\305\306!\205= \307!\205= \310\311!\204' \312\313\314\304%\202= \315\235\2045 \316\315 D\"\262\312\313\317\304%\305\320!\321\322\304#\210\323ed#\210\324\325\203c \203_ \320BD\202l \202l \n\203k \326\202l \327#\210\330\331\"\330\325\";\203\206 \332\333\"\210\334\333\"\202\241 \305\335\"\305\336\"\203\227 \332\"\210\211\205\237 \334\"\266\202\262\207" [doc-view-pending-cache-flush doc-view-image-width doc-view-current-converter-processes clear-image-cache nil image-mode-window-get overlay file-readable-p fboundp imagemagick-types apply create-image png :width append imagemagick slice image-mode-window-put image move-overlay overlay-put display "Cannot display this page (yet)!" "Cannot display this page!\nMaybe because of a conversion failure!" overlay-get window set-window-hscroll 0 set-window-vscroll hscroll vscroll] 11 (#$ . 32172)])
#@106 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 (#$ . 33203)])
#@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\301\302\303 \304\305\304$\306\"\307\310\304#\206 \304C\211\205\203 \211@\311\312\"\313\314\315\"\303 \"\204< \211\235\204z \211\235\203z \316!\203v \317!r\320\321\322\323\324\325!\326\"\327\330%DC\216\331@\332\"\210p=\204m \333\334\335p E\"\210\336!\210*\210\202z \336!\210\266A\266\202\202 \262\262)\207" [doc-view-current-files sort directory-files doc-view-current-cache-dir t "page-[0-9]+\\.png" doc-view-sort get-buffer-window-list nil image-mode-window-get page expand-file-name format "page-%d.png" windowp internal--before-with-selected-window funcall make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" select-window norecord signal cl-assertion-failed (eq (current-buffer) buffer) doc-view-goto-page] 15 (#$ . 33401)])
(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 "\n\n(fn)"])
(defalias 'doc-view-show-tooltip #[0 "\300\301\302!!\207" [tooltip-show image-mode-window-get info] 3 "\n\n(fn)" nil])
#@62 Open a buffer with the current doc's contents as text.
(fn)
(defalias 'doc-view-open-text #[0 "\203 \303\304!\207\305\306\307 \"\310!\203. \311\312 !P\313 !r\314!q\210\315!\210\211\211)\266\202\2022 \316\317\"\207" [doc-view-current-converter-processes buffer-file-name default-directory message "DocView: please wait till conversion finished." expand-file-name "doc.txt" doc-view-current-cache-dir file-readable-p "Text contents of " file-name-nondirectory file-name-directory find-file rename-buffer doc-view-doc->txt doc-view-open-text] 5 (#$ . 35178) nil])
#@51 Doc-view settings saved while in some other mode.
(defvar doc-view-saved-settings nil (#$ . 35753))
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local doc-view-saved-settings put permanent-local t] 4)
#@64 Toggle between editing a document as text or viewing it.
(fn)
(defalias 'doc-view-toggle-display #[0 "\303=\203 \304 \210\305\306ed\307\310$\210\311\302!\210\310\312 \210\313\314!\207\315 \203- \316\317!\203- \320 \210\303 \207" [major-mode buffer-read-only image-mode-winprops-alist doc-view-mode doc-view-kill-proc nil remove-overlays doc-view t make-local-variable doc-view-fallback-mode doc-view-minor-mode 1 buffer-modified-p y-or-n-p "The buffer has been modified. Save the changes? " save-buffer] 5 (#$ . 35985) 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\"\311\312%DC\216\313!\210\314\211\315\316\317\320Q\315\321#\203j \322\314!\2035 T\262\322\311!\203 U\204P \323 \324 {CBB\262\202d \325@\206X C\323 \324 {C\"AB\262\262\202 \211\237\266\203*\207" [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" insert-file-contents 1 nil re-search-forward "\\(?:\\([\f]\\)\\|\\(" "\\)\\)" t match-string line-beginning-position line-end-position append] 10 (#$ . 36523)])
#@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 (#$ . 37354)])
#@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 (#$ . 37561) "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 "\n\n(fn)"]] 7 (#$ . 37781) "P"])
#@47 Go to the ARGth next matching page.
(fn ARG)
(defalias 'doc-view-search-next-match #[257 "\302\303\"S8@\211\203 \304!\202% \205% \305\306!\205% \304\211@@)!\207" [doc-view-current-search-matches x doc-view-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? "] 6 (#$ . 38707) "p"])
#@51 Go to the ARGth previous matching page.
(fn ARG)
(defalias 'doc-view-search-previous-match #[257 "\302\303\"S\2378@\211\203 \304!\202( \205( \305\306!\205( \304\307!\211@@)!\207" [doc-view-current-search-matches x doc-view-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] 7 (#$ . 39131) "p"])
(put 'doc-view-mode 'mode-class 'special)
#@64 Return non-nil if the current doc was already converted.
(fn)
(defalias 'doc-view-already-converted-p #[0 "\300\301 !\205 \302\303\304\301 \"!\205 \305\301 \306\307#G\310V\207" [file-exists-p doc-view-current-cache-dir file-readable-p expand-file-name "resolution.el" directory-files nil "\\.png\\'" 0] 4 (#$ . 39619)])
(defalias 'doc-view-initiate-display #[0 "\304!\203k \305 \210\306\307\310\307\311\"\206 \312\311#\210\313 \203a \314\315!\210\316\317\320 \"\321\322!r\211q\210\323\324\325\326\327\330!\331\"\332\333%DC\216\334!\205I \335!\210\336p!*\262\211\247\203W \337\301!\210\211\266\340p\341\"\210\202d \342 \210\314\343\344\345!\"\207\314\343\346\347\n!\350Q\"\210\351 !\203\204 \352\353!\203\204 \354 \210\355 \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*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" 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] 9 "\n\n(fn)"])
(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 "\n\n(fn)"])
(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)"])
#@67 Figure out the current document type (`doc-view-doc-type').
(fn)
(defalias 'doc-view-set-doc-type #[0 "\205 \302\303!\304\"A\212eb\210\305\306!\203 \307\202* \305\310!\203# \311\202* \305\312!\205* \313)\314\301!\210\315\"\206Q \203F \211\203F \316\317#\206Q \206Q \211\206Q \316\320!@\211\207" [buffer-file-name doc-view-doc-type assoc file-name-extension (("dvi" dvi) ("pdf" pdf) ("epdf" pdf) ("ps" ps) ("eps" ps) ("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) ("pptx" odf)) looking-at "%!" (ps) "%PDF" (pdf) "\367" (dvi) make-local-variable doc-view-intersection error "Conflicting types: name says %s but content says %s" "Cannot determine the document type"] 6 (#$ . 41592)])
#@296 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}
(fn)
(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\f!\210\313\316!\210
\203Y \317\320\3215!!\f\"\202 \322 65\205e \3235!)\204} \3175\203v \3205!\202x \324 \f\"\202 5\2115\230\204\217 \325\322\211#\210\326\327\330\322\331$\210\326\332\333\322\331$\210\326\334\335\322\331$\210\336ed\337\331$\210\326\340\341\322\331$\210\342 \210\313\343!\210\344#\313\345!\210\322%\313\346!\210\347&\313\350!\210\351(\313\352!\210\322*\3537!\210\313\354!\210\355,\313\356!\210\357.\3608\3319\310\361 \210\313\362!\210\3222\363\364!\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-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 add-hook change-major-mode-hook #[0 "\300 \210\301ed\302\303$\207" [doc-view-kill-proc remove-overlays doc-view t] 5 "\n\n(fn)"] t clone-indirect-buffer-hook doc-view-clone-buffer-hook kill-buffer-hook doc-view-kill-proc 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 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 (#$ . 42440) nil])
#@57 Fallback to the previous or next best major mode.
(fn)
(defalias 'doc-view-fallback-mode #[0 "\303\304!\205\n \305\306\307\"\203 \210\202\" \310\311\310\304\312 !\"\"\313 \210)\211\205- \314\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) rassq-delete-all doc-view-mode-maybe copy-alist normal-mode make-local-variable] 7 (#$ . 44777)])
#@133 Switch to `doc-view-mode' if possible.
If the required external tools are not available, then fallback
to the next best mode.
(fn)
(defalias 'doc-view-mode-maybe #[0 "\301\302\303D\304\302\305\301EDC\217\210\306!\203 \307 \207\310 \207" [doc-view-doc-type #1=#:err funcall #[0 "\300 \207" [doc-view-set-doc-type] 1 "\n\n(fn)"] error #[257 "\300 \207" [doc-view-fallback-mode] 2 "\n\n(fn IGNORED)"] doc-view-mode-p doc-view-mode doc-view-fallback-mode] 6 (#$ . 45297)])
#@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 (#$ . 45776))
(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!\203Q \301 \203D \211\301 \232\203Q \312\324\203N \325\202O \326\"\210\210\327 \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 "\n\n(fn)"] 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 "Doc-View minor mode %sabled" "en" "dis" force-mode-line-update] 8 (#$ . 45985) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(byte-code "\301\302\303\304\211%\207" [doc-view-minor-mode-map add-minor-mode doc-view-minor-mode " DocView" nil] 6)
#@60 Delete the whole cache (`doc-view-cache-directory').
(fn)
(defalias 'doc-view-clear-cache #[0 "\301\302\"\207" [doc-view-cache-directory dired-delete-file always] 3 (#$ . 47241) nil])
#@51 Open `dired' in `doc-view-cache-directory'.
(fn)
(defalias 'doc-view-dired-cache #[0 "\301!\207" [doc-view-cache-directory dired] 2 (#$ . 47433) 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 "\n\n(fn)"])
(defalias 'doc-view-bookmark-jump #[257 "\301!\302\303\"\304=\204 \305 \210\306\307p\310\"\206 \311 !r\312\313\310\314\315\316!\317\"\320\321%DC\216\322@\323\"\210\324!\210*\266\207" [major-mode bookmark-default-handler bookmark-prop-get page doc-view-mode doc-view-toggle-display internal--before-with-selected-window get-buffer-window 0 selected-window funcall make-byte-code "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 "\n\n(fn)" select-window norecord doc-view-goto-page] 11 "\n\n(fn BMK)"])
(provide 'doc-view)