;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require let-alist pdf-info pdf-util] 2) #@50 A regexp matching the first line in a vpdf file. (defconst pdf-virtual-magic-mode-regexp "^ *;+ *%VPDF\\_>" (#$ . 181)) #@43 A list representing the virtual document. (defvar pdf-virtual-document nil (#$ . 307)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local pdf-virtual-document put permanent-local t] 4) #@202 Alist of server functions. Each element looks like (PDF-VIRTUAL-FN . PDF-INFO-FN). This list is filled by the macro `pdf-virtual-define-adapter' and used to enable/disable the corresponding advices. (defvar pdf-virtual-adapter-alist nil (#$ . 524)) #@285 Normalize PAGE-SPEC using FILENAME. PAGE-SPEC should be as described in `pdf-virtual-document-create'. FILENAME is used to determine the last page number, if needed. The `current-buffer', if it is nil. Returns a list ((FIRST . LAST) . REGION)). (fn PAGE-SPEC &optional FILENAME) (defalias 'pdf-virtual-pagespec-normalize #[513 "\300!\203 \211BC\202?@\204 \301!\302BAB\262\202?\300@!\203>\300A!\2033C\202?@@BAB\202?\211A\303\232\203P\211@@@ABC\262\207" [natnump pdf-info-number-of-pages 1 (0 0 1 1)] 5 (#$ . 782)]) #@76 compiler-macro for inlining `pdf-virtual-range-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'pdf-virtual-range-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block pdf-virtual-range-p (and (memq (type-of cl-x) cl-struct-pdf-virtual-range-tags) t)) nil] 9 (#$ . 1332)]) (put 'pdf-virtual-range-p 'compiler-macro 'pdf-virtual-range-p--cmacro) #@13 (fn CL-X) (defalias 'pdf-virtual-range-p #[257 "\301!>\205 \302\207" [cl-struct-pdf-virtual-range-tags type-of t] 3 (#$ . 1708)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put pdf-virtual-range-p side-effect-free error-free put pdf-virtual-range cl-deftype-satisfies] 5) #@83 compiler-macro for inlining `pdf-virtual-range-filename'. (fn CL-WHOLE-ARG CL-X) (defalias 'pdf-virtual-range-filename--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block pdf-virtual-range-filename (progn (or (pdf-virtual-range-p cl-x) (signal 'wrong-type-argument (list 'pdf-virtual-range cl-x))) (aref cl-x 1))) nil] 9 (#$ . 2010)]) (put 'pdf-virtual-range-filename 'compiler-macro 'pdf-virtual-range-filename--cmacro) #@71 Access slot "filename" of `pdf-virtual-range' struct CL-X. (fn CL-X) (defalias 'pdf-virtual-range-filename #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-pdf-virtual-range-tags type-of signal wrong-type-argument pdf-virtual-range 1] 5 (#$ . 2473)]) (byte-code "\300\301\302\303#\300\207" [function-put pdf-virtual-range-filename side-effect-free t] 4) #@80 compiler-macro for inlining `pdf-virtual-range-first'. (fn CL-WHOLE-ARG CL-X) (defalias 'pdf-virtual-range-first--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block pdf-virtual-range-first (progn (or (pdf-virtual-range-p cl-x) (signal 'wrong-type-argument (list 'pdf-virtual-range cl-x))) (aref cl-x 2))) nil] 9 (#$ . 2852)]) (put 'pdf-virtual-range-first 'compiler-macro 'pdf-virtual-range-first--cmacro) #@68 Access slot "first" of `pdf-virtual-range' struct CL-X. (fn CL-X) (defalias 'pdf-virtual-range-first #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-pdf-virtual-range-tags type-of signal wrong-type-argument pdf-virtual-range 2] 5 (#$ . 3300)]) (byte-code "\300\301\302\303#\300\207" [function-put pdf-virtual-range-first side-effect-free t] 4) #@79 compiler-macro for inlining `pdf-virtual-range-last'. (fn CL-WHOLE-ARG CL-X) (defalias 'pdf-virtual-range-last--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block pdf-virtual-range-last (progn (or (pdf-virtual-range-p cl-x) (signal 'wrong-type-argument (list 'pdf-virtual-range cl-x))) (aref cl-x 3))) nil] 9 (#$ . 3670)]) (put 'pdf-virtual-range-last 'compiler-macro 'pdf-virtual-range-last--cmacro) #@67 Access slot "last" of `pdf-virtual-range' struct CL-X. (fn CL-X) (defalias 'pdf-virtual-range-last #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-pdf-virtual-range-tags type-of signal wrong-type-argument pdf-virtual-range 3] 5 (#$ . 4113)]) (byte-code "\300\301\302\303#\300\207" [function-put pdf-virtual-range-last side-effect-free t] 4) #@81 compiler-macro for inlining `pdf-virtual-range-region'. (fn CL-WHOLE-ARG CL-X) (defalias 'pdf-virtual-range-region--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block pdf-virtual-range-region (progn (or (pdf-virtual-range-p cl-x) (signal 'wrong-type-argument (list 'pdf-virtual-range cl-x))) (aref cl-x 4))) nil] 9 (#$ . 4480)]) (put 'pdf-virtual-range-region 'compiler-macro 'pdf-virtual-range-region--cmacro) #@69 Access slot "region" of `pdf-virtual-range' struct CL-X. (fn CL-X) (defalias 'pdf-virtual-range-region #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-pdf-virtual-range-tags type-of signal wrong-type-argument pdf-virtual-range 4] 5 (#$ . 4933)]) (byte-code "\300\301\302\303#\300\207" [function-put pdf-virtual-range-region side-effect-free t] 4) #@86 compiler-macro for inlining `pdf-virtual-range-index-start'. (fn CL-WHOLE-ARG CL-X) (defalias 'pdf-virtual-range-index-start--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block pdf-virtual-range-index-start (progn (or (pdf-virtual-range-p cl-x) (signal 'wrong-type-argument (list 'pdf-virtual-range cl-x))) (aref cl-x 5))) nil] 9 (#$ . 5306)]) (put 'pdf-virtual-range-index-start 'compiler-macro 'pdf-virtual-range-index-start--cmacro) #@74 Access slot "index-start" of `pdf-virtual-range' struct CL-X. (fn CL-X) (defalias 'pdf-virtual-range-index-start #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-pdf-virtual-range-tags type-of signal wrong-type-argument pdf-virtual-range 5] 5 (#$ . 5784)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put pdf-virtual-range-index-start side-effect-free t defalias copy-pdf-virtual-range copy-sequence] 4) #@124 compiler-macro for inlining `make-pdf-virtual-range'. (fn CL-WHOLE &cl-quote &key FILENAME FIRST LAST REGION INDEX-START) (defalias 'make-pdf-virtual-range--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J\211@\306>\2032\211AA\262\202\307>A@\203A\310\262\202\311\312@\"\210\202\210\313\314\315\310\n\310\n\n\n\n\n&\n\207" [plist-member :filename :first :last :region :index-start (:filename :first :last :region :index-start :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:filename :first :last :region :index-start)" cl--defsubst-expand (filename first last region index-start) (cl-block make-pdf-virtual-range (record 'pdf-virtual-range filename first last region index-start))] 18 (#$ . 6229)]) (put 'make-pdf-virtual-range 'compiler-macro 'make-pdf-virtual-range--cmacro) #@104 Constructor for objects of type `pdf-virtual-range'. (fn &key FILENAME FIRST LAST REGION INDEX-START) (defalias 'make-pdf-virtual-range #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\211\203J\211@\306>\2032\211AA\262\202\307>A@\203A\310\262\202\311\312@\"\210\202\210\313\314&\207" [plist-member :filename :first :last :region :index-start (:filename :first :last :region :index-start :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:filename :first :last :region :index-start)" record pdf-virtual-range] 13 (#$ . 7107)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-pdf-virtual-range side-effect-free t cl-struct-define pdf-virtual-range nil cl-structure-object record ((cl-tag-slot) (filename) (first) (last) (region) (index-start)) cl-struct-pdf-virtual-range-tags] 11) #@79 compiler-macro for inlining `pdf-virtual-document-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'pdf-virtual-document-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block pdf-virtual-document-p (and (memq (type-of cl-x) cl-struct-pdf-virtual-document-tags) t)) nil] 9 (#$ . 8022)]) (put 'pdf-virtual-document-p 'compiler-macro 'pdf-virtual-document-p--cmacro) #@13 (fn CL-X) (defalias 'pdf-virtual-document-p #[257 "\301!>\205 \302\207" [cl-struct-pdf-virtual-document-tags type-of t] 3 (#$ . 8416)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put pdf-virtual-document-p side-effect-free error-free put pdf-virtual-document cl-deftype-satisfies] 5) #@88 compiler-macro for inlining `pdf-virtual-document-page-array'. (fn CL-WHOLE-ARG CL-X) (defalias 'pdf-virtual-document-page-array--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block pdf-virtual-document-page-array (progn (or (pdf-virtual-document-p cl-x) (signal 'wrong-type-argument (list 'pdf-virtual-document cl-x))) (aref cl-x 1))) nil] 9 (#$ . 8730)]) (put 'pdf-virtual-document-page-array 'compiler-macro 'pdf-virtual-document-page-array--cmacro) #@76 Access slot "page-array" of `pdf-virtual-document' struct CL-X. (fn CL-X) (defalias 'pdf-virtual-document-page-array #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-pdf-virtual-document-tags type-of signal wrong-type-argument pdf-virtual-document 1] 5 (#$ . 9224)]) (byte-code "\300\301\302\303#\300\207" [function-put pdf-virtual-document-page-array side-effect-free t] 4) #@86 compiler-macro for inlining `pdf-virtual-document-file-map'. (fn CL-WHOLE-ARG CL-X) (defalias 'pdf-virtual-document-file-map--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block pdf-virtual-document-file-map (progn (or (pdf-virtual-document-p cl-x) (signal 'wrong-type-argument (list 'pdf-virtual-document cl-x))) (aref cl-x 2))) nil] 9 (#$ . 9624)]) (put 'pdf-virtual-document-file-map 'compiler-macro 'pdf-virtual-document-file-map--cmacro) #@74 Access slot "file-map" of `pdf-virtual-document' struct CL-X. (fn CL-X) (defalias 'pdf-virtual-document-file-map #[257 "\301!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-pdf-virtual-document-tags type-of signal wrong-type-argument pdf-virtual-document 2] 5 (#$ . 10108)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put pdf-virtual-document-file-map side-effect-free t defalias copy-pdf-virtual-document copy-sequence] 4) #@108 compiler-macro for inlining `make-pdf-virtual-document'. (fn CL-WHOLE &cl-quote &key PAGE-ARRAY FILE-MAP) (defalias 'make-pdf-virtual-document--cmacro #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\312\305\305&\207" [plist-member :page-array :file-map (:page-array :file-map :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:page-array :file-map)" cl--defsubst-expand (page-array file-map) (cl-block make-pdf-virtual-document (record 'pdf-virtual-document page-array file-map))] 12 (#$ . 10563)]) (put 'make-pdf-virtual-document 'compiler-macro 'make-pdf-virtual-document--cmacro) #@88 Constructor for objects of type `pdf-virtual-document'. (fn &key PAGE-ARRAY FILE-MAP) (defalias 'make-pdf-virtual-document #[128 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311#\207" [plist-member :page-array :file-map (:page-array :file-map :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:page-array :file-map)" record pdf-virtual-document] 7 (#$ . 11283)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put make-pdf-virtual-document side-effect-free t cl-struct-define pdf-virtual-document nil cl-structure-object record ((cl-tag-slot) (page-array) (file-map)) cl-struct-pdf-virtual-document-tags] 11) #@48 Return the number of pages in PAGE. (fn PAGE) (defalias 'pdf-virtual-range-length #[257 "\301!>\204\302\303\304D\"\210\211\305H\301!>\204!\302\303\304D\"\210\306HZT\207" [cl-struct-pdf-virtual-range-tags type-of signal wrong-type-argument pdf-virtual-range 3 2] 6 (#$ . 12057)]) #@540 Create a virtual PDF from LIST using DIRECTORY. LIST should be a list of elements (FILENAME . PAGE-SPECS), where FILENAME is a PDF document and PAGE-SPECS is a list of PAGE-RANGE and/or (PAGE-RANGE . EDGES). In the later case, EDGES should be a list of relative coordinates (LEFT TOP RIGHT BOT) selecting a region of the page(s) in PAGE-RANGE. Giving no PAGE-SPECs at all is equivalent to all pages of FILENAME. See `pdf-info-normalize-page-range' for the valid formats of PAGE-RANGE. (fn LIST &optional DIRECTORY FILE-ERROR-HANDLER) (defalias 'pdf-virtual-document-create #[769 "\301\302\"\204\f\303\304\"\210\301\305\306\307\"\"\204\303\310!\210\301\311\306\312\"\"\204*\303\313!\210\314\2061#\315\316\211\203\235\211A\262\242\211@\317\"A\203XTAB\241\210\202aTDB\262\211\203\230\211A\262\242\211@@@AA\320\321& ZT\\\262\f\322ZT\" B\262 \266\202a\266\2026\323\324\325\326\237\"\327\306\330\"\237$\207" [default-directory cl-every consp error "Every element should be a cons: %s" stringp mapcar car "The car of every element should be a filename." #[257 "\300\301\"\207" [cl-every #[257 "\300!\206\211:\205\300@!\205\301A\302\"\207" [pdf-info-valid-page-spec-p pdf-util-edges-p relative] 4 "\n\n(fn PAGE)"]] 4 "\n\n(fn ELT)"] cdr "The cdr of every element should be a list of page-specs" pdf-virtual-document--normalize 0 nil assoc record pdf-virtual-range make-vector make-pdf-virtual-document :page-array apply vconcat :file-map #[257 "\211A\237\241\210\207" [] 3 "\n\n(fn F)"]] 22 (#$ . 12354)]) #@52 (fn LIST &optional DIRECTORY FILE-ERROR-HANDLER) (defalias 'pdf-virtual-document--normalize #[769 "\211C\211\242\204 \211\301\240\210\206\302\303\304\"\305\306$\262\307\310\311\"\303\312\"\313\211\314\306 \"\211\203H\211@\315\316\"\204A\317\320!#\210A\266\202\202+\210\211\203\315\211@\321@\310$C\211\242\204j@B\262\211@\240\210\314\303\322\"A\206u\323\"\313\203\272\211A\262\242\211@@@AA\203\256T@@@=\203\256\211@A\232\203\256\211A\262\242@A\262\202\211BBB\266\205\202w\242\237BB\262\266A\266\202\202K\210\211\237\266\204)\207" [default-directory #[514 "\300@\301AC\"\"\207" [signal append] 7 "\n\n(fn FILENAME ERR)"] cl-remove-if-not make-closure #[257 "\3011\302!\204\303\304\305D\"\210\306!\210\3070\207\300\242\"\210\310\207" [V0 (error) file-readable-p signal file-error "File not readable: " pdf-info-open t nil] 5 "\n\n(fn FILENAME)"] :key car make-hash-table :test equal #[514 "\301\300\"\301\300\"\203\211\203\232\207\302\"\207" [V0 gethash file-equal-p] 7 "\n\n(fn F1 F2)"] nil mapcar find-file-name-handler file-equal-p puthash file-attributes cl-find #[257 "\301\300\242\"\207" [V0 pdf-virtual-pagespec-normalize] 4 "\n\n(fn P)"] (nil)] 19 (#$ . 13935)]) #@338 Define a PDF Document function. Args are just like for `defun'. This macro will ensure, that the DOCUMENT argument, which should be last, is setup properly in case it is nil, i.e. check that the buffer passes `pdf-virtual-buffer-assert-p' and use the variable `pdf-virtual-document'. (fn NAME ARGS &optional DOCUMENTATION &rest BODY) (defalias 'pdf-virtual-document-defun '(macro . #[898 ";\204 B\262\300\262\301>\204 \302\303!\301C\304!#\262\305>\203*\306\307!\210\304!@\310\311\312\"!\313\314\315D\316\315\nDF\317\320\321\n\322BBE\323 \324BB\nBBBBBBE\207" [nil &optional append butlast last &rest error "&rest argument not supported" intern format "pdf-virtual-document-%s" progn put quote 'definition-name defun setq or ((progn (pdf-virtual-buffer-assert-p) pdf-virtual-document)) cl-check-type (pdf-virtual-document)] 17 (#$ . 15203)])) (byte-code "\300\301\302\303#\300\301\304\305#\306\301\307\310#\210\306\311\312\313#\207" [function-put pdf-virtual-document-defun doc-string-elt 3 lisp-indent-function defun put edebug-form-spec (&define name lambda-list [&optional stringp] def-body) pdf-virtual-document-filenames definition-name filenames] 6) #@58 Return the list of filenames in DOC. (fn &optional DOC) (defalias 'pdf-virtual-document-filenames #[256 "\211\206\302 \210\262\303! >\204\304\305\300\306E\"\210\307\310\303! >\204+\304\305\300D\"\210\311H\"\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc mapcar car 2] 7 (#$ . 16395)]) (put 'pdf-virtual-document-normalize-pages 'definition-name 'normalize-pages) #@134 Normalize PAGES using DOC. Like `pdf-info-normalize-page-range', except 0 is replaced by DOC's last page. (fn PAGES &optional DOC) (defalias 'pdf-virtual-document-normalize-pages #[513 "\211\206\302 \210\262\303! >\204\304\305\300\306E\"\210\307!\262A\310=\203-@\311!B\207\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc pdf-info-normalize-page-range 0 pdf-virtual-document-number-of-pages] 7 (#$ . 16861)]) (put 'pdf-virtual-document-page 'definition-name 'page) #@88 Get PAGE of DOC. Returns a list (FILENAME FILE-PAGE REGION). (fn PAGE &optional DOC) (defalias 'pdf-virtual-document-page #[513 "\211\206\302 \210\262\303! >\204\304\305\300\306E\"\210\307\211B\"@\211\205L\211\211G\310U\2036\211A\262\242\202=\304\311\312GD\"\211A\262\242\242@E\266\204\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc pdf-virtual-document-pages 3 wrong-number-of-arguments (filename first-last region)] 10 (#$ . 17430)]) (put 'pdf-virtual-document-pages 'definition-name 'pages) #@220 Get PAGES of DOC. PAGES should be a cons (FIRST . LAST). Return a list of ranges corresponding to PAGES. Each element has the form (FILENAME (FILE-FIRT-PAGE . FILE-LAST-PAGE) REGION) . (fn PAGES &optional DOC) (defalias 'pdf-virtual-document-pages #[513 "\211\206\303 \210\262\304! >\204\305\306\300\307E\"\210@AX\204+\310\311B\"\210\304! >\204:\305\306\300D\"\210\312H\313\312W\204KGV\203S\305\314\315D\"\210X\203\337SH\304!\n>\204l\305\306\316D\"\210\211\312HS\304!\n>\204\200\305\306\316D\"\210\317HZ\304!\n>\204\223\305\306\316D\"\210\320H\\\211 Z\\\304!\n>\204\257\305\306\316D\"\210\321H^\304!\n>\204\303\305\306\316D\"\210\322HBEB\262 ZT\\\262\n\266\202S\211\237\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags cl-struct-pdf-virtual-range-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc error "begin should not exceed end: %s" 1 nil args-out-of-range pages pdf-virtual-range 5 2 3 4] 15 (#$ . 18038)]) (put 'pdf-virtual-document-number-of-pages 'definition-name 'number-of-pages) #@56 Return the number of pages in DOC. (fn &optional DOC) (defalias 'pdf-virtual-document-number-of-pages #[256 "\211\206\302 \210\262\303! >\204\304\305\300\306E\"\210\303! >\204)\304\305\300D\"\210\211\307HG\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc 1] 6 (#$ . 19148)]) (put 'pdf-virtual-document-page-of 'definition-name 'page-of) #@424 Return a page number displaying FILENAME's page FILE-PAGE in DOC. If FILE-PAGE is nil, return the first page displaying FILENAME. If LIMIT is non-nil, it should be a range (FIRST . LAST) in which the returned page should fall. This is useful if there are more than one page displaying FILE-PAGE. LIMIT is ignored, if FILE-PAGE is nil. Return nil if there is no matching page. (fn FILENAME &optional FILE-PAGE LIMIT DOC) (defalias 'pdf-virtual-document-page-of #[1025 "\211\206\302 \210\262\303! >\204\304\305\300\306E\"\210\2046\307\303! >\204/\304\305\300D\"\210\310H\"A@\207\303! >\204E\304\305\300D\"\210\211\311H\3122u\313\314\315%\307\303! >\204l\304\305\300D\"\210\310H\"A\"\210\3160\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc assoc 2 1 found mapc make-closure #[257 "\211\303GX\205\247\305\303SH!\f>\204\306\307\310\303SHD\"\210\303SH\311H\300\232\205\247\303SH\305!\f>\204:\306\307\310D\"\210\211\312H\305!\f>\204L\306\307\310D\"\210\313H\301Y\203\234\301X\203\234\305!\f>\204j\306\307\310D\"\210\314H\301\305!\f>\204~\306\307\310D\"\210\312HZ\\T\302\203\226\211\302@Y\203\233\211\302AX\203\233\315\316\"\210\210ZT\\\266\204\202\207" [V0 V1 V2 V3 cl-struct-pdf-virtual-range-tags type-of signal wrong-type-argument pdf-virtual-range 1 2 3 5 throw found] 10 "\n\n(fn PN)"] nil] 13 (#$ . 19585)]) (put 'pdf-virtual-document-find-matching-page 'definition-name 'find-matching-page) #@48 (fn PAGE PREDICATE &optional BACKWARD-P DOC) (defalias 'pdf-virtual-document-find-matching-page #[1026 "\211\206\303 \210\262\304! >\204\305\306\300\307E\"\210\310Y\2038\304! >\2040\305\306\300D\"\210\310HGX\204@\305\311\312D\"\210\304! >\204O\305\306\300D\"\210\211\310HSH\313GW\203\273\314Y\203\273\211\204\273\203\203\304!\n>\204|\305\306\315D\"\210\316HS\202\231\317!\304!\n>\204\225\305\306\315D\"\210\316H\\\262GW\203X\314Y\203XH\262\"\204X\313\262\202X\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags cl-struct-pdf-virtual-range-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc 1 args-out-of-range page nil 0 pdf-virtual-range 5 pdf-virtual-range-length] 13 (#$ . 21140)]) (put 'pdf-virtual-document-next-matching-page 'definition-name 'next-matching-page) #@37 (fn PAGE PREDICATE &optional DOC) (defalias 'pdf-virtual-document-next-matching-page #[770 "\211\206\302 \210\262\303! >\204\304\305\300\306E\"\210\307\310$\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc pdf-virtual-document-find-matching-page nil] 8 (#$ . 22008)]) (put 'pdf-virtual-document-previous-matching-page 'definition-name 'previous-matching-page) #@37 (fn PAGE PREDICATE &optional DOC) (defalias 'pdf-virtual-document-previous-matching-page #[770 "\211\206\302 \210\262\303! >\204\304\305\300\306E\"\210\307\310$\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc pdf-virtual-document-find-matching-page t] 8 (#$ . 22468)]) (put 'pdf-virtual-document-next-file 'definition-name 'next-file) #@117 Return the next page displaying a different file than PAGE. PAGE should be a page-number. (fn PAGE &optional DOC) (defalias 'pdf-virtual-document-next-file #[513 "\211\206\303 \210\262\304! >\204\305\306\300\307E\"\210\310\311\"\211\2055\304!\n>\2041\305\306\312D\"\210\211\313HT\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags cl-struct-pdf-virtual-range-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc pdf-virtual-document-next-matching-page #[514 "\301!>\204\302\303\304D\"\210\305H\301!>\204!\302\303\304D\"\210\305H\232?\207" [cl-struct-pdf-virtual-range-tags type-of signal wrong-type-argument pdf-virtual-range 1] 7 "\n\n(fn THIS OTHER)"] pdf-virtual-range 5] 7 (#$ . 22905)]) (put 'pdf-virtual-document-previous-file 'definition-name 'previous-file) #@121 Return the previous page displaying a different file than PAGE. PAGE should be a page-number. (fn PAGE &optional DOC) (defalias 'pdf-virtual-document-previous-file #[513 "\211\206\303 \210\262\304! >\204\305\306\300\307E\"\210\310\311\"\211\2055\304!\n>\2041\305\306\312D\"\210\211\313HT\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags cl-struct-pdf-virtual-range-tags pdf-virtual-buffer-assert-p type-of signal wrong-type-argument doc pdf-virtual-document-previous-matching-page #[514 "\301!>\204\302\303\304D\"\210\305H\301!>\204!\302\303\304D\"\210\305H\232?\207" [cl-struct-pdf-virtual-range-tags type-of signal wrong-type-argument pdf-virtual-range 1] 7 "\n\n(fn THIS OTHER)"] pdf-virtual-range 5] 7 (#$ . 23735)]) (defvar pdf-virtual-edit-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\207" [emacs-lisp-mode-map make-sparse-keymap set-keymap-parent define-key "" pdf-virtual-view-mode] 5)) (defvar pdf-virtual-edit-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [pdf-virtual-edit-mode-hook variable-documentation put "Hook run after entering VPDF-Edit mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp pdf-virtual-edit-mode-map definition-name pdf-virtual-edit-mode] 4) (defvar pdf-virtual-edit-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [pdf-virtual-edit-mode-abbrev-table pdf-virtual-edit-mode-map variable-documentation put purecopy "Keymap for `pdf-virtual-edit-mode'." boundp pdf-virtual-edit-mode-syntax-table definition-name pdf-virtual-edit-mode (lambda (def-tmp-var) (defvar pdf-virtual-edit-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `pdf-virtual-edit-mode'." (lambda (def-tmp-var) (defvar pdf-virtual-edit-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `pdf-virtual-edit-mode'." derived-mode-parent emacs-lisp-mode] 5) #@263 Major mode when editing a virtual PDF buffer. In addition to any hooks its parent mode `emacs-lisp-mode' might have run, this mode runs the hook `pdf-virtual-edit-mode-hook', as the final or penultimate step during initialization. \{pdf-virtual-edit-mode-map} (defalias 'pdf-virtual-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R !=\204R\326 \325!C#\210\327 !\210\330\f!\210 !\331 \210\306\332!\210\333\"\204r\334\335\336!!\210)\337\340!\207" [delay-mode-hooks major-mode mode-name pdf-virtual-edit-mode-map pdf-virtual-edit-mode-syntax-table pdf-virtual-edit-mode-abbrev-table make-local-variable t emacs-lisp-mode pdf-virtual-edit-mode "VPDF-Edit" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-enable-undo buffer-read-only nil message substitute-command-keys "Press \\[pdf-virtual-view-mode] to view." run-mode-hooks pdf-virtual-edit-mode-hook local-abbrev-table noninteractive] 5 (#$ . 25997) nil]) (defvar pdf-virtual-view-mode-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\304\305#\210\207" [pdf-view-mode-map make-sparse-keymap set-keymap-parent define-key "" pdf-virtual-edit-mode [remap backward-paragraph] pdf-virtual-buffer-backward-file [remap forward-paragraph] pdf-virtual-buffer-forward-file] 5)) (defvar pdf-virtual-view-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [pdf-virtual-view-mode-hook variable-documentation put "Hook run after entering VPDF-View mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp pdf-virtual-view-mode-map definition-name pdf-virtual-view-mode] 4) (defvar pdf-virtual-view-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [pdf-virtual-view-mode-abbrev-table pdf-virtual-view-mode-map variable-documentation put purecopy "Keymap for `pdf-virtual-view-mode'." boundp pdf-virtual-view-mode-syntax-table definition-name pdf-virtual-view-mode (lambda (def-tmp-var) (defvar pdf-virtual-view-mode-syntax-table def-tmp-var)) make-syntax-table "Syntax table for `pdf-virtual-view-mode'." (lambda (def-tmp-var) (defvar pdf-virtual-view-mode-abbrev-table def-tmp-var)) define-abbrev-table nil "Abbrev table for `pdf-virtual-view-mode'." derived-mode-parent pdf-view-mode] 5) #@250 Major mode in virtual PDF buffers. In addition to any hooks its parent mode `pdf-view-mode' might have run, this mode runs the hook `pdf-virtual-view-mode-hook', as the final or penultimate step during initialization. \{pdf-virtual-view-mode-map} (defalias 'pdf-virtual-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R %=\204R\326 \325%C#\210\327 !\210\330\f!\210 %\306\331!\210\332\333\334\335\307#\210\306\336!\210\337&\204|\340\341\342!!\210)\343\344!\207" [delay-mode-hooks major-mode mode-name pdf-virtual-view-mode-map pdf-virtual-view-mode-syntax-table pdf-virtual-view-mode-abbrev-table make-local-variable t pdf-view-mode pdf-virtual-view-mode "VPDF-View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table write-contents-functions nil remove-hook kill-buffer-hook pdf-view-close-document header-line-format (:eval (pdf-virtual-buffer-current-file)) message substitute-command-keys "Press \\[pdf-virtual-edit-mode] to edit." run-mode-hooks pdf-virtual-view-mode-hook local-abbrev-table noninteractive] 5 (#$ . 28899) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable pdf-virtual-global-minor-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Pdf-Virtual-Global minor mode is enabled.\nSee the `pdf-virtual-global-minor-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `pdf-virtual-global-minor-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10) #@647 Enable recognition and handling of VPDF files. This is a minor mode. If called interactively, toggle the `Pdf-Virtual-Global minor mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value 'pdf-virtual-global-minor-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'pdf-virtual-global-minor-mode #[256 "\305 \306\302\307=\203\310\302!?\202!\247\203 \311W\203 \312\202!\313\"\210\314\300!\2038\315\302\"\310\302!\2038\302B \316B\n\203G\317\303\"\210\202L\320 \"\f\211\203o\211@\211@A\321\"\210\n\203f\322\323#\210\266A\266\202\202M\266\324\325\310\302!\203}\326\202~\327\"\210\330\331!\203\246\332\302!\210\305 \203\226\211\305 \232\203\246\333\334\310\302!\203\242\335\202\243\336\337#\210\210\340 \210\310\302!\207" [global-minor-modes pdf-virtual-magic-mode-regexp pdf-virtual-global-minor-mode magic-mode-alist pdf-virtual-adapter-alist current-message set-default toggle default-value 1 nil t boundp delq pdf-virtual-view-mode add-to-list remove advice-remove advice-add :around run-hooks pdf-virtual-global-minor-mode-hook pdf-virtual-global-minor-mode-on-hook pdf-virtual-global-minor-mode-off-hook called-interactively-p any customize-mark-as-set message "Pdf-Virtual-Global minor mode %sabled%s" "en" "dis" "" force-mode-line-update] 11 (#$ . 30821) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar pdf-virtual-global-minor-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\316\317#\207" [pdf-virtual-global-minor-mode-map pdf-virtual-global-minor-mode-hook variable-documentation put "Hook run after entering or leaving `pdf-virtual-global-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode pdf-virtual-global-minor-mode boundp advice-add pdf-virtual-view-mode :around pdf-virtual-view-mode-prepare] 6) #@11 (fn FN) (defalias 'pdf-virtual-view-mode-prepare #[257 "\303\211C\212\304b\210\305!\204\306 \210\307p!\262)\310\303\311\312\"#\211\242\2032\313\314\315\316\317\320\242\321#\"\"\210\322 \323U\203=\324\325!\207\n\204E\302\304!\210 \207" [pdf-virtual-magic-mode-regexp pdf-virtual-document pdf-virtual-global-minor-mode nil 1 looking-at pdf-virtual-buffer-assert-p read pdf-virtual-document-create make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn FILENAME ERROR)"] display-warning pdf-virtual format "Some documents could not be opened:\n%s" mapconcat #[257 "\300P\207" [" "] 3 "\n\n(fn F)"] "\n" pdf-virtual-document-number-of-pages 0 error "Docüment is empty."] 11 (#$ . 33272)]) #@50 (fn &optional FILENAMES BUFFER-NAME DISPLAY-P) (defalias 'pdf-virtual-buffer-create #[768 "r\300!q\210\301c\210\302c\210\204\303c\210\2025\304c\210\211\203-\211@\305\306\"c\210A\266\202\202\210\307\310!\210\311c\210\312 \210\211\203@\313p!\210p)\207" [generate-new-buffer ";; %VPDF 1.0\n\n" ";; File Format\n;;\n;; FORMAT ::= ( FILES* )\n;; FILES ::= ( FILE . PAGE-SPEC* )\n;; PAGE-SPEC ::= PAGE | ( PAGE . REGION )\n;; PAGE ::= NUMBER | ( FIRST . LAST )\n;; REGION ::= ( LEFT TOP RIGHT BOT )\n;;\n;; 0 <= X <= 1, forall X in REGION .\n\n" "nil\n" "(" format "(%S)\n " delete-char -2 ")\n" pdf-virtual-edit-mode pop-to-buffer] 8 (#$ . 33985) (byte-code "\301\302\303#\304\305\302\211\306$\307E\207" [default-directory directory-files nil "\\.pdf\\'" read-string "Buffer name (default: all.vpdf): " "all.vpdf" t] 6)]) #@25 (fn &optional BUFFER) (defalias 'pdf-virtual-buffer-p #[256 "r\211\203\211q\210\301\302\303\"\206)\207" [pdf-virtual-document derived-mode-p pdf-virtual-view-mode pdf-virtual-edit-mode] 4 (#$ . 34838)]) #@25 (fn &optional WINDOW) (defalias 'pdf-virtual-view-window-p #[256 "\300 r\301\302\"\216\203\303!\210\304\305!*\207" [internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] select-window derived-mode-p pdf-virtual-view-mode] 5 (#$ . 35054)]) #@17 (fn FILENAME) (defalias 'pdf-virtual-filename-p #[257 "\211;\205'\301!\205'\302\303\304\"r\211q\210\305\306\"\216\212\307\310\311\312$\210)\313!*\262\207" [pdf-virtual-magic-mode-regexp file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents nil 0 128 looking-at] 7 (#$ . 35368)]) #@25 (fn &optional BUFFER) (defalias 'pdf-virtual-buffer-assert-p #[256 "\300!?\205\n\301\302!\207" [pdf-virtual-buffer-p error "Buffer is not a virtual PDF buffer"] 3 (#$ . 35755)]) #@25 (fn &optional WINDOW) (defalias 'pdf-virtual-view-window-assert-p #[256 "\300!?\205\n\301\302!\207" [pdf-virtual-view-window-p error "Window's buffer is not in `pdf-virtual-view-mode'."] 3 (#$ . 35943)]) #@25 (fn &optional WINDOW) (defalias 'pdf-virtual-buffer-current-file #[256 "\303!\210\304! >\204\305\306\300D\"\210\307H\310\311\"SH\304!\n>\204+\305\306\312D\"\210\211\307H\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags cl-struct-pdf-virtual-range-tags pdf-virtual-view-window-assert-p type-of signal wrong-type-argument 1 image-mode-window-get page pdf-virtual-range] 6 (#$ . 36157)]) #@34 (fn &optional N INTERACTIVE-P) (defalias 'pdf-virtual-buffer-forward-file #[512 "\303 \210\304\305\306\"\307! >\204\310\311\300D\"\210\312H\211SH\307!\n>\204,\310\311\313D\"\210\211\314HT\315W\203@\211U\204@T\262\211\262\306\315V\203_\316!\211\262\203_\211\262S\262\202D\210\306\315W\203|\317!\211\262\203|\211\262T\262\202a\210\203\225\315W\203\213\320\321!\210\315V\203\225\320\322!\210\323!\210\207" [pdf-virtual-document cl-struct-pdf-virtual-document-tags cl-struct-pdf-virtual-range-tags pdf-virtual-view-window-assert-p image-mode-window-get page nil type-of signal wrong-type-argument 1 pdf-virtual-range 5 0 pdf-virtual-document-next-file pdf-virtual-document-previous-file message "First file." "Last file." pdf-view-goto-page] 9 (#$ . 36574) "p\np"]) #@34 (fn &optional N INTERACTIVE-P) (defalias 'pdf-virtual-buffer-backward-file #[512 "\300\206\301[\"\207" [pdf-virtual-buffer-forward-file 1] 5 (#$ . 37390) "p\np"]) #@34 (fn BINDINGS PAGES &rest BODY) (defalias 'pdf-virtual-dopages '(macro . #[642 "\300\301!\302D\303BBBE\207" [make-symbol "page" dolist cl-destructuring-bind] 10 (#$ . 37565)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pdf-virtual-dopages lisp-indent-function 2 put edebug-form-spec (sexp form &rest form)] 5) #@49 (fn STRING PAGES &optional REGEXP-P NO-ERROR) (defalias 'pdf-virtual--perform-search #[1026 "\301!\302!\303C\303C\303C\303Cp\304\305\306\"\307\310#\307\311         &\n\312D \211\203}\211@\211\211G\313U\203M\211A\262\242\202T\314\315\316GD\"\211A\262\242\303\203k\317#\266\202v\320$\266A\266\202\2026\210)\211\321 \210)?\205\303\242\204\241\322\323 !\324=\203\241\325\323 \326\"\210\202\212\242\204\263\322\323 !\324=\204\263\327\330!\210\242\203\300\327\331 \242\"\210\242\207" [pdf-info-asynchronous pdf-virtual-document-normalize-pages pdf-virtual-document-pages nil mapcar copy-sequence ((responses)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\311\310\236A\302\304\242??\240\210\303\304\242\206\210r\306q\210\312\301\211\203\202\211@\211\211G\313U\203.\211A\262\242\2025\314\315\316GD\"\312\211A\262\210\242\211A\262\n\242\203Y\317\320\321\"\322\323\324\325\"#\"\262\211\211\203y\211@\326\327\324\326\"\300#BB\nB\262\nA\266\202\202Z\266A\266\202\202\210\211\237\262)\240\210\305\330\240\210\307\205\251\331\307!\203\237\307\302\242\303\242\"\207\332\307@\302\242\303\242\307A$\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 responses nil 3 signal wrong-number-of-arguments (filename _ region) mapcar make-closure #[257 "\211\301\236A\301\302\300\303#BB\207" [V0 edges pdf-util-edges-transform t] 8 "\n\n(fn M)"] pdf-virtual--filter-edges apply-partially alist-get edges page pdf-virtual-document-page-of t functionp apply] 19 "\n\n(fn &rest _)"] responses 3 signal wrong-number-of-arguments (filename pages _region) pdf-info-search-string pdf-info-search-regexp pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 26 (#$ . 37913)]) #@43 (fn REGION ELTS &optional EDGES-KEY-FN) (defalias 'pdf-virtual--filter-edges #[770 "\204\207\300\301\302\"\303$\207" [cl-remove-if-not make-closure #[257 "\211?\206\211@:\203\301\302\303\300\"\"\207\303\300\"\207" [V0 cl-some apply-partially pdf-util-edges-intersection] 5 "\n\n(fn EDGES)"] :key] 8 (#$ . 39835)]) #@29 (fn LINK FILENAME REGION) (defalias 'pdf-virtual--transform-goto-dest #[771 "\300\236A\301\236A\302\236A\303\"\211\203+\304\301B\300B\302\305\n\211B\306#@BF\207\307\301B\310 B\300B\302B\257\207" [page title top pdf-virtual-document-page-of (type . goto-dest) pdf-util-edges-transform t (type . goto-remote) filename] 16 (#$ . 40170)]) #@46 (fn NAME ARGLIST &optional DOC &rest BODY) (defalias 'pdf-virtual-define-adapter '(macro . #[898 ";\204 B\262\300\262\301\302\303\"!\301\302\304\"!\305\306!\305\307!\310\311\"\312!\2041\313\314\"\210\315>\204>\313\316 \"\210\317\320\321D\322\321 DF\323\324\321  BDE\325 B\302\326\203j\327P\202k\330\f\211$\331 \332\333\334\335\336>??E\337BEDC\340\332\341 D\342B\343D\344\345DDD\346D\344\347DDDF\336>\203\254\350\202\255\351 BB\352\346D\353\354DEE\355\352\343D\356DEBB\257E\257F\207" [nil intern format "pdf-virtual-%s" "pdf-info-%s" make-symbol "fn" "true-file-or-buffer" cl-remove-if #[257 "\211\300>\207" [(&optional &rest)] 3 "\n\n(fn ELT)"] fboundp error "Base function is undefined: %s" file-or-buffer "Argument list is missing a `file-or-buffer' argument: %s" progn put quote 'definition-name add-to-list 'pdf-virtual-adapter-alist defun "%sPDF virtual adapter to `%s'.\n\nThis function delegates to `%s', unless the FILE-OR-BUFFER\nargument denotes a VPDF document." "\n\n" "" let cond ((or (bufferp file-or-buffer) (stringp file-or-buffer)) file-or-buffer) or (null file-or-buffer) &rest ((current-buffer)) if null (t) bufferp not pdf-virtual-buffer-p stringp pdf-virtual-filename-p apply funcall when setq find-file-noselect save-current-buffer set-buffer] 27 (#$ . 40533)])) (byte-code "\301\302\303\304#\301\302\305\306#\307\302\310\311#\210\312\313\314\"\210\307\315\316\317#\210\320\235\204%\320B\301\207" [pdf-virtual-adapter-alist function-put pdf-virtual-define-adapter doc-string-elt 3 lisp-indent-function 2 put edebug-form-spec (&define name lambda-list [&optional stringp] def-body) define-error pdf-virtual-unsupported-operation "Operation not supported in VPDF buffer" pdf-virtual-open definition-name open (pdf-virtual-open . pdf-info-open)] 6) #@189 PDF virtual adapter to `pdf-info-open'. This function delegates to `pdf-info-open', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional FILE-OR-BUFFER PASSWORD) (defalias 'pdf-virtual-open #[769 "\300!\204 ;\203\202?\205p\211\2032\300!\203&\301!?\202/\211;\2037\302!?\2037\"\207\211;\203A\303!\262r\300!\203K\211q\210\304\305\306\"\307 \")\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect mapc make-closure #[257 "\301\300\"\207" [V0 pdf-info-open] 4 "\n\n(fn FILE)"] pdf-virtual-document-filenames] 8 (#$ . 42383)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-close definition-name close (pdf-virtual-close . pdf-info-close)] 4) #@182 PDF virtual adapter to `pdf-info-close'. This function delegates to `pdf-info-close', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-close #[513 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2036\303!?\2036!\207\211;\203@\304!\262r\301!\203J\211q\210\305\306\307 \"\310C\310C\310C\310Cp\311\312\313\"\314\315#\314\316       &\317D\320\321 \"\210)\211\322 \210)?\205\304\242\204\242\323\324 !\325=\203\242\326\324 \327\"\210\202\213\242\204\264\323\324 !\325=\204\264\330\331!\210\242\203\301\330\332 \242\"\210\242\266\211\262)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect cl-remove-if find-buffer-visiting pdf-virtual-document-filenames nil mapcar copy-sequence ((results)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\307\306\236A\300\302\242??\240\210\301\302\242\206r\304q\210\310\311\")\240\210\303\312\240\210\305\205;\313\305!\2031\305\300\242\301\242\"\207\314\305@\300\242\301\242\305A$\207" [V0 V1 V2 V3 V4 V5 V6 results cl-some identity t functionp apply] 7 "\n\n(fn &rest _)"] results mapc pdf-info-close pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 21 (#$ . 43168)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-metadata definition-name metadata (pdf-virtual-metadata . pdf-info-metadata)] 4) #@188 PDF virtual adapter to `pdf-info-metadata'. This function delegates to `pdf-info-metadata', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-metadata #[513 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2036\303!?\2036!\207\211;\203@\304!\262r\301!\203J\211q\210\305C\305C\305C\305Cp\306\307\310\"\311\312#\311\313       &\314D\315\316\317 \"\210)\211\320 \210)?\205\277\242\204\235\321\322 !\323=\203\235\324\322 \325\"\210\202\206\242\204\257\321\322 !\323=\204\257\326\327!\210\242\203\274\326\330 \242\"\210\242\266\211)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect nil mapcar copy-sequence ((md)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\307\306\236A\300\302\242??\240\210\301\302\242\206r\304q\210\310\311\312#)\240\210\303\313\240\210\305\205<\314\305!\2032\305\300\242\301\242\"\207\310\305@\300\242\301\242\305A$\207" [V0 V1 V2 V3 V4 V5 V6 md apply cl-mapcar #[128 "\211@@\300\301\"B\207" [cl-mapcar cdr] 5 "\n\n(fn &rest ELTS)"] t functionp] 7 "\n\n(fn &rest _)"] md mapc pdf-info-metadata pdf-virtual-document-filenames pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 20 (#$ . 44858)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-search-string definition-name search-string (pdf-virtual-search-string . pdf-info-search-string)] 4) #@211 PDF virtual adapter to `pdf-info-search-string'. This function delegates to `pdf-info-search-string', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN STRING &optional PAGES FILE-OR-BUFFER) (defalias 'pdf-virtual-search-string #[1026 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2038\302!?\2038#\207\211;\203B\303!\262r\300!\203L\211q\210\304\305!\")\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual--perform-search pdf-virtual-document-normalize-pages] 9 (#$ . 46582)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-search-regexp definition-name search-regexp (pdf-virtual-search-regexp . pdf-info-search-regexp)] 4) #@218 PDF virtual adapter to `pdf-info-search-regexp'. This function delegates to `pdf-info-search-regexp', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN PCRE &optional PAGES NO-ERROR FILE-OR-BUFFER) (defalias 'pdf-virtual-search-regexp #[1282 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2039\302!?\2039$\207\211;\203C\303!\262r\300!\203M\211q\210\304\305!\306$)\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual--perform-search pdf-virtual-document-normalize-pages regexp] 11 (#$ . 47385)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-pagelinks definition-name pagelinks (pdf-virtual-pagelinks . pdf-info-pagelinks)] 4) #@195 PDF virtual adapter to `pdf-info-pagelinks'. This function delegates to `pdf-info-pagelinks', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN PAGE &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-pagelinks #[770 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2037\303!?\2037\"\207\211;\203A\304!\262r\301!\203K\211q\210\305!\211G\306U\203^\211A\262\242\202e\307\310\311GD\"\211A\262\242\242\312C\312C\312C\312Cp\313\314\315\"\316\317#\316\320\f        &\n\321D\322  \"\210)\211\323 \210)?\205\347\242\204\305\324\325 !\326=\203\305\327\325 \330\"\210\202\256\242\204\327\324\325 !\326=\204\327\331\332!\210\242\203\344\331\333 \242\"\210\242\266\215)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual-document-page 3 signal wrong-number-of-arguments (filename ext-page region) nil mapcar copy-sequence ((links)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\311\310\236A\302\304\242??\240\210\303\304\242\206#r\306q\210\312\313\314\300\301#\315\301@\316#\")\240\210\305\317\240\210\307\205D\320\307!\203:\307\302\242\303\242\"\207\321\307@\302\242\303\242\307A$\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 links mapcar make-closure #[257 "\211\302\236A\303\236A\304=\204\207\303\305\301\306#B\307\300\301#B\207" [V0 V1 type edges goto-dest pdf-util-edges-transform t pdf-virtual--transform-goto-dest] 9 "\n\n(fn LINK)"] pdf-virtual--filter-edges car t functionp apply] 9 "\n\n(fn &rest _)"] links pdf-info-pagelinks pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 27 (#$ . 48194)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-number-of-pages definition-name number-of-pages (pdf-virtual-number-of-pages . pdf-info-number-of-pages)] 4) #@202 PDF virtual adapter to `pdf-info-number-of-pages'. This function delegates to `pdf-info-number-of-pages', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-number-of-pages #[513 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2036\303!?\2036!\207\211;\203@\304!\262r\301!\203J\211q\210\305C\305C\305C\305Cp\306\307\305\"\305\310\311      &\211\312 \210)?\205\255\242\204\213\313\314 !\315=\203\213\316\314 \317\"\210\202t\242\204\235\313\314 !\315=\204\235\320\321!\210\242\203\252\320\322 \242\"\210\242\266\211)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect nil mapcar copy-sequence make-closure #[128 "\300\302\242??\240\210\301\302\242\206r\304q\210\306 )\240\210\303\307\240\210\305\2055\310\305!\203+\305\300\242\301\242\"\207\311\305@\300\242\301\242\305A$\207" [V0 V1 V2 V3 V4 V5 pdf-virtual-document-number-of-pages t functionp apply] 6 "\n\n(fn &rest _)"] pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 19 (#$ . 50273)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-outline definition-name outline (pdf-virtual-outline . pdf-info-outline)] 4) #@186 PDF virtual adapter to `pdf-info-outline'. This function delegates to `pdf-info-outline', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-outline #[513 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2036\303!?\2036!\207\211;\203@\304!\262r\301!\203J\211q\210\305 \306C\306C\306C\306Cp\307\310\311\"\312\313#\312\314\n\n\n\n\n\n\n\n& \315D\316\317 \"\210)\211\320 \210)?\205\303\242\204\241\321\322 !\323=\203\241\324\322 \325\"\210\202\212\242\204\263\321\322 !\323=\204\263\326\327!\210\242\203\300\326\330 \242\"\210\242\266\211\262)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual-document-filenames nil mapcar copy-sequence ((outlines)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\310\307\236A\301\303\242??\240\210\302\303\242\206r\305q\210\311\312\300#)\240\210\304\313\240\210\306\205<\314\306!\2032\306\301\242\302\242\"\207\315\306@\301\242\302\242\306A$\207" [V0 V1 V2 V3 V4 V5 V6 V7 outlines cl-mapcan #[514 "\300\301\302B\303\304!B\305BBBB\306\307\310\311\312\"\"\"B\207" [(depth . 1) (type . goto-dest) title page pdf-virtual-document-page-of ((top . 0)) delq nil mapcar make-closure #[257 "\211\301\236A\302\236A\303\236A\304=\204\302TBB\207\300;\204'\305\306\307\300\310E\"\210\311\300\"\211\205?\302TB\312\300\313\314!8#B\207" [V0 type depth page goto-dest signal wrong-type-argument string filename pdf-virtual-document-page-of pdf-virtual--transform-goto-dest 2 pdf-virtual-document-page] 13 "\n\n(fn ITEM)"]] 9 "\n\n(fn OUTLINE FILENAME)"] t functionp apply] 7 "\n\n(fn &rest _)"] outlines mapc pdf-info-outline pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 22 (#$ . 51687)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-gettext definition-name gettext (pdf-virtual-gettext . pdf-info-gettext)] 4) #@213 PDF virtual adapter to `pdf-info-gettext'. This function delegates to `pdf-info-gettext', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN PAGE EDGES &optional SELECTION-STYLE FILE-OR-BUFFER) (defalias 'pdf-virtual-gettext #[1283 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2039\302!?\2039$\207\211;\203C\303!\262r\300!\203M\211q\210\304!\211G\305U\203`\211A\262\242\202g\306\307\310GD\"\211A\262\242\242\311 \"\312\n$\262\266\204)\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual-document-page 3 signal wrong-number-of-arguments (filename file-page region) pdf-util-edges-transform pdf-info-gettext] 16 (#$ . 53917)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-getselection definition-name getselection (pdf-virtual-getselection . pdf-info-getselection)] 4) #@223 PDF virtual adapter to `pdf-info-getselection'. This function delegates to `pdf-info-getselection', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN PAGE EDGES &optional SELECTION-STYLE FILE-OR-BUFFER) (defalias 'pdf-virtual-getselection #[1283 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2039\303!?\2039$\207\211;\203C\304!\262r\301!\203M\211q\210\305!\211G\306U\203`\211A\262\242\202g\307\310\311GD\"\211A\262\242\242\312 \"\313C\313C\313C\313Cp\314\315\316\"\317\320#\317\321 \n\n\n\n\n\n\n& \322D\323\f $\210)\211\324 \210)?\205\360\242\204\316\325\326 !\327=\203\316\330\326 \331\"\210\202\267\242\204\340\325\326 !\327=\204\340\332\333!\210\242\203\355\332\334 \242\"\210\242\266\211\262\266\204)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual-document-page 3 signal wrong-number-of-arguments (filename file-page region) pdf-util-edges-transform nil mapcar copy-sequence ((results)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\310\307\236A\301\303\242??\240\210\302\303\242\206r\305q\210\311\300\312\300@\"\313#)\240\210\304\313\240\210\306\205@\314\306!\2036\306\301\242\302\242\"\207\315\306@\301\242\302\242\306A$\207" [V0 V1 V2 V3 V4 V5 V6 V7 results pdf-util-edges-transform pdf-virtual--filter-edges t functionp apply] 8 "\n\n(fn &rest _)"] results pdf-info-getselection pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 29 (#$ . 54881)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-charlayout definition-name charlayout (pdf-virtual-charlayout . pdf-info-charlayout)] 4) #@210 PDF virtual adapter to `pdf-info-charlayout'. This function delegates to `pdf-info-charlayout', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN PAGE &optional EDGES-OR-POS FILE-OR-BUFFER) (defalias 'pdf-virtual-charlayout #[1026 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2038\303!?\2038#\207\211;\203B\304!\262r\301!\203L\211q\210\305!\211G\306U\203_\211A\262\242\202f\307\310\311GD\"\211A\262\242\242\312\"\313C\313C\313C\313Cp\314\315\316\"\317\320#\317\321 \n\n\n\n\n\n\n& \322D\323\f #\210)\211\324 \210)?\205\355\242\204\313\325\326 !\327=\203\313\330\326 \331\"\210\202\264\242\204\335\325\326 !\327=\204\335\332\333!\210\242\203\352\332\334 \242\"\210\242\266\211\262\266\204)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual-document-page 3 signal wrong-number-of-arguments (filename file-page region) pdf-util-edges-transform nil mapcar copy-sequence ((results)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\310\307\236A\301\303\242??\240\210\302\303\242\206\"r\305q\210\311\312\313\300\"\314\300@\315#\")\240\210\304\316\240\210\306\205C\317\306!\2039\306\301\242\302\242\"\207\320\306@\301\242\302\242\306A$\207" [V0 V1 V2 V3 V4 V5 V6 V7 results mapcar make-closure #[257 "\211@\301\300A\302#B\207" [V0 pdf-util-edges-transform t] 6 "\n\n(fn ELT)"] pdf-virtual--filter-edges cadr t functionp apply] 9 "\n\n(fn &rest _)"] results pdf-info-charlayout pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 28 (#$ . 56826)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-pagesize definition-name pagesize (pdf-virtual-pagesize . pdf-info-pagesize)] 4) #@193 PDF virtual adapter to `pdf-info-pagesize'. This function delegates to `pdf-info-pagesize', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN PAGE &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-pagesize #[770 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2037\303!?\2037\"\207\211;\203A\304!\262r\301!\203K\211q\210\305!\211G\306U\203^\211A\262\242\202e\307\310\311GD\"\211A\262\242\242\312C\312C\312C\312Cp\313\314\315\"\316\317#\316\320\n\n\n\n\n\n\n\n& \321D\322  \"\210)\211\323 \210)?\205\345\242\204\303\324\325 !\326=\203\303\327\325 \330\"\210\202\254\242\204\325\324\325 !\326=\204\325\331\332!\210\242\203\342\331\333 \242\"\210\242\266\215)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual-document-page 3 signal wrong-number-of-arguments (filename file-page region) nil mapcar copy-sequence ((result)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\310\307\236A\301\303\242??\240\210\302\303\242\2061r\305q\210\300\204@\2020\311@\312\3008\300@Z\313\3008\300A@ZB\")\240\210\304\314\240\210\306\205R\315\306!\203H\306\301\242\302\242\"\207\316\306@\301\242\302\242\306A$\207" [V0 V1 V2 V3 V4 V5 V6 V7 result pdf-util-scale 2 3 t functionp apply] 8 "\n\n(fn &rest _)"] result pdf-info-pagesize pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 26 (#$ . 58838)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-getannots definition-name getannots (pdf-virtual-getannots . pdf-info-getannots)] 4) #@196 PDF virtual adapter to `pdf-info-getannots'. This function delegates to `pdf-info-getannots', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional PAGES FILE-OR-BUFFER) (defalias 'pdf-virtual-getannots #[769 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2037\303!?\2037\"\207\211;\203A\304!\262r\301!\203K\211q\210\305!\306!\307C\307C\307C\307Cp\310\311\312\"\313\314#\313\315         &\n\316D \211\203\263\211@\211\211G\317U\203\230\211A\262\242\202\237\320\321\322GD\"\211A\262\242\307\323\"\266A\266\202\202\201\210)\211\324 \210)?\205\371\242\204\327\325\326 !\327=\203\327\330\326 \331\"\210\202\300\242\204\351\325\326 !\327=\204\351\332\333!\210\242\203\366\332\334 \242\"\210\242\266\213)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual-document-normalize-pages pdf-virtual-document-pages nil mapcar copy-sequence ((annotations)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\311\310\236A\302\304\242??\240\210\303\304\242\206\343r\306q\210\300@\312\301\211\203\335\211@\211\312G\313U\2031\211A\262\210\2029\314\315\316GD\"\210\211A\262\242\242 \211A\262 \242\211\203\310\211@\317\312\320\236A\321\236AB\"\322\"\203\300\323\236A\324\236A\320\236A\321\236A\323\236\f@Z\\\241\210\324\236\325\326\327\323\f\236A#!\241\210\203\267\203\247\320\236\330\n\331#\241\210\211\203\267\321\236\330\n\331#\241\210B\262\266\210A\266\202\202H\210A@ZT\\\262\266A\266\202\202\210\211\237\266\202)\240\210\305\331\240\210\307\205\332\307!\203\372\307\302\242\303\242\"\207\333\307@\302\242\303\242\307A$\207" [V0 V1 V2 V3 V4 V5 V6 V7 V8 annotations nil 3 signal wrong-number-of-arguments (_filename file-pages region) delq edges markup-edges pdf-virtual--filter-edges page id intern format "%s/%d" pdf-util-edges-transform t functionp apply] 26 "\n\n(fn &rest _)"] annotations 3 signal wrong-number-of-arguments (filename file-pages _region) pdf-info-getannots pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 25 (#$ . 60687)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-getannot definition-name getannot (pdf-virtual-getannot . pdf-info-getannot)] 4) #@191 PDF virtual adapter to `pdf-info-getannot'. This function delegates to `pdf-info-getannot', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN ID &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-getannot #[770 "C\301!\204 ;\203\202?\205p\211\2034\301!\203(\302!?\2021\211;\203:\303!?\203:\242\"\207\211;\203D\304!\262r\301!\203N\211q\210\305\242!\306C\307 \310\311\"\216\312\313\"\203v\314\315\316\"!\240\210\317\315\320\"!\240\210)\210\211\242\203\321\242!\211G\322U\203\221\211A\262\242\202\230\323\324\325GD\"\306\211A\262\210\306\211C\306C\306C\306Cp\326\327\330\"\310\331#\310\332\n\n\n\n\n\n\n& \333D\334\242 \"\210)\211\335 \210)?\205\242\204\367\336\337 !\340=\203\367\341\337 \342\"\210\202\340\242\204 \336\337 !\340=\204 \343\344!\210\242\203\343\345 \242\"\210\242\266\217\202\205\306C\306C\306C\306Cp\326\327\306\"\306\310\346 \n\n\n\n\n\n&\211\335 \210)?\205\203\242\204a\336\337 !\340=\203a\341\337 \342\"\210\202J\242\204s\336\337 !\340=\204s\343\344!\210\242\203\200\343\345 \242\"\210\242\266\213)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect symbol-name nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\(.*\\)/\\([0-9]+\\)\\'" intern match-string 1 string-to-number 2 pdf-virtual-document-page 3 signal wrong-number-of-arguments (filename _ _) mapcar copy-sequence ((result)) #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\310\307\236A\301\303\242??\240\210\302\303\242\206\215r\305q\210@\311\300\242!\312G\313U\203,\211A\262\210\2024\314\315\316GD\"\210\312\211A\262\210\242\317\236\300\242\241\210\320\236A\321\236A\322\236A\320 \236\323\324\325\317\236A#!\241\210\203\207\203w\321 \236\326\327#\241\210\211\203\207\322 \236\326\327#\241\210\266\211\262)\240\210\304\327\240\210\306\205\256\330\306!\203\244\306\301\242\302\242\"\207\331\306@\301\242\302\242\306A$\207" [V0 V1 V2 V3 V4 V5 V6 V7 result pdf-virtual-document-page nil 3 signal wrong-number-of-arguments (_ _ region) page id edges markup-edges intern format "%s/%d" pdf-util-edges-transform t functionp apply] 19 "\n\n(fn &rest _)"] result pdf-info-getannot pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s" #[128 "\301\303\242??\240\210\302\303\242\206r\305q\210\307\310\300\242\")\240\210\304\311\240\210\306\2058\312\306!\203.\306\301\242\302\242\"\207\313\306@\301\242\302\242\306A$\207" [V0 V1 V2 V3 V4 V5 V6 error "No such annotation: %s" t functionp apply] 6 "\n\n(fn &rest _)"]] 29 (#$ . 63253)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-addannot definition-name addannot (pdf-virtual-addannot . pdf-info-addannot)] 4) #@223 PDF virtual adapter to `pdf-info-addannot'. This function delegates to `pdf-info-addannot', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN PAGE EDGES TYPE &optional FILE-OR-BUFFER &rest MARKUP-EDGES) (defalias 'pdf-virtual-addannot #[1412 "\300!\204 ;\203\202p\211\203-\300!\203!\301!?\202*\211;\203=\302!?\203=\303&\207\211;\203G\304!\262r\300!\203Q\211q\210\305\306\307C\")\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p apply find-file-noselect signal pdf-virtual-unsupported-operation addannot] 14 (#$ . 66295)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-delannot definition-name delannot (pdf-virtual-delannot . pdf-info-delannot)] 4) #@191 PDF virtual adapter to `pdf-info-delannot'. This function delegates to `pdf-info-delannot', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN ID &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-delannot #[770 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2037\302!?\2037\"\207\211;\203A\303!\262r\300!\203K\211q\210\304\305\306C\")\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect signal pdf-virtual-unsupported-operation delannot] 7 (#$ . 67075)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-mvannot definition-name mvannot (pdf-virtual-mvannot . pdf-info-mvannot)] 4) #@195 PDF virtual adapter to `pdf-info-mvannot'. This function delegates to `pdf-info-mvannot', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN ID EDGES &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-mvannot #[1027 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2038\302!?\2038#\207\211;\203B\303!\262r\300!\203L\211q\210\304\305\306C\")\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect signal pdf-virtual-unsupported-operation mvannot] 9 (#$ . 67815)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-editannot definition-name editannot (pdf-virtual-editannot . pdf-info-editannot)] 4) #@207 PDF virtual adapter to `pdf-info-editannot'. This function delegates to `pdf-info-editannot', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN ID MODIFICATIONS &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-editannot #[1027 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2038\302!?\2038#\207\211;\203B\303!\262r\300!\203L\211q\210\304\305\306C\")\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect signal pdf-virtual-unsupported-operation editannot] 9 (#$ . 68566)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-save definition-name save (pdf-virtual-save . pdf-info-save)] 4) #@180 PDF virtual adapter to `pdf-info-save'. This function delegates to `pdf-info-save', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-save #[513 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2036\302!?\2036!\207\211;\203@\303!\262r\300!\203J\211q\210\304\305\306C\")\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect signal pdf-virtual-unsupported-operation save] 6 (#$ . 69313)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-getattachment-from-annot definition-name getattachment-from-annot (pdf-virtual-getattachment-from-annot . pdf-info-getattachment-from-annot)] 4) #@231 PDF virtual adapter to `pdf-info-getattachment-from-annot'. This function delegates to `pdf-info-getattachment-from-annot', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN ID &optional DO-SAVE FILE-OR-BUFFER) (defalias 'pdf-virtual-getattachment-from-annot #[1026 "C\301!\204 ;\203\202?\205p\211\2034\301!\203(\302!?\2021\211;\203;\303!?\203;\242#\207\211;\203E\304!\262r\301!\203O\211q\210\305\242!\306\307 \310\311\"\216\312\313\"\203t\314\315\316\"!\240\210\317\315\320\"!\262)\210\211\203\251\321!\211G\322U\203\215\211A\262\242\202\224\323\324\325GD\"\306\211A\262\210\306\326\242 #\266\206\202\306C\306C\306C\306Cp\327\330\306\"\306\310\331 \n\n\n\n\n\n&\211\332 \210)?\205\242\204\354\333\334 !\335=\203\354\336\334 \337\"\210\202\325\242\204\376\333\334 !\335=\204\376\340\341!\210\242\203 \340\342 \242\"\210\242\266\213)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect symbol-name nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\(.*\\)/\\([0-9]+\\)\\'" intern match-string 1 string-to-number 2 pdf-virtual-document-page 3 signal wrong-number-of-arguments (filename _ _) pdf-info-getattachment-from-annot mapcar copy-sequence #[128 "\301\303\242??\240\210\302\303\242\206r\305q\210\307\310\300\242\")\240\210\304\311\240\210\306\2058\312\306!\203.\306\301\242\302\242\"\207\313\306@\301\242\302\242\306A$\207" [V0 V1 V2 V3 V4 V5 V6 error "No such annotation: %s" t functionp apply] 6 "\n\n(fn &rest _)"] pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 25 (#$ . 70100)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-getattachments definition-name getattachments (pdf-virtual-getattachments . pdf-info-getattachments)] 4) #@208 PDF virtual adapter to `pdf-info-getattachments'. This function delegates to `pdf-info-getattachments', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional DO-SAVE FILE-OR-BUFFER) (defalias 'pdf-virtual-getattachments #[769 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2037\303!?\2037\"\207\211;\203A\304!\262r\301!\203K\211q\210\305C\305C\305C\305Cp\306\307\310\"\311\312#\311\313       &\314D\315\311\316\"\317 \"\210)\211\320 \210)?\205\304\242\204\242\321\322 !\323=\203\242\324\322 \325\"\210\202\213\242\204\264\321\322 !\323=\204\264\326\327!\210\242\203\301\326\330 \242\"\210\242\266\211)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect nil mapcar copy-sequence ((results)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\307\306\236A\300\302\242??\240\210\301\302\242\206r\304q\210\310\311\")\240\210\303\312\240\210\305\205;\313\305!\2031\305\300\242\301\242\"\207\310\305@\300\242\301\242\305A$\207" [V0 V1 V2 V3 V4 V5 V6 results apply append t functionp] 7 "\n\n(fn &rest _)"] results mapc #[257 "\301\300\"\207" [V0 pdf-info-getattachments] 4 "\n\n(fn F)"] pdf-virtual-document-filenames pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 21 (#$ . 72100)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-synctex-forward-search definition-name synctex-forward-search (pdf-virtual-synctex-forward-search . pdf-info-synctex-forward-search)] 4) #@235 PDF virtual adapter to `pdf-info-synctex-forward-search'. This function delegates to `pdf-info-synctex-forward-search', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN SOURCE &optional LINE COLUMN FILE-OR-BUFFER) (defalias 'pdf-virtual-synctex-forward-search #[1282 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2039\302!?\2039$\207\211;\203C\303!\262r\300!\203M\211q\210\304\305\306C\")\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect signal pdf-virtual-unsupported-operation synctex-forward-search] 11 (#$ . 73884)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-synctex-backward-search definition-name synctex-backward-search (pdf-virtual-synctex-backward-search . pdf-info-synctex-backward-search)] 4) #@227 PDF virtual adapter to `pdf-info-synctex-backward-search'. This function delegates to `pdf-info-synctex-backward-search', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN PAGE &optional X Y FILE-OR-BUFFER) (defalias 'pdf-virtual-synctex-backward-search #[1282 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2039\302!?\2039$\207\211;\203C\303!\262r\300!\203M\211q\210\304!\211G\305U\203`\211A\262\242\202g\306\307\310GD\"\211A\262\242\242\311  B\"\211\203\204\211A\262\242\202\213\306\307\312GD\"\313$\266\206)\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual-document-page 3 signal wrong-number-of-arguments (filename file-page region) pdf-util-edges-transform (x &rest y) pdf-info-synctex-backward-search] 17 (#$ . 74763)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-renderpage definition-name renderpage (pdf-virtual-renderpage . pdf-info-renderpage)] 4) #@218 PDF virtual adapter to `pdf-info-renderpage'. This function delegates to `pdf-info-renderpage', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN PAGE WIDTH &optional FILE-OR-BUFFER &rest COMMANDS) (defalias 'pdf-virtual-renderpage #[1155 "\300!\204 ;\203\202p\211\203-\300!\203!\301!?\202*\211;\203:\302!?\203:\303%\207\211;\203D\304!\262r\300!\203N\211q\210\305!\203\\B\262\306\262\307!\211G\310U\203o\211A\262\242\202v\311\312\313GD\"\211A\262\242\242\211\203\240\314\315D\"\262\316\317\320\321\3228@Z]\245]_!\262\303\323\n\n%\266\204)\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p apply find-file-noselect keywordp nil pdf-virtual-document-page 3 signal wrong-number-of-arguments (filename file-page region) append :crop-to round 1 1.0 1e-06 2 pdf-info-renderpage] 17 (#$ . 75827)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-boundingbox definition-name boundingbox (pdf-virtual-boundingbox . pdf-info-boundingbox)] 4) #@199 PDF virtual adapter to `pdf-info-boundingbox'. This function delegates to `pdf-info-boundingbox', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN PAGE &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-boundingbox #[770 "\301!\204 \211;\203\211\202\211?\205p\211\2032\301!\203&\302!?\202/\211;\2037\303!?\2037\"\207\211;\203A\304!\262r\301!\203K\211q\210\305!\211G\306U\203^\211A\262\242\202e\307\310\311GD\"\211A\262\242\242\312C\312C\312C\312Cp\313\314\315\"\316\317#\316\320\n\n\n\n\n\n\n\n& \321D \204\245\322  \"\210)\211\323 \210)?\205\352\242\204\310\324\325 !\326=\203\310\327\325 \330\"\210\202\261\242\204\332\324\325 !\326=\204\332\331\332!\210\242\203\347\331\333 \242\"\210\242\266\215)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect pdf-virtual-document-page 3 signal wrong-number-of-arguments (filename file-page region) nil mapcar copy-sequence ((results)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\310\307\236A\301\303\242??\240\210\302\303\242\206$r\305q\210\300\203!\311\211\312\211F\202#@)\240\210\304\313\240\210\306\205E\314\306!\203;\306\301\242\302\242\"\207\315\306@\301\242\302\242\306A$\207" [V0 V1 V2 V3 V4 V5 V6 V7 results 0 1 t functionp apply] 7 "\n\n(fn &rest _)"] results pdf-info-boundingbox pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 26 (#$ . 76916)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-pagelabels definition-name pagelabels (pdf-virtual-pagelabels . pdf-info-pagelabels)] 4) #@192 PDF virtual adapter to `pdf-info-pagelabels'. This function delegates to `pdf-info-pagelabels', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-pagelabels #[513 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2036\302!?\2036!\207\211;\203@\303!\262r\300!\203J\211q\210\304\305\306C\")\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect signal pdf-virtual-unsupported-operation pagelabels] 6 (#$ . 78757)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-setoptions definition-name setoptions (pdf-virtual-setoptions . pdf-info-setoptions)] 4) #@206 PDF virtual adapter to `pdf-info-setoptions'. This function delegates to `pdf-info-setoptions', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional FILE-OR-BUFFER &rest OPTIONS) (defalias 'pdf-virtual-setoptions #[641 "\301!\204 ;\203\202p\211\203-\301!\203!\302!?\202*\211;\2033\303!?\2033\304#\207\211;\203=\305!\262r\301!\203G\211q\210\306!\203UB\262\307\262\307C\307C\307C\307Cp\310\311\312\"\313\314#\313\315       &\316D\317 \211\203\225\211@\304\320#\210A\266\202\202\201\210)\211\321 \210)?\205\333\242\204\271\322\323 !\324=\203\271\325\323 \326\"\210\202\242\242\204\313\322\323 !\324=\204\313\327\330!\210\242\203\330\327\331 \242\"\210\242\266\211)\207" [pdf-info-asynchronous bufferp pdf-virtual-buffer-p pdf-virtual-filename-p apply find-file-noselect keywordp nil mapcar copy-sequence ((_)) make-closure #[771 "\203\300\242?\205\300\240\207\211\301\236\211\302AC\"\241\262\207" [V0 V1 append] 8 "\n\n(fn STATUS RESULT VAR)"] #[128 "\307\300\302\242??\240\210\301\302\242\206r\304q\210)\307\240\210\303\310\240\210\305\2055\311\305!\203+\305\300\242\301\242\"\207\312\305@\300\242\301\242\305A$\207" [V0 V1 V2 V3 V4 V5 V6 nil t functionp apply] 7 "\n\n(fn &rest _)"] _ pdf-virtual-document-filenames pdf-info-setoptions pdf-info-ping process-status pdf-info-process run accept-process-output 0.01 error "The epdfinfo server quit unexpectedly." "epdfinfo: %s"] 21 (#$ . 79512)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-getoptions definition-name getoptions (pdf-virtual-getoptions . pdf-info-getoptions)] 4) #@192 PDF virtual adapter to `pdf-info-getoptions'. This function delegates to `pdf-info-getoptions', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-getoptions #[513 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2036\302!?\2036!\207\211;\203@\303!\262r\300!\203J\211q\210\304\305\306C\")\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect signal pdf-virtual-unsupported-operation getoptions] 6 (#$ . 81214)]) (byte-code "\301\302\303\304#\210\305\235\204\305B\301\207" [pdf-virtual-adapter-alist put pdf-virtual-encrypted-p definition-name encrypted-p (pdf-virtual-encrypted-p . pdf-info-encrypted-p)] 4) #@194 PDF virtual adapter to `pdf-info-encrypted-p'. This function delegates to `pdf-info-encrypted-p', unless the FILE-OR-BUFFER argument denotes a VPDF document. (fn FN &optional FILE-OR-BUFFER) (defalias 'pdf-virtual-encrypted-p #[513 "\300!\204 \211;\203\211\202\211?\205p\211\2032\300!\203&\301!?\202/\211;\2036\302!?\2036!\207\211;\203@\303!\262r\300!\203J\211q\210)\304\207" [bufferp pdf-virtual-buffer-p pdf-virtual-filename-p find-file-noselect nil] 5 (#$ . 81973)]) (provide 'pdf-virtual)