diff options
| -rw-r--r-- | lisp/xwidget.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/xwidget.el b/lisp/xwidget.el index 8bb43fec38d..c0d58972e14 100644 --- a/lisp/xwidget.el +++ b/lisp/xwidget.el | |||
| @@ -440,12 +440,11 @@ It can be retrieved with `(xwidget-get XWIDGET PROPNAME)'." | |||
| 440 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 440 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 441 | 441 | ||
| 442 | (defun xwidget-delete-zombies () | 442 | (defun xwidget-delete-zombies () |
| 443 | (mapcar (lambda (xwidget-view) | 443 | (dolist (xwidget-view xwidget-view-list) |
| 444 | (when (or (not (window-live-p (xwidget-view-window xwidget-view))) | 444 | (when (or (not (window-live-p (xwidget-view-window xwidget-view))) |
| 445 | (not (find (xwidget-view-model xwidget-view) | 445 | (not (memq (xwidget-view-model xwidget-view) |
| 446 | xwidget-list))) | 446 | xwidget-list))) |
| 447 | (delete-xwidget-view xwidget-view))) | 447 | (delete-xwidget-view xwidget-view)))) |
| 448 | xwidget-view-list)) | ||
| 449 | 448 | ||
| 450 | (defun xwidget-cleanup () | 449 | (defun xwidget-cleanup () |
| 451 | "Delete zombie xwidgets." | 450 | "Delete zombie xwidgets." |