diff options
| author | Glenn Morris | 2016-01-19 18:44:29 -0500 |
|---|---|---|
| committer | Glenn Morris | 2016-01-19 18:44:29 -0500 |
| commit | c9471132c329cffd24db2cedea339e58bea70920 (patch) | |
| tree | 7eb311f1f231e9eb052a28cb35cc12cfb8714d53 | |
| parent | ea415382786305179ec9bd2ca88d7caccd09f63a (diff) | |
| download | emacs-c9471132c329cffd24db2cedea339e58bea70920.tar.gz emacs-c9471132c329cffd24db2cedea339e58bea70920.zip | |
* lisp/xwidget.el: Add declarations to silence non-xwidget compilation.
| -rw-r--r-- | lisp/xwidget.el | 25 |
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. |
| 45 | given ID, TYPE, TITLE WIDTH and | 62 | given 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) |