aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2016-01-19 18:44:29 -0500
committerGlenn Morris2016-01-19 18:44:29 -0500
commitc9471132c329cffd24db2cedea339e58bea70920 (patch)
tree7eb311f1f231e9eb052a28cb35cc12cfb8714d53
parentea415382786305179ec9bd2ca88d7caccd09f63a (diff)
downloademacs-c9471132c329cffd24db2cedea339e58bea70920.tar.gz
emacs-c9471132c329cffd24db2cedea339e58bea70920.zip
* lisp/xwidget.el: Add declarations to silence non-xwidget compilation.
-rw-r--r--lisp/xwidget.el25
1 files changed, 20 insertions, 5 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index 41e2c1cef6c..f2c79afec03 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -40,6 +40,23 @@
40 :group 'frames ; TODO add xwidgets group if more options are added 40 :group 'frames ; TODO add xwidgets group if more options are added
41 :type '(choice (const native) (const image))) 41 :type '(choice (const native) (const image)))
42 42
43(declare-function make-xwidget "xwidget.c"
44 (beg end type title width height arguments &optional buffer))
45(declare-function xwidget-set-adjustment "xwidget.c"
46 (xwidget axis relative value))
47(declare-function xwidget-buffer "xwidget.c" (xwidget))
48(declare-function xwidget-webkit-get-title "xwidget.c" (xwidget))
49(declare-function xwidget-size-request "xwidget.c" (xwidget))
50(declare-function xwidget-resize "xwidget.c" (xwidget new-width new-height))
51(declare-function xwidget-webkit-execute-script "xwidget.c" (xwidget script))
52(declare-function xwidget-webkit-goto-uri "xwidget.c" (xwidget uri))
53(declare-function xwidget-plist "xwidget.c" (xwidget))
54(declare-function set-xwidget-plist "xwidget.c" (xwidget plist))
55(declare-function xwidget-view-window "xwidget.c" (xwidget-view))
56(declare-function xwidget-view-model "xwidget.c" (xwidget-view))
57(declare-function delete-xwidget-view "xwidget.c" (xwidget-view))
58(declare-function get-buffer-xwidgets "xwidget.c" (buffer))
59
43(defun xwidget-insert (pos type title width height &optional args) 60(defun xwidget-insert (pos type title width height &optional args)
44 "Insert an xwidget at POS. 61 "Insert an xwidget at POS.
45given ID, TYPE, TITLE WIDTH and 62given ID, TYPE, TITLE WIDTH and
@@ -499,11 +516,6 @@ DEFAULT is the defaultreturn value."
499 (setq title default)) 516 (setq title default))
500 title)) 517 title))
501 518
502
503;; Use declare here?
504;; (declare-function xwidget-resize-internal "xwidget.c" )
505;; check-declare-function?
506
507;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 519;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
508(defun xwidget-webkit-get-selection () 520(defun xwidget-webkit-get-selection ()
509 "Get the webkit selection." 521 "Get the webkit selection."
@@ -533,6 +545,9 @@ It can be retrieved with `(xwidget-get XWIDGET PROPNAME)'."
533 545
534;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 546;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
535 547
548(defvar xwidget-view-list) ; xwidget.c
549(defvar xwidget-list) ; xwidget.c
550
536(defun xwidget-delete-zombies () 551(defun xwidget-delete-zombies ()
537 "Helper for `xwidget-cleanup'." 552 "Helper for `xwidget-cleanup'."
538 (dolist (xwidget-view xwidget-view-list) 553 (dolist (xwidget-view xwidget-view-list)