summaryrefslogtreecommitdiff
path: root/lisp/xwidget.el
diff options
context:
space:
mode:
authorGrégoire Jadi <gregoire.jadi@gmail.com>2013-08-13 16:04:50 +0200
committerGrégoire Jadi <gregoire.jadi@gmail.com>2013-08-13 16:04:50 +0200
commitc9215889ccd18ba83856004a775461eedea07ad9 (patch)
tree1a485ed1c9146acb08cd486b05ee54495fd32a03 /lisp/xwidget.el
parent30e2a1217667de18501bba00899c43a6f410906b (diff)
downloademacs-c9215889ccd18ba83856004a775461eedea07ad9.tar.gz
* lisp/xwidget.el (xwidget-display): Return a useful value.
* test/automated/xwidget-tests.el (xwidget-view-p): Use `xwidget-display'.
Diffstat (limited to 'lisp/xwidget.el')
-rw-r--r--lisp/xwidget.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el
index c0d58972e14..1f0932ca7dd 100644
--- a/lisp/xwidget.el
+++ b/lisp/xwidget.el
@@ -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))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;