ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-docview.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306#\210\307\310\311\"\207" [require org doc-view org-add-link-type "docview" org-docview-open org-docview-export add-hook org-store-link-functions org-docview-store-link] 4)
#@39 Export a docview link from Org files.
(defalias 'org-docview-export #[(link description format) "\305\306\"\205 \307\310\"\n\206 ;\205H \311\312 !!\f\313=\203+ \304\314 #\202H \f\315=\2039 \304\316 #\202H \f\317=\203G \304\320 #\202H *\207" [link path description desc format string-match "\\(.+\\)::.+" match-string 1 org-link-escape expand-file-name html "<a href=\"%s\">%s</a>" latex "\\href{%s}{%s}" ascii "%s (%s)"] 4 (#$ . 636)])
(defalias 'org-docview-open #[(link) "\303\304\"\205 \305\306\"\307\305\310\"!\311 \306\"\210\312\n!*\207" [link path page string-match "\\(.*\\)::\\([0-9]+\\)$" match-string 1 string-to-number 2 org-open-file doc-view-goto-page] 4])
#@35 Store a link to a docview buffer.
(defalias 'org-docview-store-link #[nil "\306=\205 \307\303!\310\n\311\312 !R \313 \314\315\316\317\f\320\n&,\207" [major-mode buffer-file-name path page link description doc-view-mode image-mode-window-get "docview:" "::" number-to-string "" org-store-link-props :type "docview" :link :description] 7 (#$ . 1331)])
#@130 Use the existing file name completion for file.
Links to get the file name, then ask the user for the page number
and append it.
(defalias 'org-docview-complete-link #[nil "\300\301\302\303 #\304\305\306\307\"Q\207" [replace-regexp-in-string "^file:" "docview:" org-file-complete-link "::" read-from-minibuffer "Page:" "1"] 5 (#$ . 1694)])
(provide 'org-docview)
Kontol Shell Bypass