diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/xwidget.el | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el index 9c9f9c49b00..4c94b7e291c 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el | |||
| @@ -16,20 +16,6 @@ see xwidget.c for types suitable for TYPE. | |||
| 16 | id)) | 16 | id)) |
| 17 | 17 | ||
| 18 | 18 | ||
| 19 | (defun xwidget-resize-at (pos width height) | ||
| 20 | "Resize xwidget at postion POS to WIDTH and HEIGHT." | ||
| 21 | (let* | ||
| 22 | ((xwidget-prop (cdr (get-text-property pos 'display))) | ||
| 23 | (id (plist-get xwidget-prop ':xwidget-id))) | ||
| 24 | (setq xwidget-prop (plist-put xwidget-prop ':width width)) | ||
| 25 | (setq xwidget-prop (plist-put xwidget-prop ':height height)) | ||
| 26 | |||
| 27 | (put-text-property pos (+ 1 pos) 'display (cons 'xwidget xwidget-prop)) | ||
| 28 | (message "prop %s" xwidget-prop) | ||
| 29 | (message "id %d w %d h %d" id width height) | ||
| 30 | (xwidget-resize-internal id width height) | ||
| 31 | )) | ||
| 32 | |||
| 33 | 19 | ||
| 34 | (defun xwidget-socket-handler () | 20 | (defun xwidget-socket-handler () |
| 35 | "creates plug for socket. TODO" | 21 | "creates plug for socket. TODO" |