diff options
| author | Grégoire Jadi | 2013-07-25 15:30:30 +0200 |
|---|---|---|
| committer | Grégoire Jadi | 2013-07-25 15:30:30 +0200 |
| commit | 7e457d94c0d3effe78d652d0141c53c41ce06b53 (patch) | |
| tree | 66a94ba949a108e04bdba7130441a7c9536192c8 | |
| parent | 759dbb1aebe68fb392f7ed53eba4b460ae6b83be (diff) | |
| download | emacs-7e457d94c0d3effe78d652d0141c53c41ce06b53.tar.gz emacs-7e457d94c0d3effe78d652d0141c53c41ce06b53.zip | |
* lisp/xwidget.el (xwidget-delete-zombies): Rewrite with dolist/memq
instead of mapcar/find.
| -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." |