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

* lisp/xwidget.el (xwidget-delete-zombies): Rewrite with dolist/memq

Browse source 
instead of mapcar/find.
This commit is contained in:
Grégoire Jadi 2013-07-25 15:30:30 +02:00
parent 759dbb1aeb
commit 7e457d94c0
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/xwidget.el
View file

@ -440,12 +440,11 @@ It can be retrieved with `(xwidget-get XWIDGET PROPNAME)'."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun xwidget-delete-zombies ()
(mapcar (lambda (xwidget-view)
(when (or (not (window-live-p (xwidget-view-window xwidget-view)))
(not (find (xwidget-view-model xwidget-view)
xwidget-list)))
(delete-xwidget-view xwidget-view)))
xwidget-view-list))
(dolist (xwidget-view xwidget-view-list)
(when (or (not (window-live-p (xwidget-view-window xwidget-view)))
(not (memq (xwidget-view-model xwidget-view)
xwidget-list)))
(delete-xwidget-view xwidget-view))))
(defun xwidget-cleanup ()
"Delete zombie xwidgets."