ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-w3m.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\302\303\304\"\207" [require org add-hook org-store-link-functions org-w3m-store-link] 3)
#@31 Store a link to a w3m buffer.
(defalias 'org-w3m-store-link #[nil "\303=\205 \304\305\306\307 \310\311\312!\313\n\206 &\207" [major-mode w3m-current-url w3m-current-title w3m-mode org-store-link-props :type "w3m" :link :url url-view-url t :description] 9 (#$ . 525)])
#@285 Copy current buffer content or active region with `org-mode' style links.
This will encode `link-title' and `link-location' with
`org-make-link-string', and insert the transformed test into the kill ring,
so that it can be yanked into an Org-mode buffer with links working correctly.
(defalias 'org-w3m-copy-for-org-mode #[nil "\306 ed\307\211 \307\211 \307 \203& \310 \311 \312\313!\203& \313 \210\314\315!\210\212 b\210\204x \316 \204x `\317`\320\"\204E \321 \210`\nX\203m `V\203Y `{P\317`\320\"`\322 { \323\f
\"P\202. b\210\324\211\2033 `\nW\203\204 `\n{P\325 !\210\314\326!\210\314\327!. \207" [regionp transform-start transform-end return-content link-location link-title org-region-active-p nil region-beginning region-end fboundp deactivate-mark message "Transforming links..." org-w3m-no-next-link-p get-text-property w3m-href-anchor org-w3m-get-next-link-start org-w3m-get-anchor-end org-make-link-string t org-kill-new "Transforming links...done, use C-y to insert text into Org-mode file" "Copy with link transformation complete." temp-position out-bound] 5 (#$ . 805) nil])
#@60 Move cursor to the start of current anchor. Return point.
(defalias 'org-w3m-get-anchor-start #[nil "\300`\301\"\206 `b\207" [previous-single-property-change w3m-anchor-sequence] 3 (#$ . 1926)])
#@58 Move cursor to the end of current anchor. Return point.
(defalias 'org-w3m-get-anchor-end #[nil "\300`\301\"\206 `b\207" [next-single-property-change w3m-anchor-sequence] 3 (#$ . 2129)])
#@55 Move cursor to the start of next link. Return point.
(defalias 'org-w3m-get-next-link-start #[nil "\3002! \301`\302\"\205 \301`\302\"b\210\303`\304\"\203 \305\300\306\"\210\202 0\210`\207" [reach next-single-property-change w3m-anchor-sequence get-text-property w3m-href-anchor throw nil] 3 (#$ . 2324)])
#@59 Move cursor to the start of previous link. Return point.
(defalias 'org-w3m-get-prev-link-start #[nil "\3002! \301`\302\"\205 \301`\302\"b\210\303`\304\"\203 \305\300\306\"\210\202 0\210`\207" [reach previous-single-property-change w3m-anchor-sequence get-text-property w3m-href-anchor throw nil] 3 (#$ . 2639)])
#@107 Whether there is no next link after the cursor.
Return t if there is no next link; otherwise, return nil.
(defalias 'org-w3m-no-next-link-p #[nil "\212`\300 \232)\207" [org-w3m-get-next-link-start] 2 (#$ . 2963)])
#@115 Whether there is no previous link after the cursor.
Return t if there is no previous link; otherwise, return nil.
(defalias 'org-w3m-no-prev-link-p #[nil "\212`\300 \232)\207" [org-w3m-get-prev-link-start] 2 (#$ . 3184)])
(byte-code "\302\300!\203 \303!\203 \304\305\306#\210\304\307\306#\210\302\301!\2030 \303 !\2030 \304 \305\306#\210\304 \307\306#\210\310\311\312\"\210\310\313\314\"\210\315\316!\207" [w3m-mode-map w3m-minor-mode-map boundp keymapp define-key "\367" org-w3m-copy-for-org-mode "" add-hook w3m-mode-hook #[nil "\301\302\303#\210\301\304\303#\207" [w3m-mode-map define-key "\367" org-w3m-copy-for-org-mode ""] 4] w3m-minor-mode-hook #[nil "\301\302\303#\210\301\304\303#\207" [w3m-minor-mode-map define-key "\367" org-w3m-copy-for-org-mode ""] 4] provide org-w3m] 4)
Kontol Shell Bypass