JezK
Edit File: org-w3m.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:53:43 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/org/org-w3m.el ;;; in Emacs version 24.3.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'org) #@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\262 \310 \311 \312\313!\203\262 \307 $%\2040 $\205\260 &\314=\203? %\242\314=\202A &\203| \315 \203| \316 \203| '\203_ \317\320'\"\210\307'\202| \310 \311 U\204| \321\320!\204s \322\320!\204| \317\320\310 \311 {\"\210$\204\235 %\323=\204\226 %\242\314=\203\235 %A\204\235 \307\211%\202\260 %\242\314=\203\252 %A%\307(\324\325!)\210\326\327!\210\212 b\210#\204\330 \204`\"\331`\332\"\204\321 \333 \210`\nX\203\371 `\"V\203\345 \"`{P\331`\332\"`\334 { \335\f \"P\202\272 \"b\210\336\211#\203\277 `\nW\203 `\n{P\337 !\210\326\340!\210\326\341!. \207" [regionp transform-start transform-end return-content link-location link-title org-region-active-p nil region-beginning region-end fboundp deactivate-mark only region-active-p display-selections-p x-set-selection PRIMARY x-selection-owner-p x-selection-exists-p lambda run-hooks deactivate-mark-hook 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 force transient-mark-mode select-active-regions saved-region-selection mark-active] 5 (#$ . 570) 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 (#$ . 2249)]) #@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 (#$ . 2452)]) #@55 Move cursor to the start of next link. Return point. (defalias 'org-w3m-get-next-link-start #[nil "\300\301\215\210`\207" [reach (byte-code "\300`\301\"\203 \300`\301\"b\210\302`\303\"\203 \304\305\306\"\210\202 \306\207" [next-single-property-change w3m-anchor-sequence get-text-property w3m-href-anchor throw reach nil] 3)] 2 (#$ . 2647)]) #@59 Move cursor to the start of previous link. Return point. (defalias 'org-w3m-get-prev-link-start #[nil "\300\301\215\210`\207" [reach (byte-code "\300`\301\"\203 \300`\301\"b\210\302`\303\"\203 \304\305\306\"\210\202 \306\207" [previous-single-property-change w3m-anchor-sequence get-text-property w3m-href-anchor throw reach nil] 3)] 2 (#$ . 2999)]) #@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 (#$ . 3360)]) #@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 (#$ . 3581)]) (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)