;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\310\316\312\317\314\311%\207" [require pdf-view pdf-util pdf-info cus-edit compile cl-lib package custom-declare-group pdf-tools nil "Support library for PDF documents." :group data pdf-tools-faces "Faces determining the colors used in the pdf-tools package.\n\nIn order to customize dark and light colors use\n`pdf-tools-customize-faces', or set `custom-face-default-form' to\n'all."] 6) (defconst pdf-tools-modes '(pdf-history-minor-mode pdf-isearch-minor-mode pdf-links-minor-mode pdf-misc-minor-mode pdf-outline-minor-mode pdf-misc-size-indication-minor-mode pdf-misc-menu-bar-minor-mode pdf-annot-minor-mode pdf-sync-minor-mode pdf-misc-context-menu-minor-mode pdf-cache-prefetch-minor-mode pdf-view-auto-slice-minor-mode pdf-occur-global-minor-mode pdf-virtual-global-minor-mode)) (byte-code "\301\302\303\304\305DD\306\307\310\311\312\313\314\"B&\210\301\315\303\304\316DD\317\307\310\311\320&\207" [pdf-tools-modes custom-declare-variable pdf-tools-enabled-modes funcall function #[0 "\300\207" [(pdf-history-minor-mode pdf-isearch-minor-mode pdf-links-minor-mode pdf-misc-minor-mode pdf-outline-minor-mode pdf-misc-size-indication-minor-mode pdf-misc-menu-bar-minor-mode pdf-annot-minor-mode pdf-sync-minor-mode pdf-misc-context-menu-minor-mode pdf-cache-prefetch-minor-mode pdf-occur-global-minor-mode)] 1] "A list of automatically enabled minor-modes.\n\nPDF Tools is build as a series of minor-modes. This variable and\nthe function `pdf-tools-install' merely serve as a convenient\nwrapper in order to load these modes in current and newly created\nPDF buffers." :group pdf-tools :type set mapcar #[257 "\300D\207" [function-item] 3 "\n\n(fn MODE)"] pdf-tools-enabled-hook #[0 "\300\207" [nil] 1] "A hook ran after PDF Tools is enabled in a buffer." hook] 11) #@41 The entry to use for `auto-mode-alist'. (defconst pdf-tools-auto-mode-alist-entry '("\\.[pP][dD][fF]\\'" . pdf-view-mode) (#$ . 1998)) #@42 The entry to use for `magic-mode-alist'. (defconst pdf-tools-magic-mode-alist-entry '("%PDF" . pdf-view-mode) (#$ . 2139)) #@22 Customize Pdf Tools. (defalias 'pdf-tools-customize #[0 "\300\301!\207" [customize-group pdf-tools] 2 (#$ . 2268) nil]) #@29 Customize PDF Tool's faces. (defalias 'pdf-tools-customize-faces #[0 "\301\302\303\304!\"\305\306!!\203r\306!q\210\307 \210)\310\304!\210r\211q\210\311\300!\210\312\211)\207" [custom-face-default-form format "*Customize Group: %s*" custom-unlispify-tag-name pdf-tools-faces buffer-live-p get-buffer rename-uniquely customize-group make-local-variable all] 4 (#$ . 2394) nil]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301\313\314#\207" [custom-declare-variable pdf-tools-handle-upgrades funcall function #[0 "\300\207" [t] 1] "Whether PDF Tools should handle upgrading itself." :group pdf-tools :type boolean make-obsolete-variable "Not used anymore" "0.90"] 8) #@57 The directory from where this library was first loaded. (defconst pdf-tools-directory (byte-code "\203\n\302!\206 \207" [load-file-name default-directory file-name-directory] 2) (#$ . 3090)) (defvar pdf-tools-msys2-directory nil) #@144 Return non-nil, if DIRECTORY appears to contain the epdfinfo source. Returns the expanded directory-name of DIRECTORY or nil. (fn DIRECTORY) (defalias 'pdf-tools-identify-build-directory #[257 "\300\301!!\262\302\301\303\"!\205\302\301\304\"!\205\211\207" [file-name-as-directory expand-file-name file-exists-p "autobuild" "epdfinfo.c"] 5 (#$ . 3332)]) #@128 Attempt to locate a source directory. Returns a appropriate directory or nil. See also `pdf-tools-identify-build-directory'. (defalias 'pdf-tools-locate-build-directory #[0 "\302\303\304\305 \"\304\306!\304\307 \"F\"\207" [default-directory pdf-tools-directory cl-some pdf-tools-identify-build-directory expand-file-name "build/server" "server" "../server"] 8 (#$ . 3702)]) #@191 Locate the Msys2 installation directory. Ask the user if necessary and NONINTERACTIVE-P is nil. Returns always nil, unless `system-type' equals windows-nt. (fn &optional NONINTERACTIVE-P) (defalias 'pdf-tools-msys2-directory #[256 "\302\303=\205. \206,\304\305\306\307\310\311\"\"\"\206,\206 \312\313!??\205,\211\314\315\316\211\317$!\211\207" [system-type pdf-tools-msys2-directory #[257 "\211;\205\300!\205\301\302\303\"!\205\211\207" [file-directory-p file-exists-p expand-file-name "usr/bin/bash.exe"] 5 "\n\n(fn DIRECTORY)"] windows-nt cl-some cl-mapcan #[257 "\300\301\"\300\302\"D\207" [format "%c:/msys64" "%c:/msys32"] 5 "\n\n(fn DRIVE)"] number-sequence 99 122 y-or-n-p "Do you have Msys2 installed ? " read-directory-name "Please enter Msys2 installation directory: " nil t] 9 (#$ . 4086)]) #@37 Return the location of /mingw*/bin. (defalias 'pdf-tools-msys2-mingw-bin #[0 "\301 \205!\302\303\304\305#@!\306\307\310\311=\203\312\202\313\"\301 \"\262\207" [system-configuration pdf-tools-msys2-directory intern split-string "-" t expand-file-name format "./mingw%s/bin" x86_64 "64" "32"] 6 (#$ . 4915)]) #@21 Locate a usable sh. (defalias 'pdf-tools-find-bourne-shell #[0 "\301=\203\302 \211\205\303\304\"\262\206\305\306!\207" [system-type windows-nt pdf-tools-msys2-directory expand-file-name "usr/bin/bash.exe" executable-find "sh"] 4 (#$ . 5236)]) #@596 Build the epdfinfo program in the background. Install into TARGET-DIRECTORY, which should be a directory. If CALLBACK is non-nil, it should be a function. It is called with the compiled executable as the single argument or nil, if the build falied. Expect sources to be in BUILD-DIRECTORY. If nil, search for it using `pdf-tools-locate-build-directory'. See `pdf-tools-install' for the SKIP-DEPENDENCIES-P and FORCE-DEPENDENCIES-P arguments. Returns the buffer of the compilation process. (fn TARGET-DIRECTORY &optional SKIP-DEPENDENCIES-P FORCE-DEPENDENCIES-P CALLBACK BUILD-DIRECTORY) (defalias 'pdf-tools-build-server #[1281 "C\211\242\204 \211\306\240\210\204\307 \262\310!\204#\311\312\313\314E\"\210\315\316!!\262\2035\310!\204=\311\312\317\320E\"\210\203I\203I\321\322!\210\323\324\325 \326\f\327\316\330\"!\331\n!\332\232\n\204i\321\333!\210\211\203q\334\fB\316\335/\336=\205{\337P \"\340\341\342\327 !\f\203\220\343\202\232 \203\231\344\202\232\345$\324\"\346!\203\254\347\346!!\210\202\260\350!\210r\211q\210\351\352!\210\323*\353\354\355\356#\323\324$\210p)\266\202.\207" [compilation-auto-jump-to-first-error compilation-scroll-output shell-file-name shell-command-switch process-environment default-directory ignore pdf-tools-locate-build-directory file-directory-p signal wrong-type-argument file-directory target-directory file-name-as-directory expand-file-name (and (not null) file-directory) build-directory error "Can't simultaneously skip and force dependencies" nil t pdf-tools-find-bourne-shell "-c" shell-quote-argument "autobuild" file-name-nondirectory "bash.exe" "No suitable shell found" "BASH_ENV=/etc/profile" "epdfinfo" windows-nt ".exe" compilation-start format "%s -i %s%s" " -D" " -d" "" get-buffer-window select-window pop-to-buffer make-local-variable compilation-error-regexp-alist add-hook compilation-finish-functions make-closure #[514 "\300\242\302\232\205 \301!\207" [V0 V1 "finished\n"] 5 "\n\n(fn BUFFER STATUS)"] system-type] 16 (#$ . 5495)]) #@1024 Install PDF-Tools in all current and future PDF buffers. If the `pdf-info-epdfinfo-program' is not running or does not appear to be working, attempt to rebuild it. If this build succeeded, continue with the activation of the package. Otherwise fail silently, i.e. no error is signaled. Build the program (if necessary) without asking first, if NO-QUERY-P is non-nil. Don't attempt to install system packages, if SKIP-DEPENDENCIES-P is non-nil. Do not signal an error in case the build failed, if NO-ERROR-P is non-nil. Attempt to install system packages (even if it is deemed unnecessary), if FORCE-DEPENDENCIES-P is non-nil. Note that SKIP-DEPENDENCIES-P and FORCE-DEPENDENCIES-P are mutually exclusive. Note further, that you can influence the installation directory by setting `pdf-info-epdfinfo-program' to an appropriate value (e.g. ~/bin/epdfinfo) before calling this function. See `pdf-view-mode' and `pdf-tools-enabled-modes'. (fn &optional NO-QUERY-P SKIP-DEPENDENCIES-P NO-ERROR-P FORCE-DEPENDENCIES-P) (defalias 'pdf-tools-install #[1024 "\302 \204\3031\304 \210\3050\202\210\306\203\307 \207;\203$\310!\206% \204/\311\312!\203:\313\314\315\"$\207\316\317!\207" [pdf-info-epdfinfo-program pdf-tools-directory pdf-info-running-p (error) pdf-info-check-epdfinfo t nil pdf-tools-install-noverify file-name-directory y-or-n-p "Need to (re)build the epdfinfo program, do it now ?" pdf-tools-build-server make-closure #[257 "\303\304\203\n\305\202 \306\"\204\300\203\307\202\310\311\"\207\307\311\"\210\312\313 )\207" [V0 pdf-info-epdfinfo-program pdf-info-restart-process-p format "Building the PDF Tools server %s" "succeeded" "failed" message error "%s" t pdf-tools-install-noverify] 5 "\n\n(fn EXECUTABLE)"] message "PDF Tools not activated"] 12 (#$ . 7556) nil]) #@74 Like `pdf-tools-install', but skip checking `pdf-info-epdfinfo-program'. (defalias 'pdf-tools-install-noverify #[0 "\303\304\"\210\303\305 \"\210\306\n>\203\306\307!\210\310\n>\203\310\307!\210\311\312\313\"\210\314 \211\205J\211@r\211q\210\315\316!\204B\317 \203B\320 \203B\316 \210)A\266\202\202%\207" [pdf-tools-auto-mode-alist-entry pdf-tools-magic-mode-alist-entry pdf-tools-enabled-modes add-to-list auto-mode-alist magic-mode-alist pdf-occur-global-minor-mode 1 pdf-virtual-global-minor-mode add-hook pdf-view-mode-hook pdf-tools-enable-minor-modes buffer-list derived-mode-p pdf-view-mode pdf-tools-pdf-buffer-p buffer-file-name] 4 (#$ . 9380)]) #@60 Uninstall PDF-Tools in all current and future PDF buffers. (defalias 'pdf-tools-uninstall #[0 "\305 \210\306\301\307 \"\"\210\306\303\307\n \"\"\210\310\311!\210\312\311!\210\313\314\315\"\210\316 \211\205A\211@r\211q\210\317!\2039\320\f!\210\321 \210)A\266\202\202\"\207" [pdf-tools-auto-mode-alist-entry auto-mode-alist pdf-tools-magic-mode-alist-entry magic-mode-alist pdf-tools-modes pdf-info-quit set-default remove pdf-occur-global-minor-mode -1 pdf-virtual-global-minor-mode remove-hook pdf-view-mode-hook pdf-tools-enable-minor-modes buffer-list pdf-util-pdf-buffer-p pdf-tools-disable-minor-modes normal-mode] 5 (#$ . 10051) nil]) #@74 Return non-nil if BUFFER contains a PDF document. (fn &optional BUFFER) (defalias 'pdf-tools-pdf-buffer-p #[256 "r\211\203\211q\210\212\214~\210\300b\210\301\302!+\207" [1 looking-at "%PDF"] 3 (#$ . 10703)]) #@25 (fn &optional BUFFER) (defalias 'pdf-tools-assert-pdf-buffer #[256 "\300!?\205\n\301\302!\207" [pdf-tools-pdf-buffer-p error "Buffer does not contain a PDF document"] 3 (#$ . 10920)]) #@31 (fn ENABLE &optional MODES) (defalias 'pdf-tools-set-modes-enabled #[513 "\211\206\211\2057\211@\301!\205\211J\211\203\204/\211\204#\203/\203,\302\202-\303!\210\210A\266\202\202\207" [pdf-tools-enabled-modes boundp 1 -1] 7 (#$ . 11114)]) #@105 Enable MODES in the current buffer. MODES defaults to `pdf-tools-enabled-modes'. (fn &optional MODES) (defalias 'pdf-tools-enable-minor-modes #[256 "\300 \210\301\302\"\210\303\304!\207" [pdf-util-assert-pdf-buffer pdf-tools-set-modes-enabled t run-hooks pdf-tools-enabled-hook] 4 (#$ . 11382) nil]) #@106 Disable MODES in the current buffer. MODES defaults to `pdf-tools-enabled-modes'. (fn &optional MODES) (defalias 'pdf-tools-disable-minor-modes #[256 "\300\301\"\207" [pdf-tools-set-modes-enabled nil] 4 (#$ . 11692) nil]) (defalias 'pdf-tools-help #[0 "\306\307C\310\311!\"\210\312\211\223\210\313 B\314\nB\315 \316 \317!\211\312\211\320\321!\210\320\322!\210\323\324\325 !\326\"B\211\205S\211@\320\327\330\"!\210\331!\210\332 \210\332 \210\320\333!\210A\266\202\2021\262\262rq\210\334\312\"\262)\335\336!\203o\336\"\202p\211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output pdf-tools-modes help-setup-xref pdf-tools-help called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup princ "PDF Tools Help\n\n" "\f~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" pdf-view-mode sort copy-sequence string< format "`%s' is " describe-function-1 terpri "\f~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n" temp-buffer-window-show functionp help-window-setup] 10 nil nil]) #@34 Non-nil, if debugging PDF Tools. (defvar pdf-tools-debug nil (#$ . 12848)) (defalias 'pdf-tools-toggle-debug #[0 "?\301\302!\205\303\304\203\305\202\306\"\207" [pdf-tools-debug called-interactively-p any message "Toggled debugging %s" "on" "off"] 3 nil nil]) (provide 'pdf-tools)