ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/xwidget.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!\207" [require cl-lib bookmark] 2)
#@290 Insert an xwidget at position POS.
Supply the xwidget's TYPE, TITLE, WIDTH, and HEIGHT.
See `make-xwidget' for the possible TYPE values.
The usage of optional argument ARGS depends on the xwidget.
This returns the result of `make-xwidget'.
(fn POS TYPE TITLE WIDTH HEIGHT &optional ARGS)
(defalias 'xwidget-insert #[1541 "b\210\300%\301``T\302\303\304E$\210\211\207" [make-xwidget put-text-property display xwidget :xwidget] 14 (#$ . 480)])
#@34 Return xwidget at POS.
(fn POS)
(defalias 'xwidget-at #[257 "\300\301\"\211AA@@\302\232\205 \211\207" [get-text-property display xwidget] 5 (#$ . 936)])
(byte-code "\300\301!\210\300\302!\207" [require browse-url image-mode] 2)
#@212 Ask xwidget-webkit to browse URL.
NEW-SESSION specifies whether to create a new xwidget-webkit session.
Interactively, URL defaults to the string looking like a url around point.
(fn URL &optional NEW-SESSION)
(defalias 'xwidget-webkit-browse-url #[513 "\300\301!\204\n \302\303!\210;\205 \211\203 \304!\207\305!\207" [featurep xwidget-internal user-error "Your Emacs was not compiled with xwidgets support" xwidget-webkit-new-session xwidget-webkit-goto-url] 4 (#$ . 1175) (byte-code "\300\301!\210\302\303!\207" [require browse-url browse-url-interactive-arg "xwidget-webkit URL: "] 2)])
#@35 Keymap for `xwidget-webkit-mode'.
(defvar xwidget-webkit-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\321#\210\301\325\321#\210\301\326\323#\210\301\327\323#\210\301\330\331#\210\301\332\333#\210\301\334\331#\210\301\335\333#\210\211\207" [make-sparse-keymap define-key "g" xwidget-webkit-browse-url "a" xwidget-webkit-adjust-size-dispatch "b" xwidget-webkit-back "r" xwidget-webkit-reload "t" #[0 "\300\301!\207" [message "o"] 2 nil nil] "
" xwidget-webkit-insert-string "w" xwidget-webkit-current-url " " xwidget-webkit-scroll-up "" xwidget-webkit-scroll-down [remap scroll-up] [remap scroll-up-command] [remap scroll-down] [remap scroll-down-command] [remap forward-char] xwidget-webkit-scroll-forward [remap backward-char] xwidget-webkit-scroll-backward [remap right-char] [remap left-char]] 5) (#$ . 1777))
#@19 Scroll webkit up.
(defalias 'xwidget-webkit-scroll-up #[0 "\300\301 \302\303\304$\207" [xwidget-set-adjustment xwidget-webkit-last-session vertical t 50] 5 (#$ . 2756) nil])
#@21 Scroll webkit down.
(defalias 'xwidget-webkit-scroll-down #[0 "\300\301 \302\303\304$\207" [xwidget-set-adjustment xwidget-webkit-last-session vertical t -50] 5 (#$ . 2936) nil])
#@25 Scroll webkit forwards.
(defalias 'xwidget-webkit-scroll-forward #[0 "\300\301 \302\303\304$\207" [xwidget-set-adjustment xwidget-webkit-last-session horizontal t 50] 5 (#$ . 3121) nil])
#@26 Scroll webkit backwards.
(defalias 'xwidget-webkit-scroll-backward #[0 "\300\301 \302\303\304$\207" [xwidget-set-adjustment xwidget-webkit-last-session horizontal t -50] 5 (#$ . 3314) nil])
(byte-code "\300\301 \302\303#\207" [define-key current-global-map [xwidget-event] xwidget-event-handler] 4)
#@38 Log MSG to a buffer.
(fn &rest MSG)
(defalias 'xwidget-log #[128 "\300\301!r\211q\210\302\303\"c\210\304c)\207" [get-buffer-create " *xwidget-log*" apply format "\n"] 5 (#$ . 3619)])
#@24 Receive xwidget event.
(defalias 'xwidget-event-handler #[0 "\301\302\"\210A@\3038\304\305\"\210\306\"\207" [last-input-event xwidget-log "stuff happened to xwidget %S" 2 message "xw callback %s" xwidget-webkit-callback] 5 (#$ . 3810) nil])
#@130 Callback for xwidgets.
XWIDGET instance, XWIDGET-EVENT-TYPE depends on the originating xwidget.
(fn XWIDGET XWIDGET-EVENT-TYPE)
(defalias 'xwidget-webkit-callback #[514 "\301\302!!\204\f \303\304!\207r\302!q\210\3058\306=\2035 \303\307\310!\"\210\311 \210\312\313\314\310!\"!\210\315p!\202P \316=\203L \317\320\"\205P \321\322\323\"\"\202P \303\324\"\262)\207" [last-input-event buffer-live-p xwidget-buffer xwidget-log "error: callback called for xwidget with dead buffer" 3 document-load-finished "webkit finished loading: '%s'" xwidget-webkit-get-title xwidget-webkit-adjust-size-dispatch rename-buffer format "*xwidget webkit: %s *" pop-to-buffer navigation-policy-decision-requested string-match ".*#\\(.*\\)" xwidget-webkit-show-id-or-named-element match-string 1 "unhandled event:%s"] 8 (#$ . 4064)])
#@171 Hook run after entering xwidget-webkit mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar xwidget-webkit-mode-hook nil (#$ . 4893))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp xwidget-webkit-mode-map put definition-name xwidget-webkit-mode] 4)
(defvar xwidget-webkit-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [xwidget-webkit-mode-map variable-documentation put purecopy "Keymap for `xwidget-webkit-mode'." boundp xwidget-webkit-mode-syntax-table definition-name xwidget-webkit-mode] 5)
(defvar xwidget-webkit-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [xwidget-webkit-mode-syntax-table variable-documentation put purecopy "Syntax table for `xwidget-webkit-mode'." xwidget-webkit-mode-abbrev-table definition-name xwidget-webkit-mode] 5)
(defvar xwidget-webkit-mode-abbrev-table (progn (define-abbrev-table 'xwidget-webkit-mode-abbrev-table nil) xwidget-webkit-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [xwidget-webkit-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `xwidget-webkit-mode'." xwidget-webkit-mode derived-mode-parent special-mode] 5)
#@221 Xwidget webkit view mode.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `xwidget-webkit-mode-hook', as the final step
during initialization.
\{xwidget-webkit-mode-map}
(defalias 'xwidget-webkit-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\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325 C#\210\327 !\210\330\f!\210
\307 \306\331!\210\332\333 \210)\334\335!\207" [delay-mode-hooks major-mode mode-name xwidget-webkit-mode-map xwidget-webkit-mode-syntax-table xwidget-webkit-mode-abbrev-table make-local-variable t special-mode xwidget-webkit-mode "xwidget-webkit" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table bookmark-make-record-function xwidget-webkit-bookmark-make-record image-mode-setup-winprops run-mode-hooks xwidget-webkit-mode-hook local-abbrev-table buffer-read-only] 5 (#$ . 6296) nil])
#@52 Integrate Emacs bookmarks with the webkit xwidget.
(defalias 'xwidget-webkit-bookmark-make-record #[0 "\300\301\211\"\302\303 B\304B\244\207" [bookmark-make-record-default t page xwidget-webkit-current-url ((handler lambda (bmk) (browse-url (bookmark-prop-get bmk 'page))))] 3 (#$ . 7440)])
(defvar xwidget-webkit-last-session-buffer nil)
#@29 Last active webkit, or nil.
(defalias 'xwidget-webkit-last-session #[0 "\301!\205 rq\210\302e!)\207" [xwidget-webkit-last-session-buffer buffer-live-p xwidget-at] 2 (#$ . 7785)])
#@89 Either the webkit in the current buffer, or the last one used.
The latter might be nil.
(defalias 'xwidget-webkit-current-session #[0 "\300e!\206 \301 \207" [xwidget-at xwidget-webkit-last-session] 2 (#$ . 7973)])
#@32 Resize XW to content.
(fn XW)
(defalias 'xwidget-adjust-size-to-content #[257 "\300!\301@A@#\207" [xwidget-size-request xwidget-resize] 6 (#$ . 8194)])
#@43 javascript that finds the active element.
(defvar xwidget-webkit-activeelement-js "\nfunction findactiveelement(doc){\n//alert(doc.activeElement.value);\n if(doc.activeElement.value != undefined){\n return doc.activeElement;\n }else{\n // recurse over the child documents:\n var frames = doc.getElementsByTagName('frame');\n for (var i = 0; i < frames.length; i++)\n {\n var d = frames[i].contentDocument;\n var rv = findactiveelement(d);\n if(rv != undefined){\n return rv;\n }\n }\n }\n return undefined;\n};\n\n\n" (#$ . 8357))
#@70 Insert string STR in the active field in the webkit XW.
(fn XW STR)
(defalias 'xwidget-webkit-insert-string #[514 "\300\301\302\"\"\207" [xwidget-webkit-execute-script format "findactiveelement(document).value='%s'"] 7 (#$ . 9026) (byte-code "\301 \302\"\210\303\304\"\303\305\"\306\232\203 \307\310\"\2025 \311\232\203+ \312\313\314#\2025 \315\232\2055 \316\"D\207" [xwidget-webkit-activeelement-js xwidget-webkit-current-session xwidget-webkit-execute-script xwidget-webkit-execute-script-rv "findactiveelement(document).value;" "findactiveelement(document).type;" "text" read-string "Text: " "password" read-passwd "Password: " nil "textarea" xwidget-webkit-begin-edit-textarea] 8)])
#@117 Start editing of a webkit text area.
XW is the xwidget identifier, TEXT is retrieved from the webkit.
(fn XW TEXT)
(defalias 'xwidget-webkit-begin-edit-textarea #[514 "\301\302\303!!\210\304\300!\210\211c\207" [xwidget-xwbl switch-to-buffer generate-new-buffer "textarea" make-local-variable] 5 (#$ . 9736)])
#@36 End editing of a webkit text area.
(defalias 'xwidget-webkit-end-edit-textarea #[0 "eb\210\301\302\303\304#\203 \305\306\303\304#\210\202 \307\310\311ed{\"\"\207" [xwidget-xwbl search-forward "\n" nil t replace-match "\\n" xwidget-webkit-execute-script format "findactiveelement(document).value='%s'"] 6 (#$ . 10054) nil])
#@125 Make webkit xwidget XW show a named element ELEMENT-NAME.
For example, use this to display an anchor.
(fn XW ELEMENT-NAME)
(defalias 'xwidget-webkit-show-named-element #[514 "\300\301\302\303\"\304#!\305\306\"\210\307\310 \311#\207" [string-to-number xwidget-webkit-execute-script-rv format "document.getElementsByName('%s')[0].getBoundingClientRect().top" 0 xwidget-log "scroll: %d" set-window-vscroll selected-window t] 8 (#$ . 10387) (byte-code "\300 \301\302!D\207" [xwidget-webkit-current-session read-string "Element name: "] 3)])
#@119 Make webkit xwidget XW show an id-element ELEMENT-ID.
For example, use this to display an anchor.
(fn XW ELEMENT-ID)
(defalias 'xwidget-webkit-show-id-element #[514 "\300\301\302\303\"\304#!\305\306\"\210\307\310 \311#\207" [string-to-number xwidget-webkit-execute-script-rv format "document.getElementById('%s').getBoundingClientRect().top" 0 xwidget-log "scroll: %d" set-window-vscroll selected-window t] 8 (#$ . 10936) (byte-code "\300 \301\302!D\207" [xwidget-webkit-current-session read-string "Element id: "] 3)])
#@126 Make webkit xwidget XW show a name or element id ELEMENT-ID.
For example, use this to display an anchor.
(fn XW ELEMENT-ID)
(defalias 'xwidget-webkit-show-id-or-named-element #[514 "\300\301\302\303\"\304#!\300\301\302\305\"\304#!]\306\307\"\210\310\311 \312#\207" [string-to-number xwidget-webkit-execute-script-rv format "document.getElementsByName('%s')[0].getBoundingClientRect().top" "0" "document.getElementById('%s').getBoundingClientRect().top" xwidget-log "scroll: %d" set-window-vscroll selected-window t] 9 (#$ . 11468) (byte-code "\300 \301\302!D\207" [xwidget-webkit-current-session read-string "Name or element id: "] 3)])
#@32 Adjust webkit to content size.
(defalias 'xwidget-webkit-adjust-size-to-content #[0 "\300\301 !\207" [xwidget-adjust-size-to-content xwidget-webkit-current-session] 2 (#$ . 12121) nil])
#@32 Adjust size according to mode.
(defalias 'xwidget-webkit-adjust-size-dispatch #[0 "\300 \210\3011 \302 0\207\210\303\207" [xwidget-webkit-adjust-size-to-window (error) recenter-top-bottom nil] 1 (#$ . 12313) nil])
#@26 Adjust webkit to window.
(defalias 'xwidget-webkit-adjust-size-to-window #[0 "\300\301 \302 \303 #\207" [xwidget-resize xwidget-webkit-current-session window-pixel-width window-pixel-height] 4 (#$ . 12534) nil])
#@58 Manually set webkit size to width W, height H.
(fn W H)
(defalias 'xwidget-webkit-adjust-size #[514 "\300\301 #\207" [xwidget-resize xwidget-webkit-current-session] 6 (#$ . 12752) "nWidth:\nnHeight:\n"])
#@41 Adjust width of webkit to window width.
(defalias 'xwidget-webkit-fit-width #[0 "\300\301\302 8\302 @Z\303\"\207" [xwidget-webkit-adjust-size 2 window-inside-pixel-edges 1000] 3 (#$ . 12965) nil])
#@56 Create a new webkit session buffer with URL.
(fn URL)
(defalias 'xwidget-webkit-new-session #[257 "\301\302!\303\304\305!!\306c\210\307\310\311\312\211%\262\313\314\315#\210\316 \210\317\320 \"\207" [xwidget-webkit-last-session-buffer generate-new-buffer-name "*xwidget-webkit*" nil switch-to-buffer get-buffer-create " 'a' adjusts the xwidget size." xwidget-insert 1 webkit 1000 xwidget-put callback xwidget-webkit-callback xwidget-webkit-mode xwidget-webkit-goto-uri xwidget-webkit-last-session] 9 (#$ . 13168)])
#@21 Goto URL.
(fn URL)
(defalias 'xwidget-webkit-goto-url #[257 "\300 \203 \301\300 \"\207\302!\207" [xwidget-webkit-current-session xwidget-webkit-goto-uri xwidget-webkit-new-session] 4 (#$ . 13696)])
#@21 Go back in history.
(defalias 'xwidget-webkit-back #[0 "\300\301 \302\"\207" [xwidget-webkit-execute-script xwidget-webkit-current-session "history.go(-1);"] 3 (#$ . 13904) nil])
#@21 Reload current url.
(defalias 'xwidget-webkit-reload #[0 "\300\301 \302\"\207" [xwidget-webkit-execute-script xwidget-webkit-current-session "history.go(0);"] 3 (#$ . 14089) nil])
#@51 Get the webkit url and place it on the kill-ring.
(defalias 'xwidget-webkit-current-url #[0 "\300\301 \302\"\303\206 \304!\305\306\"\210\207" [xwidget-webkit-execute-script-rv xwidget-webkit-current-session "document.URL" kill-new "" message "url: %s"] 5 (#$ . 14275) nil])
#@196 Same as `xwidget-webkit-execute-script' but with return value.
XW is the webkit instance. SCRIPT is the script to execute.
DEFAULT is the default return value.
(fn XW SCRIPT &optional DEFAULT)
(defalias 'xwidget-webkit-execute-script-rv #[770 "\300\301\302\303\304\206\f \"\"\210\302\303\305\"\"\210\306!\262\232\203& \307\262\211\204- \262\207" ["titlecantbewhitespaceohthehorror" nil xwidget-webkit-execute-script format "document.title=\"%s\";" "document.title=%s;" xwidget-webkit-get-title ""] 10 (#$ . 14559)])
#@27 Get the webkit selection.
(defalias 'xwidget-webkit-get-selection #[0 "\300\301 \302\"\207" [xwidget-webkit-execute-script-rv xwidget-webkit-current-session "window.getSelection().toString();"] 3 (#$ . 15097)])
#@55 Get the webkit selection and put it on the kill-ring.
(defalias 'xwidget-webkit-copy-selection-as-kill #[0 "\300\301 !\207" [kill-new xwidget-webkit-get-selection] 2 (#$ . 15314) nil])
#@151 Get an xwidget's property value.
XWIDGET is an xwidget, PROPNAME a property.
Returns the last value stored with `xwidget-put'.
(fn XWIDGET PROPNAME)
(defalias 'xwidget-get #[514 "\300\301!\"\207" [plist-get xwidget-plist] 5 (#$ . 15506)])
#@183 Set an xwidget's property value.
XWIDGET is an xwidget, PROPNAME a property to be set to specified VALUE.
You can retrieve the value with `xwidget-get'.
(fn XWIDGET PROPNAME VALUE)
(defalias 'xwidget-put #[771 "\300\301\302!#\"\207" [set-xwidget-plist plist-put xwidget-plist] 9 (#$ . 15755)])
#@31 Helper for `xwidget-cleanup'.
(defalias 'xwidget-delete-zombies #[0 "\211\205\" \211@\302\303!!\203 \304! >\204 \305!\210A\266\202\202 \207" [xwidget-view-list xwidget-list window-live-p xwidget-view-window xwidget-view-model delete-xwidget-view] 5 (#$ . 16061)])
#@25 Delete zombie xwidgets.
(defalias 'xwidget-cleanup #[0 "\300 \210\301 \207" [xwidget-delete-zombies redraw-display] 1 (#$ . 16339) nil])
#@48 Ask before killing a buffer that has xwidgets.
(defalias 'xwidget-kill-buffer-query-function #[0 "\300p!\211?\206 \301\302\303\">?\206 \304\305\306\307 \"!\207" [get-buffer-xwidgets t mapcar xwidget-query-on-exit-flag yes-or-no-p format "Buffer %S has xwidgets; kill it? " buffer-name] 5 (#$ . 16482)])
(byte-code "\300\301!\203 \302\303\304\"\210\302\305\306\"\210\307\310!\207" [featurep xwidget-internal add-hook kill-buffer-query-functions xwidget-kill-buffer-query-function window-configuration-change-hook xwidget-delete-zombies provide xwidget] 3)
Kontol Shell Bypass