procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/xwidget.el (xwidget-display): Return a useful value.

Browse source 
* test/automated/xwidget-tests.el (xwidget-view-p): Use `xwidget-display'.
This commit is contained in:
Grégoire Jadi 2013-08-13 16:04:50 +02:00
parent 30e2a12176
commit c9215889cc
2 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/xwidget.el
View file

@ -59,12 +59,14 @@ see `make-xwidget' for types suitable for TYPE."
;; )))))
(defun xwidget-display (xwidget)
"Force xwidget to be displayed to create a xwidget_view."
"Force xwidget to be displayed to create a xwidget_view. Return
the window displaying XWIDGET."
(let* ((buffer (xwidget-buffer xwidget))
(window (display-buffer buffer))
(frame (window-frame window)))
(set-frame-visible frame t)
(redisplay t)))
(redisplay t)
window))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

7
test/automated/xwidget-tests.el
View file

@ -90,11 +90,10 @@
(with-temp-buffer
(insert ?\0)
(let* ((xwidget (xwidget-insert 1 type title 100 100))
(window (display-buffer (current-buffer))))
(window (xwidget-display xwidget)))
(set-xwidget-query-on-exit-flag xwidget nil)
(set-frame-visible (window-frame window) t)
(redisplay t)
(xwidget-view-p (xwidget-view-lookup xwidget window)))))
(xwidget-view-p
(xwidget-view-lookup xwidget window)))))
:env (list type title)
:graphical t
:emacs-args '("-T" "emacs-debug")))))