;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\310\311\312\313\314\315%\210\316\317\320\321\322DD\323\314\311\324\325&\210\326\317!\210\316\327\320\321\330DD\331\314\311\324\332&\210\316\333\320\321\334DD\335\324\336\314\311&\210\316\337\320\321\340DD\341\314\311\324\332&\210\316\342\320\321\343DD\344\314\311\324\336&\210\316\345\320\321\346DD\347\314\311\324\336&\210\350\351\352\353\314\311\314\354&\210\350\355\356\357\314\311\314\354&\210\316\360\320\321\361DD\362\314\311\324\363&\210\316\364\320\321\365DD\366\314\311\324\367&\210\316\370\320\321\371DD\372\314\311\324\367&\210\316\373\320\321\374DD\375\314\311\324\367&\210\316\376\320\321\377DD\201@\314\311\324\336&\210\316\201A\320\321\201BDD\201C\314\311\324\201D\201E\201F& \210\316\201G\320\321\201HDD\201I\314\311\324\201J&\210\316\201K\320\321\201LDD\201M\314\311\324\336&\210\316\201N\320\321\201ODD\201P\314\311\324\201Q&\207" [require image-mode pdf-util pdf-info pdf-cache jka-compr bookmark password-cache custom-declare-group pdf-view nil "View PDF documents." :group pdf-tools custom-declare-variable pdf-view-display-size funcall function #[0 "\300\207" [fit-width] 1] "The desired size of displayed pages.\n\nThis may be one of `fit-height', `fit-width', `fit-page' or a\nnumber as a scale factor applied to the document's size. Any\nother value behaves like `fit-width'." :type (choice number (const fit-height) (const fit-width) (const fit-page)) make-variable-buffer-local pdf-view-resize-factor #[0 "\300\207" [1.25] 1] "Fractional amount of resizing of one resize command." number pdf-view-continuous #[0 "\300\207" [t] 1] "In Continuous mode reaching the page edge advances to next/previous page.\n\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 pdf-view-bounding-box-margin #[0 "\300\207" [0.05] 1] "Fractional margin used for slicing with the bounding-box." pdf-view-use-imagemagick #[0 "\300\207" [nil] 1] "Whether imagemagick should be used for rendering.\n\nThis variable has no effect, if imagemagick was not compiled into\nEmacs or if imagemagick is the only way to display PNG images.\nFIXME: Explain dis-/advantages of imagemagick and png." pdf-view-use-scaling #[0 "\300\207" [nil] 1] "Whether images should be allowed to be scaled down for rendering.\n\nThis variable has no effect, if imagemagick was not compiled into\nEmacs or `pdf-view-use-imagemagick' is nil. FIXME: Explain\ndis-/advantages of imagemagick and png." custom-declare-face pdf-view-region ((((background dark)) (:inherit region)) (((background light)) (:inherit region))) "Face used to determine the colors of the region." pdf-tools-faces pdf-view-rectangle ((((background dark)) (:inherit highlight)) (((background light)) (:inherit highlight))) "Face used to determine the colors of the highlighted rectangle." pdf-view-midnight-colors #[0 "\300\207" [("#839496" . "#002b36")] 1] "Colors used when `pdf-view-midnight-minor-mode' is activated.\n\nThis should be a cons (FOREGROUND . BACKGROUND) of colors." (cons (color :tag "Foreground") (color :tag "Background")) pdf-view-change-page-hook #[0 "\300\207" [nil] 1] "Hook run after changing to another page, but before displaying it.\n\nSee also `pdf-view-before-change-page-hook' and\n`pdf-view-after-change-page-hook'." hook pdf-view-before-change-page-hook #[0 "\300\207" [nil] 1] "Hook run before changing to another page.\n\nSee also `pdf-view-change-page-hook' and\n`pdf-view-after-change-page-hook'." pdf-view-after-change-page-hook #[0 "\300\207" [nil] 1] "Hook run after changing to and displaying another page.\n\nSee also `pdf-view-change-page-hook' and\n`pdf-view-before-change-page-hook'." pdf-view-use-dedicated-register #[0 "\300\207" [t] 1] "Whether to use dedicated register for PDF positions.\n\nIf this is non-nil, the commands `pdf-view-position-to-register'\nand `pdf-view-jump-to-register' use the buffer-local variable\n`pdf-view-register-alist' to store resp. retrieve marked\npositions. Otherwise the common variable `register-alist' is\nused." pdf-view-image-relief #[0 "\300\207" [0] 1] "Add a shadow rectangle around the page's image.\n\nSee :relief property in Info node `(elisp) Image Descriptors'." (integer :tag "Pixel") :link (info-link "(elisp) Image Descriptors") pdf-view-max-image-width #[0 "\300\207" [4800] 1] "Maximum width of any image displayed in pixel." (integer :tag "Pixel") pdf-view-use-unicode-ligther #[0 "\300\207" [t] 1] "Whether to use unicode symbols in the mode-line\n\nOn some systems finding a font which supports those symbols can\ntake some time. If you don't want to spend that time waiting and\ndon't care for a nicer looking mode-line, set this variable to\nnil.\n\nNote, that this option has only an effect when this library is\nloaded." pdf-view-incompatible-modes #[0 "\300\207" [(linum-mode linum-relative-mode helm-linum-relative-mode nlinum-mode nlinum-hl-mode nlinum-relative-mode yalinum-mode)] 1] "A list of modes incompatible with `pdf-view-mode'.\n\nIssue a warning, if one of them is active in a PDF buffer." (repeat symbol)] 10) #@78 The active region as a list of edges. Edge values are relative coordinates. (defvar pdf-view-active-region nil (#$ . 5342)) (make-variable-buffer-local 'pdf-view-active-region) #@242 Non-nil if the region is currently rendered as a rectangle. This variable is set in `pdf-view-mouse-set-region' and used in `pdf-view-mouse-extend-region' to determine the right choice regarding display of the region in the later function. (defvar pdf-view--have-rectangle-region nil (#$ . 5527)) (make-variable-buffer-local 'pdf-view--have-rectangle-region) #@35 Local copy of remote file or nil. (defvar pdf-view--buffer-file-name nil (#$ . 5893)) (make-variable-buffer-local 'pdf-view--buffer-file-name) #@47 The servers notion of this buffer's filename. (defvar pdf-view--server-file-name nil (#$ . 6042)) (make-variable-buffer-local 'pdf-view--server-file-name) #@45 Timer used in `pdf-view-next-page-command'. (defvar pdf-view--next-page-timer nil (#$ . 6203)) (make-variable-buffer-local 'pdf-view--next-page-timer) #@29 Alist of hotspot functions. (defvar pdf-view--hotspot-functions nil (#$ . 6360)) (make-variable-buffer-local 'pdf-view--hotspot-functions) #@46 Local, dedicated register for PDF positions. (defvar pdf-view-register-alist nil (#$ . 6505)) (make-variable-buffer-local 'pdf-view-register-alist) #@25 (fn &optional WINDOW) (defalias 'pdf-view-current-page '(macro . #[256 "\300\301E\207" [image-mode-window-get 'page] 4 (#$ . 6659)])) #@25 (fn &optional WINDOW) (defalias 'pdf-view-current-overlay '(macro . #[256 "\300\301E\207" [image-mode-window-get 'overlay] 4 (#$ . 6802)])) #@25 (fn &optional WINDOW) (defalias 'pdf-view-current-image '(macro . #[256 "\300\301E\207" [image-mode-window-get 'image] 4 (#$ . 6951)])) #@25 (fn &optional WINDOW) (defalias 'pdf-view-current-slice '(macro . #[256 "\300\301E\207" [image-mode-window-get 'slice] 4 (#$ . 7096)])) #@25 (fn &optional WINDOW) (defalias 'pdf-view-current-window-size '(macro . #[256 "\300\301E\207" [image-mode-window-get 'window-size] 4 (#$ . 7241)])) #@39 Return t if there are active regions. (defalias 'pdf-view-active-region-p #[0 "??\207" [pdf-view-active-region] 1 (#$ . 7398)]) #@49 Signal an error if there are no active regions. (defalias 'pdf-view-assert-active-region '(macro . #[0 "\300\207" [(unless (pdf-view-active-region-p) (error "The region is not active"))] 1 (#$ . 7533)])) #@74 Keymap used by `pdf-view-mode' when displaying a doc as a set of images. (defvar pdf-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\315#\210\303\316\307#\210\303\317\311#\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\331#\210\303\333\334#\210\303\335\336#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\303\345\346#\210\303\347\346#\210\303\350\351#\210\303\352\353#\210\303\354\355#\210\303\356\357#\210\303\360\361#\210\303\362\363#\210\303\364\365#\210\303\366\367#\210\303\370\371#\210\303\372\373#\210\303\374\373#\210\303\375\376#\210\303\377\201@#\210\303\201A\201B#\210\303\201C\201D#\210\303\201E\201D#\210\303\201F\201G#\210\303\201H\201I#\210\303\201J\201K#\210\303\201L\201M#\210\303\201N\201O#\210\303\201P\201Q#\210\303\201R\201S#\210\207" [image-mode-map make-sparse-keymap set-keymap-parent define-key "Q" kill-this-buffer "n" pdf-view-next-page-command "p" pdf-view-previous-page-command [next] forward-page [prior] backward-page [remap forward-page] [remap backward-page] " " pdf-view-scroll-up-or-next-page [33554464] pdf-view-scroll-down-or-previous-page "" "" pdf-view-next-line-or-next-page [down] "" pdf-view-previous-line-or-previous-page [up] [134217788] pdf-view-first-page [134217790] pdf-view-last-page [remap goto-line] pdf-view-goto-page [134217831 108] pdf-view-goto-label " " image-next-line "+" pdf-view-enlarge "=" "-" pdf-view-shrink "0" pdf-view-scale-reset "W" pdf-view-fit-width-to-window "H" pdf-view-fit-height-to-window "P" pdf-view-fit-page-to-window "sm" pdf-view-set-slice-using-mouse "sb" pdf-view-set-slice-from-bounding-box "sr" pdf-view-reset-slice "" doc-view-mode "g" revert-buffer "r" [down-mouse-1] pdf-view-mouse-set-region [M-down-mouse-1] pdf-view-mouse-set-region-rectangle [C-down-mouse-1] pdf-view-mouse-extend-region [remap kill-region] pdf-view-kill-ring-save [remap kill-ring-save] [remap mark-whole-buffer] pdf-view-mark-whole-page "" pdf-view-dark-minor-mode "m" pdf-view-position-to-register "'" pdf-view-jump-to-register " " pdf-view-extract-region-image "m" pdf-view-midnight-minor-mode "p" pdf-view-printer-minor-mode] 5) (#$ . 7743)) (defvar pdf-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-view-mode-hook variable-documentation put "Hook run after entering PDFView 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-view-mode-map definition-name pdf-view-mode] 4) (defvar pdf-view-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\210\302\305\310\311#\207" [pdf-view-mode-map variable-documentation put purecopy "Keymap for `pdf-view-mode'." pdf-view-mode derived-mode-parent special-mode custom-mode-group pdf-view] 5) #@318 Major mode in PDF buffers. PDFView Mode is an Emacs PDF viewer. It displays PDF files as PNG images in Emacs buffers. In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `pdf-view-mode-hook', as the final or penultimate step during initialization. \{pdf-view-mode-map} (defalias 'pdf-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 !\210\f\204>\321@\205:\322@!)\204c\323 \203c\324@\203P\325@!\202R\326 \327P!\330\321\211\321\331%\210\306\332!\210\333 \210\334\335!\203s\306\335!\210\336\334\337!\203\200\306\337!\210\340\341\342\343\321\307$\210\344ed\345\307$\210\306\346!\210\347&\306\350!\210\321(\306\351!\210\352 )\306\353!\210\354+\306\355!\210\321-\306\356!\210\307.\306\357!\210\321/\306\360!\210\3610\306\362!\210\3632\306\364!\210\3214A\204\335\365 \210\306\366!\210\3076\334\367!\203\3767\203\376\370B\371\"\203\376\306\367!\210\3217\341\372\373\321\307$\210\341\374\375\321\307$\210\341\376\377\321\307$\210\341\201C\201D\321\307$\210\201E\201F\201G\"\210\341\201H\201I\321\307$\210\201J \210\201K\201L\321\201Mp$\210\201N\201O\201P\321\"\206W\201L!\210)\201Q\201R!\207" [delay-mode-hooks major-mode mode-name pdf-view-mode-map jka-compr-really-do-compress file-name-handler-alist make-local-variable t special-mode pdf-view-mode "PDFView" mode-class put keymap-parent set-keymap-parent current-local-map use-local-map nil file-readable-p pdf-tools-pdf-buffer-p pdf-util-make-temp-file file-name-nondirectory buffer-name "-" write-region no-message pdf-view--buffer-file-name pdf-view-decrypt-document boundp mwheel-scroll-up-function pdf-view-scroll-up-or-next-page mwheel-scroll-down-function pdf-view-scroll-down-or-previous-page add-hook change-major-mode-hook #[0 "\300ed\301\302$\207" [remove-overlays pdf-view t] 5] remove-overlays pdf-view mode-line-position (" P" (:eval (number-to-string (pdf-view-current-page))) "/" (:eval (or (ignore-errors (number-to-string (pdf-cache-number-of-pages))) "???"))) auto-hscroll-mode pdf-view--server-file-name pdf-view-buffer-file-name scroll-conservatively 0 cursor-type buffer-read-only view-read-only bookmark-make-record-function pdf-view-bookmark-make-record revert-buffer-function pdf-view-revert-buffer buffer-auto-save-file-name buffer-disable-undo transient-mark-mode cua-mode version< "24.4" window-configuration-change-hook pdf-view-maybe-redisplay-resized-windows deactivate-mark-hook pdf-view-deactivate-region write-contents-functions pdf-view--write-contents-function buffer-file-name buffer-undo-list emacs-version kill-buffer-hook pdf-view-close-document pdf-view-add-hotspot-function pdf-view-text-regions-hotspots-function -9 image-mode-new-window-functions pdf-view-new-window-function image-mode-setup-winprops run-with-timer 1 #[257 "\300!\205 \301!\207" [buffer-live-p pdf-view-check-incompatible-modes] 3 "\n\n(fn BUFFER)"] pdf-view-goto-page image-mode-window-get page run-mode-hooks pdf-view-mode-hook] 7 (#$ . 10786) nil]) (byte-code "\301\302\"\204\303\304\305\"\210\306\307\310\304#\210\301\207" [emacs-version version< "24.4" defalias cua-copy-region--pdf-view-advice #[128 "\301=\205\n\302 \210\303\207" [major-mode pdf-view-mode pdf-view-kill-ring-save t] 3 "If the current buffer is in `pdf-view' mode, call\n`pdf-view-kill-ring-save'.\n\n(fn &rest _)"] advice-add cua-copy-region :before-until] 4) #@84 Check BUFFER for incompatible modes, maybe issue a warning. (fn &optional BUFFER) (defalias 'pdf-view-check-incompatible-modes #[256 "r\211\206pq\210\301\302\"\211\205\303\304\305\306\307\310\311#\"\"\262)\207" [pdf-view-incompatible-modes cl-remove-if-not #[257 "\2119\205 \300!\205 \211J\207" [boundp] 3 "\n\n(fn MODE)"] display-warning pdf-view format "These modes are incompatible with `pdf-view-mode',\n please deactivate them (or customize pdf-view-incompatible-modes): %s" mapconcat symbol-name ","] 10 (#$ . 14273)]) #@60 Read a password, if the document is encrypted and open it. (defalias 'pdf-view-decrypt-document #[0 "\300 \203F\301\302\303\304 !\"\305\304 P\306\307\310V\203;\300 \203;S\262\311\"\262\312\262\31317\314\307\"0\210\202\210\202\314\307\"\210\315\"\266\307\207" [pdf-info-encrypted-p format "Enter password for `%s': " abbreviate-file-name buffer-file-name "/pdf-tools" 3 nil 0 password-read "Invalid password, try again: " (error) pdf-info-open password-cache-add] 7 (#$ . 14816) nil]) #@166 Return the local filename of the PDF in the current buffer. This may be different from variable `buffer-file-name' when operating on a local copy of a remote file. (defalias 'pdf-view-buffer-file-name #[0 "\206\301 \207" [pdf-view--buffer-file-name buffer-file-name] 1 (#$ . 15327)]) #@61 Function for `write-contents-functions' to save the buffer. (defalias 'pdf-view--write-contents-function #[0 "\302 \2050\303!\304\305\"\216\306\307 \310#\210\311!\210 \203\"\306 \310#\210\312 \210\313\314!\210\315 )\310\262\207" [pdf-view--server-file-name pdf-view--buffer-file-name pdf-util-pdf-buffer-p pdf-info-save make-closure #[0 "\301\300!\205 \302\300!\207" [V0 file-exists-p delete-file] 2] copy-file buffer-file-name t pdf-info-close clear-visited-file-modtime set-buffer-modified-p nil pdf-view-buffer-file-name] 5 (#$ . 15621)]) #@166 Revert buffer while preseving current modes. Optional parameters IGNORE-AUTO and NOCONFIRM are defined as in `revert-buffer'. (fn &optional IGNORE-AUTO NOCONFIRM) (defalias 'pdf-view-revert-buffer #[512 "\302\303!\205\303\304B\305\306#\307\310!\210*\207" [after-revert-hook revert-buffer-function fboundp revert-buffer--default pdf-info-close revert-buffer preserve-modes pdf-view-redisplay t] 6 (#$ . 16180) (byte-code "?C\207" [current-prefix-arg] 1)]) #@138 Return immediately after closing document. This function always suceeds. See also `pdf-info-close', which does not return immediately. (defalias 'pdf-view-close-document #[0 "\301 \205\302\3031\304 0\202\210\305)\207" [pdf-info-asynchronous pdf-info-running-p ignore (error) pdf-info-close nil] 1 (#$ . 16652)]) #@101 Fit PDF to window. Choose the larger of PDF's height and width, and fits that dimension to window. (defalias 'pdf-view-fit-page-to-window #[0 "\301\302\303!\210\304\303!\210\305\306!\207" [pdf-view-display-size fit-page image-set-window-vscroll 0 image-set-window-hscroll pdf-view-redisplay t] 2 (#$ . 16980) nil]) #@27 Fit PDF height to window. (defalias 'pdf-view-fit-height-to-window #[0 "\301\302\303!\210\304\305!\207" [pdf-view-display-size fit-height image-set-window-vscroll 0 pdf-view-redisplay t] 2 (#$ . 17303) nil]) #@25 Fit PDF size to window. (defalias 'pdf-view-fit-width-to-window #[0 "\301\302\303!\210\304\305!\207" [pdf-view-display-size fit-width image-set-window-hscroll 0 pdf-view-redisplay t] 2 (#$ . 17518) nil]) #@170 Enlarge PDF by FACTOR. When called interactively, uses the value of `pdf-view-resize-factor'. For example, (pdf-view-enlarge 1.25) increases size by 25%. (fn FACTOR) (defalias 'pdf-view-enlarge #[257 "\301 \302\303\304\305\"!\306@!\306@!\245_\307\310!\207" [pdf-view-display-size pdf-view-image-size pdf-cache-pagesize image-mode-window-get page nil float pdf-view-redisplay t] 6 (#$ . 17730) (byte-code "\301!C\207" [pdf-view-resize-factor float] 2)]) #@168 Shrink PDF by FACTOR. When called interactively, uses the value of `pdf-view-resize-factor'. For example, (pdf-view-shrink 1.25) decreases size by 20%. (fn FACTOR) (defalias 'pdf-view-shrink #[257 "\300\301\245!\207" [pdf-view-enlarge 1.0] 4 (#$ . 18199) (byte-code "\301!C\207" [pdf-view-resize-factor float] 2)]) #@31 Reset PDF to its default set. (defalias 'pdf-view-scale-reset #[0 "\301\302\303!\207" [pdf-view-display-size 1.0 pdf-view-redisplay t] 2 (#$ . 18525) nil]) #@117 Go to PAGE in PDF. If optional parameter WINDOW, go to PAGE in all `pdf-view' windows. (fn PAGE &optional WINDOW) (defalias 'pdf-view-goto-page #[513 "\300Y\203 \301 X\204\302\303\"\210\211\204#\304 \203 \305 \202!\306\262\307 r\310\311\"\216\312!\2035\313!\210\314\315\"=?\211\203Q\316\317!\210\320\315#\266\316\321!\210\312!\203[\322!\210\211\203i\323 \210\324 \210\316\325!\210\210*\210\326\207" [1 pdf-cache-number-of-pages error "No such page: %d" pdf-util-pdf-window-p selected-window t internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] window-live-p select-window image-mode-window-get page run-hooks pdf-view-before-change-page-hook image-mode-window-put pdf-view-change-page-hook pdf-view-redisplay pdf-view-deactivate-region force-mode-line-update pdf-view-after-change-page-hook nil] 9 (#$ . 18689) (byte-code "\203\n\301!\202 \302\303!C\207" [current-prefix-arg prefix-numeric-value read-number "Page: "] 2)]) #@95 View the next page in the PDF. Optional parameter N moves N pages forward. (fn &optional N) (defalias 'pdf-view-next-page #[256 "\300\301\302\303\"\206\n\304\\!\207" [pdf-view-goto-page image-mode-window-get page nil 1] 5 (#$ . 19715) "p"]) #@100 View the previous page in the PDF. Optional parameter N moves N pages backward. (fn &optional N) (defalias 'pdf-view-previous-page #[256 "\300\206\301[!\207" [pdf-view-next-page 1] 3 (#$ . 19967) "p"]) #@217 View the next page in the PDF. Optional parameter N moves N pages forward. This command is a wrapper for `pdf-view-next-page' that will indicate to the user if they are on the last page and more. (fn &optional N) (defalias 'pdf-view-next-page-command #[256 "\211\204\302\262\303\304\305\"\\\306 V\203\307\310!\210\303\304\305\"\\\302W\203&\307\311!\210\312\313\303\304\305\"\\!\210)\314 \210\315\316!\210 \203C\317 !\210\305\320 \203g\211\316V\203X\303\304\305\"\306 U\204g\211\316W\203j\303\304\305\"\302U\203j\321 \207\322\323\305\321\324 $\211\207" [pdf-view-inhibit-redisplay pdf-view--next-page-timer 1 image-mode-window-get page nil pdf-cache-number-of-pages user-error "Last page" "First page" t pdf-view-goto-page force-mode-line-update sit-for 0 cancel-timer input-pending-p pdf-view-redisplay run-with-idle-timer 0.001 selected-window] 6 (#$ . 20181) "p"]) (byte-code "\300\301\302\303#\300\207" [function-put pdf-view-next-page-command interactive-only pdf-view-next-page] 4) #@157 View the previous page in the PDF. Optional parameter N moves N pages backward. This command is a wrapper for `pdf-view-previous-page'. (fn &optional N) (defalias 'pdf-view-previous-page-command #[256 "\300\206\301[!\207" [pdf-view-next-page-command 1] 3 (#$ . 21196) "p"]) (byte-code "\300\301\302\303#\300\207" [function-put pdf-view-previous-page-command interactive-only pdf-view-previous-page] 4) #@22 View the first page. (defalias 'pdf-view-first-page #[0 "\300\301!\207" [pdf-view-goto-page 1] 2 (#$ . 21610) nil]) #@21 View the last page. (defalias 'pdf-view-last-page #[0 "\300\301 !\207" [pdf-view-goto-page pdf-cache-number-of-pages] 2 (#$ . 21732) nil]) #@258 Scroll page up ARG lines if possible, else go to the next page. When `pdf-view-continuous' is non-nil, scrolling upward at the bottom edge of the page moves to the next page. Otherwise, go to next page only on typing SPC (ARG is nil). (fn &optional ARG) (defalias 'pdf-view-scroll-up-or-next-page #[256 "\204\211\2046\302 \303\304\305\"\306 \307!U\204 \310>\2055\311 \210\211\303\304\305\"U\2040\312 \210\313\314!\210\315\316 \"\207\307!\207" [pdf-view-continuous pdf-view-display-size window-hscroll image-mode-window-get page nil window-vscroll image-scroll-up (fit-height fit-page) pdf-view-next-page image-bob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 21878) "P"]) #@271 Scroll page down ARG lines if possible, else go to the previous page. When `pdf-view-continuous' is non-nil, scrolling downward at the top edge of the page moves to the previous page. Otherwise, go to previous page only on typing DEL (ARG is nil). (fn &optional ARG) (defalias 'pdf-view-scroll-down-or-previous-page #[256 "\204\211\2046\302 \303\304\305\"\306 \307!U\204 \310>\2055\311 \210\211\303\304\305\"U\2040\312 \210\313\314!\210\315\316 \"\207\307!\207" [pdf-view-continuous pdf-view-display-size window-hscroll image-mode-window-get page nil window-vscroll image-scroll-down (fit-height fit-page) pdf-view-previous-page image-eob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 22582) "P"]) #@206 Scroll upward by ARG lines if possible, else go to the next page. When `pdf-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 'pdf-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" [pdf-view-continuous window-hscroll image-mode-window-get page nil window-vscroll image-next-line pdf-view-next-page image-bob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 23311) "p"]) #@215 Scroll downward by ARG lines if possible, else go to the previous page. When `pdf-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 'pdf-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" [pdf-view-continuous window-hscroll image-mode-window-get page nil window-vscroll image-previous-line pdf-view-previous-page image-eob image-bol 1 set-window-hscroll selected-window] 7 (#$ . 23900) "p"]) #@135 Go to the page corresponding to LABEL. Usually, the label of a document's page is the same as its displayed page number. (fn LABEL) (defalias 'pdf-view-goto-label #[257 "\300\301 \302\303$\211\204\304\305\"\210\306T!\207" [cl-position pdf-info-pagelabels :test equal error "No such label: %s" pdf-view-goto-page] 6 (#$ . 24511) (byte-code "\300 \301\302\303\304$\262C\207" [pdf-info-pagelabels completing-read "Goto label: " nil t] 6)]) #@213 Set the slice of the pages that should be displayed. X, Y, WIDTH and HEIGHT should be relative coordinates, i.e. in [0;1]. To reset the slice use `pdf-view-reset-slice'. (fn X Y WIDTH HEIGHT &optional WINDOW) (defalias 'pdf-view-set-slice #[1284 "\300\301\"F\232?\205$\211\302\301\303\304    F\"#\266\305!\207" [image-mode-window-get slice image-mode-window-put mapcar #[257 "\300\301^]\207" [0 1] 4 "\n\n(fn V)"] pdf-view-redisplay] 14 (#$ . 24964)]) #@218 Set the slice of the images that should be displayed. Set the slice by pressing `mouse-1' at its top-left corner and dragging it to its bottom-right corner. See also `pdf-view-set-slice' and `pdf-view-reset-slice'. (defalias 'pdf-view-set-slice-using-mouse #[0 "\300 \301\211\211\211\211\211\204M\302\303!\211@\304=\203I\305!\3068\262@\262\305!\3068\262A\262\307!\3068\262@Z\262\307!\3068\262AZ\262\310\262\210\202\311\312\313F\314\315 @!\245\314\315\fA!\245B\"\"\207" [pdf-view-image-size 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 apply pdf-view-set-slice pdf-util-scale 1.0 float] 14 (#$ . 25440) nil]) #@260 Set the slice from the page's bounding-box. The result is that the margins are almost completely cropped, much more accurate than could be done manually using `pdf-view-set-slice-using-mouse'. See also `pdf-view-bounding-box-margin'. (fn &optional WINDOW) (defalias 'pdf-view-set-slice-from-bounding-box #[256 "\301\302\303\"!\304\206\f\304]@\305\245ZA@\305\245Z\3068@Z\\\3078A@Z\\F\310\311\312\2058C\"\"\207" [pdf-view-bounding-box-margin pdf-cache-boundingbox image-mode-window-get page 0 2.0 2 3 apply pdf-view-set-slice append] 9 (#$ . 26179) nil]) #@116 Reset the current slice. After calling this function the whole page will be visible again. (fn &optional WINDOW) (defalias 'pdf-view-reset-slice #[256 "\300\301\"\203\211\302\301\303#\266\304!\210\303\207" [image-mode-window-get slice image-mode-window-put nil pdf-view-redisplay] 6 (#$ . 26761) nil]) #@129 Non-nil if Pdf-View-Auto-Slice minor mode is enabled. Use the command `pdf-view-auto-slice-minor-mode' to change this variable. (defvar pdf-view-auto-slice-minor-mode nil (#$ . 27078)) (make-variable-buffer-local 'pdf-view-auto-slice-minor-mode) #@696 Automatically slice pages according to their bounding boxes. This is a minor mode. If called interactively, toggle the `Pdf-View-Auto-Slice 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 `pdf-view-auto-slice-minor-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. See also `pdf-view-set-slice-from-bounding-box'. (fn &optional ARG) (defalias 'pdf-view-auto-slice-minor-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311 \210\203_\312\305\211\306#\211\203T\211@\313!\203M\314!\210A\266\202\202=\210\315\316\314\305\306$\210\202e\317\316\314\306#\210\320\321\203o\322\202p\323\"\210\324\325!\203\222\302 \203\204\211\302 \232\203\222\326\327\203\216\330\202\217\331\332#\210\210\333 \210\207" [pdf-view-auto-slice-minor-mode local-minor-modes current-message toggle 1 nil t boundp delq pdf-util-assert-pdf-buffer get-buffer-window-list pdf-util-pdf-window-p pdf-view-set-slice-from-bounding-box add-hook pdf-view-change-page-hook remove-hook run-hooks pdf-view-auto-slice-minor-mode-hook pdf-view-auto-slice-minor-mode-on-hook pdf-view-auto-slice-minor-mode-off-hook called-interactively-p any message "Pdf-View-Auto-Slice minor mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 27331) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar pdf-view-auto-slice-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%\207" [pdf-view-auto-slice-minor-mode-map pdf-view-auto-slice-minor-mode-hook variable-documentation put "Hook run after entering or leaving `pdf-view-auto-slice-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-view-auto-slice-minor-mode boundp] 6) (defvar pdf-view-inhibit-redisplay nil) (defvar pdf-view-inhibit-hotspots nil) #@254 Return the image type that should be used. The return value is either `imagemagick' (if available and wanted or if png is not available) or `png'. Signal an error, if neither `imagemagick' nor `png' is available. See also `pdf-view-use-imagemagick'. (defalias 'pdf-view-image-type #[0 "\203\f\301\302!\203\f\303\207\304\305!\203\305\207\301\302!\203\303\207\306\307!\207" [pdf-view-use-imagemagick fboundp imagemagick-types imagemagick image-type-available-p png error "PNG image supported not compiled into Emacs"] 2 (#$ . 29754)]) #@37 Return t if scaling should be used. (defalias 'pdf-view-use-scaling-p #[0 "\301 \302=\205\207" [pdf-view-use-scaling pdf-view-image-type imagemagick] 2 (#$ . 30303)]) #@85 Like `create-image', but with set DATA-P and TYPE arguments. (fn DATA &rest PROPS) (defalias 'pdf-view-create-image '(macro . #[385 "\300\301\302\303\304\"BBBB\207" [create-image (pdf-view-image-type) t append (:relief (or pdf-view-image-relief 0))] 9 (#$ . 30479)])) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put pdf-view-create-image lisp-indent-function 1 put edebug-form-spec t] 5) #@76 Create an image of PAGE for display on WINDOW. (fn PAGE &optional WINDOW) (defalias 'pdf-view-create-page #[513 "\301\"\302@\303 \204@\202\304@_#\305#\306\307 \310\311@\312\313\314\315\2060\316& \207" [pdf-view-image-relief pdf-view-desired-image-size pdf-cache-renderpage pdf-view-use-scaling-p 2 pdf-view-apply-hotspot-functions create-image pdf-view-image-type t :width :map :pointer arrow :relief 0] 17 (#$ . 30894)]) #@203 Return the size in pixel of the current image. If DISPLAYED-P is non-nil, return the size of the displayed image. These values may be different, if slicing is used. (fn &optional DISPLAYED-P WINDOW) (defalias 'pdf-view-image-size #[512 "\203\300\206 \301 !r\302\303\"\216\304@\305\"\210\306\307 \310\"*\207\311\312\313\"\310\"\207" [internal--before-with-selected-window selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord image-display-size image-get-display-property t image-size image-mode-window-get image] 6 (#$ . 31344)]) #@124 Return the offset of the current image. It is equal to (LEFT . TOP) of the current slice in pixel. (fn &optional WINDOW) (defalias 'pdf-view-image-offset #[256 "\300\301\"\211\203\302@A@B\"\207\303\211B\207" [image-mode-window-get slice pdf-util-scale-relative-to-pixel 0] 5 (#$ . 31955)]) #@58 Display page PAGE in WINDOW. (fn PAGE &optional WINDOW) (defalias 'pdf-view-display-page #[513 "\300\301\"\"\207" [pdf-view-display-image pdf-view-create-page] 6 (#$ . 32259)]) #@47 (fn IMAGE &optional WINDOW INHIBIT-SLICE-P) (defalias 'pdf-view-display-image #[769 "\300\301\"\302\303\304\"!\205\227\305\306\"?\205\300\307\"\310\203+\3118\305!@_\2020\305!@!\312\313 #\266\314ed#\210\315\316\317 !V\205\\\320\321\322\323\324\317! Z\311\245E##\210\315\322\203t\307\325\326#B\nD\202v #\210\303\304\"\300\327\"\300\330\"\203\215\331\"\210\211\205\225\332\"\266\206\207" [image-mode-window-get overlay window-live-p overlay-get window image-size t slice floor 2 image-mode-window-put image move-overlay overlay-put before-string window-width propertize " " display space :align-to pdf-util-scale round hscroll vscroll set-window-hscroll set-window-vscroll] 17 (#$ . 32446)]) #@99 Redisplay page in WINDOW. If WINDOW is t, redisplay pages in all windows. (fn &optional WINDOW) (defalias 'pdf-view-redisplay #[256 "?\2053\211\301=\204\302\303\304\"\"\210\2021\305\306\211\301#\211\2030\211@\302\303\304\"\"\210A\266\202\202\210\307 \207" [pdf-view-inhibit-redisplay t pdf-view-display-page image-mode-window-get page get-buffer-window-list nil force-mode-line-update] 7 (#$ . 33191)]) #@51 Redisplay PAGES in all windows. (fn &rest PAGES) (defalias 'pdf-view-redisplay-pages #[128 "\300 \210\301\302\211\303#\211\205\"\211@\304\305\">\203\306!\210A\266\202\202\207" [pdf-util-assert-pdf-buffer get-buffer-window-list nil t image-mode-window-get page pdf-view-redisplay] 6 (#$ . 33615)]) #@43 Redisplay some windows needing redisplay. (defalias 'pdf-view-maybe-redisplay-resized-windows #[0 "\247\206\301 \206\302 \303V?\205e\304\305\211\306#\211\205c\211@\307\310\"\311!\312!B\211\232\204Z\313\310#\266\203Z\314=\203H\211@@=\204Z\315=\203V\211AA=\204Z\316!\210\266A\266\202\202\262\207" [pdf-view-display-size pdf-view-active-region-p minibuffer-depth 0 get-buffer-window-list nil t image-mode-window-get window-size window-width window-height image-mode-window-put fit-width fit-height pdf-view-redisplay] 9 (#$ . 33928)]) #@17 (fn WINPROPS) (defalias 'pdf-view-new-window-function #[257 "\211@\300=\204\301@!p=\204\302\303!\210\304\305\"\211\203*\306!\262\307ed#\210\2028\310ed\311\300$\262\312\313\300#\210\312\314@#\210\315@!\204U@\300=\204Q\302\316!\210\317!\210\320\305#\210\321ed\"\211\203\202\211@\315\322\314\"!\203{\323\322\314\"!\204{\317!\210A\266\202\202_\210\315@!\205\257\304\324\"?\205\257\325@!r\326\327\"\216\330@\331\"\210\332\304\333\300\"\206\253\334!*\262\207" [t window-buffer cl--assertion-failed (or (eq t (car winprops)) (eq (window-buffer (car winprops)) (current-buffer))) image-mode-window-get overlay copy-overlay move-overlay make-overlay nil overlay-put pdf-view window windowp (eq t (car winprops)) delete-overlay image-mode-window-put overlays-in overlay-get window-live-p image internal--before-with-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord pdf-view-goto-page page 1] 8 (#$ . 34498)]) #@30 (fn &optional PAGE WINDOW) (defalias 'pdf-view-desired-image-size #[512 "\302\206 \303\304\"!\303\305\"\306\307\310\"!\3118\206\312\245\306@!\245\313\314!8\314!A@ZS\306!\3138\2067\312\245\306A!\245\247\203K\306!\262\202b\315\267\202_^\262\202b\262\202b\262\316@_!\316A_!\317 \206w]V\203\210 \262\211\306 !\245_\262\317]\317]B\207" [pdf-view-display-size pdf-view-max-image-width pdf-cache-pagesize image-mode-window-get page slice float window-body-width t 2 1.0 3 window-inside-pixel-edges #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (fit-page 81 fit-height 89)) floor 1] 13 (#$ . 35512)]) #@139 Return a list of hotspots for text regions on PAGE using SIZE. This will display a text cursor, when hovering over them. (fn PAGE SIZE) (defalias 'pdf-view-text-regions-hotspots-function #[514 "\300\301\302\"\210\303\304\305\"\306!\"\207" [local-set-key [pdf-view-text-region t] pdf-util-image-map-mouse-event-proxy mapcar make-closure #[257 "\301\300\302#\303@A@B\3048\3058BBB\306B\207" [V0 pdf-util-scale round rect 2 3 (pdf-view-text-region (pointer text))] 7 "\n\n(fn REGION)"] pdf-cache-textregions] 6 (#$ . 36200)]) #@117 Non-nil if Pdf-View-Dark minor mode is enabled. Use the command `pdf-view-dark-minor-mode' to change this variable. (defvar pdf-view-dark-minor-mode nil (#$ . 36738)) (make-variable-buffer-local 'pdf-view-dark-minor-mode) #@681 Mode for PDF documents with dark background. This is a minor mode. If called interactively, toggle the `Pdf-View-Dark 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 `pdf-view-dark-minor-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. This tells the various modes to use their face's dark colors. (fn &optional ARG) (defalias 'pdf-view-dark-minor-mode #[256 "\303 \304=\203 ?\202\247\203\305W\203\306\202\307\310\301!\2031\311\300 \"\2031\300 B\312 \210\310\302!\203M\n\203M\313 \210\314\203J\315\202K\316!\210\317\320\203W\321\202X\322\"\210\323\324!\203z\303 \203l\211\303 \232\203z\325\326\203v\327\202w\330\331#\210\210\332 \210\207" [pdf-view-dark-minor-mode local-minor-modes pdf-isearch-active-mode current-message toggle 1 nil t boundp delq pdf-util-assert-pdf-buffer pdf-isearch-redisplay pdf-isearch-message "dark mode" "light mode" run-hooks pdf-view-dark-minor-mode-hook pdf-view-dark-minor-mode-on-hook pdf-view-dark-minor-mode-off-hook called-interactively-p any message "Pdf-View-Dark minor mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 36967) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar pdf-view-dark-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%\207" [pdf-view-dark-minor-mode-map pdf-view-dark-minor-mode-hook variable-documentation put "Hook run after entering or leaving `pdf-view-dark-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-view-dark-minor-mode boundp] 6) #@123 Non-nil if Pdf-View-Printer minor mode is enabled. Use the command `pdf-view-printer-minor-mode' to change this variable. (defvar pdf-view-printer-minor-mode nil (#$ . 39106)) (make-variable-buffer-local 'pdf-view-printer-minor-mode) #@619 Display the PDF as it would be printed. This is a minor mode. If called interactively, toggle the `Pdf-View-Printer 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 `pdf-view-printer-minor-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'pdf-view-printer-minor-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311 \210\312\203K\313\314\305\306$\210\313\315\305\306$\266\202X\316\314\306#\210\316\315\306#\266\317\320\"\210\321 \210\322\306!\210\323\324\203n\325\202o\326\"\210\327\330!\203\221\302 \203\203\211\302 \232\203\221\331\332\203\215\333\202\216\334\335#\210\210\336 \210\207" [pdf-view-printer-minor-mode local-minor-modes current-message toggle 1 nil t boundp delq pdf-util-assert-pdf-buffer #[0 "\300\301\302\"\207" [pdf-info-setoptions :render/printed t] 3] add-hook after-save-hook after-revert-hook remove-hook pdf-info-setoptions :render/printed pdf-cache-clear-images pdf-view-redisplay run-hooks pdf-view-printer-minor-mode-hook pdf-view-printer-minor-mode-on-hook pdf-view-printer-minor-mode-off-hook called-interactively-p any message "Pdf-View-Printer minor mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 39347) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar pdf-view-printer-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\313\314\300!\205#\310\211%\207" [pdf-view-printer-minor-mode-map pdf-view-printer-minor-mode-hook variable-documentation put "Hook run after entering or leaving `pdf-view-printer-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-view-printer-minor-mode " Prn" boundp] 6) #@125 Non-nil if Pdf-View-Midnight minor mode is enabled. Use the command `pdf-view-midnight-minor-mode' to change this variable. (defvar pdf-view-midnight-minor-mode nil (#$ . 41663)) (make-variable-buffer-local 'pdf-view-midnight-minor-mode) #@724 Apply a color-filter appropriate for past midnight reading. This is a minor mode. If called interactively, toggle the `Pdf-View-Midnight 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 `pdf-view-midnight-minor-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. The colors are determined by the variable `pdf-view-midnight-colors', which see. (fn &optional ARG) (defalias 'pdf-view-midnight-minor-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311 \210\312\203N\313\314\305\306$\210\313\315\305\306$\210\211 \266\202`\316\314\306#\210\316\315\306#\210\317\320\305\"\266\321 \210\322\306!\210\323\324\203q\325\202r\326\"\210\327\330!\203\224\302 \203\206\211\302 \232\203\224\331\332\203\220\333\202\221\334\335#\210\210\336 \210\207" [pdf-view-midnight-minor-mode local-minor-modes current-message toggle 1 nil t boundp delq pdf-util-assert-pdf-buffer #[0 "\301\302@\206\303\304A\206\305\306\307&\207" [pdf-view-midnight-colors pdf-info-setoptions :render/foreground "black" :render/background "white" :render/usecolors t] 7] add-hook after-save-hook after-revert-hook remove-hook pdf-info-setoptions :render/usecolors pdf-cache-clear-images pdf-view-redisplay run-hooks pdf-view-midnight-minor-mode-hook pdf-view-midnight-minor-mode-on-hook pdf-view-midnight-minor-mode-off-hook called-interactively-p any message "Pdf-View-Midnight minor mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 8 (#$ . 41908) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar pdf-view-midnight-minor-mode-hook nil) (byte-code "\303\304N\204\f\305\303\304\306#\210\305\303\307\310#\210\305\303\311\312C#\210\313\314\315\316\300!\205#\312\211%\210 \203I\317\320\321!!\203:\322\n\236\323C\241\210\317\320\324!!\203I\314\n\236\325C\241\210\312\207" [pdf-view-midnight-minor-mode-map pdf-view-use-unicode-ligther minor-mode-alist pdf-view-midnight-minor-mode-hook variable-documentation put "Hook run after entering or leaving `pdf-view-midnight-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-view-midnight-minor-mode " Mid" boundp fontp char-displayable-p 9113 pdf-view-printer-minor-mode " ⎙" 127769 " 🌙"] 6) #@380 Register FN as a hotspot function in the current buffer, using LAYER. FN will be called in the PDF buffer with the page-number and the image size (WIDTH . HEIGHT) as arguments. It should return a list of hotspots applicable to the the :map image-property. LAYER determines the order: Functions in a higher LAYER will supercede hotspots in lower ones. (fn FN &optional LAYER) (defalias 'pdf-view-add-hotspot-function #[513 "\211\206\301BB\211\207" [pdf-view--hotspot-functions 0] 4 (#$ . 44694)]) #@69 Unregister FN as a hotspot function in the current buffer. (fn FN) (defalias 'pdf-view-remove-hotspot-function #[257 "\301\302\303$\211\207" [pdf-view--hotspot-functions cl-remove :key cdr] 6 (#$ . 45205)]) (defalias 'pdf-view-sorted-hotspot-functions #[0 "\301\302\303\304!\305\306\307$\"\207" [pdf-view--hotspot-functions mapcar cdr cl-sort copy-sequence > :key car] 7]) #@31 (fn WINDOW PAGE IMAGE-SIZE) (defalias 'pdf-view-apply-hotspot-functions #[771 "?\205&\301 r\302\303\"\216\203\304!\210\305\306\307\302\310#\311 \"\"*\262\207" [pdf-view-inhibit-hotspots internal--before-save-selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-save-selected-window] 2] select-window apply nconc mapcar #[257 "\211\300\301\"\207" [V0 V1] 4 "\n\n(fn FN)"] pdf-view-sorted-hotspot-functions] 11 (#$ . 45589)]) (defalias 'pdf-view--push-mark #[0 "\302\303\302!\210)\302\211\207" [mark-ring deactivate-mark nil push-mark-command] 2]) #@124 Return the active region, a list of edges. Deactivate the region if DEACTIVATE-P is non-nil. (fn &optional DEACTIVATE-P) (defalias 'pdf-view-active-region #[256 "\301 \204 \302\303!\210\203\304 \210\207" [pdf-view-active-region pdf-view-active-region-p error "The region is not active" pdf-view-deactivate-region] 3 (#$ . 46174)]) #@24 Deactivate the region. (defalias 'pdf-view-deactivate-region #[0 "\205\f\301\302 \210\303\304!\207" [pdf-view-active-region nil deactivate-mark pdf-view-redisplay t] 2 (#$ . 46518) nil]) #@281 Select a region of text using the mouse with mouse event EVENT. Allow for stacking of regions, if ALLOW-EXTEND-P is non-nil. Create a rectangular region, if RECTANGLE-P is non-nil. Stores the region in `pdf-view-active-region'. (fn EVENT &optional ALLOW-EXTEND-P RECTANGLE-P) (defalias 'pdf-view-mouse-set-region #[769 "\211\305!\203\306!\204\307\310\306D\"\210\203( \311N\203+ \311N\312 \232\204+\313 \210\314 \311\312 #\210\312 \315!\316C\3178\262\203K\3208\262\202U\211\321\240\210\3228\262C\3228\262C\321\211C\321C\323\324\325\n\n     &!\210\211\242\203\205 \203\205\326 !\211\242\262\205\225\327\f\242C\"\330 )\207" [pdf-view--have-rectangle-region this-command pdf-view-continuous unread-command-events pdf-view-active-region eventp mouse-event-p signal wrong-type-argument pdf-view-region-window selected-window pdf-view-deactivate-region put event-start t 7 8 nil 2 internal--track-mouse make-closure #[0 "\307\310C\311 C\312\313 \211\211\242\314=\262\203:\"\310X\203!\306\315\240\210\316!\211\3178\262\301\211@\262=\2059\3208\262\211\204B\302\242\203\211\203\234\302\242\204\234\3218\262\211@\303\242@ZA\303\242AZB\322\315!\303\310@@@Z^]\310AAAZ^]B\240\210\304@@\303\242@ZZAA\303\242AZZB\240\210\302\315\240\266\202\326\302\242\203\326\211\204\326\3218\262\211@\304\242@ZA\304\242AZB\322\315!\310@\303\242@@\\^]\310A\303\242AA\\^]B\262\266\300\203\366\303\242@@^\303\242AA^\303\242@@]\303\242AA]F\202\303\242@\303\242A@AF\305\323!\240\210\324\305\242B\300\"\210\325!\266\266\326\262#\210\313\326\211\2050\310\"]#\2065\211\262\202 \211\205G\327C\"\211\207" [V0 V1 V2 V3 V4 V5 V6 0.15 0 float-time #[770 "\211\203 \240\210\300 \240\210\242\242\\\300 Z\207" [float-time] 5 "\n\n(fn SECONDS TIMESTAMP &optional SECS)"] read-event mouse-movement t event-start 8 7 2 pdf-view-image-size pdf-util-scale-pixel-to-relative pdf-view-display-region pdf-util-scroll-to-edges nil append pdf-view-active-region unread-command-events] 17] butlast append pdf-view--push-mark] 21 (#$ . 46715) "@e"]) #@72 Extend the currently active region with mouse event EVENT. (fn EVENT) (defalias 'pdf-view-mouse-extend-region #[257 "\301\302#\207" [pdf-view--have-rectangle-region pdf-view-mouse-set-region t] 5 (#$ . 48856) "@e"]) #@174 Like `pdf-view-mouse-set-region' but displays as a rectangle. EVENT is the mouse event. This is more useful for commands like `pdf-view-extract-region-image'. (fn EVENT) (defalias 'pdf-view-mouse-set-region-rectangle #[257 "\300\301\302#\207" [pdf-view-mouse-set-region nil t] 5 (#$ . 49082) "@e"]) #@37 (fn &optional REGION RECTANGLE-P) (defalias 'pdf-view-display-region #[512 "\204\303 \204 \304\305!\210\262\306\203\307\202\310\311\301!\205! \"\312\313\314\"\315 @\316\317\203C\320\314@ A\321 BBB$\202S\322\314\211 @\nA BB%\323 \324\325\n\206\\\326%!\207" [pdf-view-active-region pdf-view-dark-minor-mode pdf-view-image-relief pdf-view-active-region-p error "The region is not active" pdf-util-face-colors pdf-view-rectangle pdf-view-region boundp image-mode-window-get page nil pdf-view-image-size pdf-view-display-image create-image pdf-info-renderpage-highlight 0.35 pdf-info-renderpage-text-regions pdf-view-image-type t :relief 0] 15 (#$ . 49391)]) #@37 Copy the region to the `kill-ring'. (defalias 'pdf-view-kill-ring-save #[0 "\300 \204 \301\302!\210\303 \304 \210\305\306\307\310#!\207" [pdf-view-active-region-p error "The region is not active" pdf-view-active-region-text pdf-view-deactivate-region kill-new mapconcat identity "\n"] 6 (#$ . 50080) nil]) #@22 Mark the whole page. (defalias 'pdf-view-mark-whole-page #[0 "\301 \210\302\211\303\211FC\304 \210\305 \207" [pdf-view-active-region pdf-view-deactivate-region 0 1 pdf-view--push-mark pdf-view-display-region] 4 (#$ . 50394) nil]) #@60 Return the text of the active region as a list of strings. (defalias 'pdf-view-active-region-text #[0 "\301 \204 \302\303!\210\304\305\306\307\310\311\"\"\"\207" [pdf-view-active-region pdf-view-active-region-p error "The region is not active" mapcar apply-partially pdf-info-gettext image-mode-window-get page nil] 6 (#$ . 50631)]) #@619 Create a PNG image of REGIONS. REGIONS should have the same form as `pdf-view-active-region', which see. PAGE and SIZE are the page resp. base-size of the image from which the image-regions will be created; they default to `pdf-view-current-page' resp. `pdf-view-image-size'. Put the image in OUTPUT-BUFFER, defaulting to "*PDF region image*" and display it, unless NO-DISPLAY-P is non-nil. In case of multiple regions, the resulting image is constructed by joining them horizontally. For this operation (and this only) the `convert' programm is used. (fn REGIONS &optional PAGE SIZE OUTPUT-BUFFER NO-DISPLAY-P) (defalias 'pdf-view-extract-region-image #[1281 "CC\242\204\301\302\303\"\240\210\211\242\204\211\304 \240\210\204#\305\306!\262\307\310\311#\"\303C\310\312#\216G\313U\203C\211@\240\210\202Z\211\314\315!\240\210\316\317\242\320\321\322\323\"B\324\325&\210rq\210\326\327 \210)\330\303!\210\331\242!\210\332 \210?\205x\333p!*\207" [inhibit-read-only image-mode-window-get page nil pdf-view-image-size get-buffer-create "*PDF image*" mapcar make-closure #[257 "\303\304!\305\306\307\300\242\301\242@\310$\311\311\312%\210)\207" [V0 V1 coding-system-for-write make-temp-file "pdf-view" binary write-region pdf-info-renderpage :crop-to nil no-message] 8 "\n\n(fn EDGES)"] #[0 "\301\242\300B\211\205\211@\302!\203\303!\210A\266\202\202\207" [V0 V1 file-exists-p delete-file] 4] 1 make-temp-file "pdf-view" pdf-util-convert "-noop" :commands "(" append ("-background" "white" "-splice" "0x10+0+0" ")" "-gravity" "Center" "-append" "+gravity" "-chop" "0x10+0+0") :apply ((0 0 0 0)) t erase-buffer set-buffer-multibyte insert-file-contents-literally image-mode pop-to-buffer] 17 (#$ . 50973) (byte-code "\300 \203 \301\302!\202\f\303C\207" [pdf-view-active-region-p pdf-view-active-region t ((0 0 1 1))] 2)]) #@138 Create a bookmark PDF record. The optional, boolean args exclude certain attributes. (fn &optional NO-PAGE NO-SLICE NO-SIZE NO-ORIGIN) (defalias 'pdf-view-bookmark-make-record #[1024 "p\301 =\302 \303\304\305\306\307#?\205\310\311\310\305\"B?\205(\312\205'\311\312\305\"B?\2051\313B?\205N\314\205M\315\305\306\"\316@A@B\305\306#\262B\317BBBB\"B\207" [pdf-view-display-size window-buffer buffer-name append bookmark-make-record-default nil t 1 page image-mode-window-get slice size origin pdf-util-image-displayed-edges pdf-util-scale-pixel-to-relative ((handler . pdf-view-bookmark-jump-handler))] 17 (#$ . 52843)]) #@112 The bookmark handler-function interface for bookmark BMK. See also `pdf-view-bookmark-make-record'. (fn BMK) (defalias 'pdf-view-bookmark-jump-handler #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\306\307!\211\310\311&M\210\312\313\"\210\314!\2066\315!q\207" [bookmark-prop-get page slice size origin filename make-symbol "pdf-view-bookmark-after-jump-hook" make-closure #[0 "\306\307\304\"\210\310\311!\204\311 \210\312\313p\314\"\206\315 !r\316\317\"\216\320@\321\"\210\302\203/\322\305!\210\302\301\2038\323\324\301\"\210\300\247\203A\325\300!\210\303\205c\326\327!\330\331\303@@_\332 \245!!\210\333\331\303AA_\334 \245!!\262*\207" [V0 V1 V2 V3 V4 pdf-view-display-size remove-hook bookmark-after-jump-hook derived-mode-p pdf-view-mode internal--before-with-selected-window get-buffer-window 0 selected-window make-closure #[0 "\301\300!\207" [V0 internal--after-with-selected-window] 2] select-window norecord make-local-variable apply pdf-view-set-slice pdf-view-goto-page pdf-view-image-size t image-set-window-hscroll round frame-char-width image-set-window-vscroll frame-char-height] 6] add-hook bookmark-after-jump-hook find-buffer-visiting find-file-noselect] 15 (#$ . 53490)]) #@234 Switch to bookmark BMK. This function is like `bookmark-jump', but it always uses the selected window for display and does not run any hooks. Also, it works only with bookmarks created by `pdf-view-bookmark-make-record'. (fn BMK) (defalias 'pdf-view-bookmark-jump #[257 "\301\302\"\303!\206 \304!\305!\210\306\307!\210\310\300!)\207" [bookmark-after-jump-hook bookmark-prop-get filename find-buffer-visiting find-file-noselect switch-to-buffer nil pdf-view-bookmark-jump-handler run-hooks] 5 (#$ . 54733)]) #@54 Create a PDF register entry of the current position. (defalias 'pdf-view-registerv-make #[0 "\300\301\302\303\211#\304\305\306\307\310\311&\207" [registerv-make pdf-view-bookmark-make-record nil t :print-func pdf-view-registerv-print-func :jump-func pdf-view-bookmark-jump :insert-func #[257 "\300\301\"c\207" [format "%S"] 4 "\n\n(fn BMK)"]] 8 (#$ . 55256)]) #@135 Print a textual representation of bookmark BMK. This function is used as the `:print-func' property with `registerv-make'. (fn BMK) (defalias 'pdf-view-registerv-print-func #[257 "\300\301\"\302!\300\303\"\300\304\"\305\306\307\203\310!\202\206$\311\2032\312\313A_!\2023\314$!\207" [bookmark-prop-get filename find-buffer-visiting page origin princ format "PDF position: %s, page %d, %d%%" buffer-name 1 round 100 0] 13 (#$ . 55625)]) #@173 Setup the proper binding for `register-alist' in BODY. This macro may not work as desired when it is nested. See also `pdf-view-use-dedicated-register'. (fn &rest BODY) (defalias 'pdf-view-with-register-alist '(macro . #[128 "\300\301!\302\303B\304\305\306BBDD\307\310B\311\312BBEE\207" [make-symbol "dedicated-p" let* (pdf-view-use-dedicated-register) register-alist if (pdf-view-register-alist register-alist) unwind-protect progn when ((setq pdf-view-register-alist register-alist))] 9 (#$ . 56089)])) (byte-code "\300\301\302\303#\210\304\301\305\306#\300\207" [put pdf-view-with-register-alist edebug-form-spec t function-put lisp-indent-function 0] 4) #@96 Store current PDF position in register REGISTER. See also `point-to-register'. (fn REGISTER) (defalias 'pdf-view-position-to-register #[257 "\211\203 \202\n\n\303\304\"\216\305\306 \"*\207" [pdf-view-use-dedicated-register pdf-view-register-alist register-alist make-closure #[0 "\300\205 \211\207" [V0 register-alist pdf-view-register-alist] 2] set-register pdf-view-registerv-make] 5 (#$ . 56760) (byte-code "\211\203 \202\n\n\303\304\"\216\305\306!*\262C\207" [pdf-view-use-dedicated-register pdf-view-register-alist register-alist make-closure #[0 "\300\205 \211\207" [V0 register-alist pdf-view-register-alist] 2] register-read-with-preview "Position to register: "] 4)]) #@160 Move point to a position stored in a REGISTER. Optional parameter DELETE is defined as in `jump-to-register'. (fn REGISTER &optional DELETE RETURN-REGISTER) (defalias 'pdf-view-jump-to-register #[769 "\211\203 \202\n\n\303\304\"\216\205\305 \306\"\210\205#\307\"\262*\207" [pdf-view-use-dedicated-register pdf-view-register-alist register-alist make-closure #[0 "\300\205 \211\207" [V0 register-alist pdf-view-register-alist] 2] pdf-view-registerv-make jump-to-register set-register] 8 (#$ . 57466) (byte-code "\211\203 \202\n\n\305\306\"\216\307\310! \204\311\302!\205%\312\f!\205%\fE*\207" [pdf-view-use-dedicated-register pdf-view-register-alist register-alist current-prefix-arg last-command-event make-closure #[0 "\300\205 \211\207" [V0 register-alist pdf-view-register-alist] 2] register-read-with-preview "Jump to register: " local-variable-p characterp] 5)]) (provide 'pdf-view)