diff options
| author | Dima Kogan <dima@secretsauce.net> | 2015-09-15 11:53:54 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-16 09:27:51 -0700 |
| commit | d605a539d4863c7e7c66aaea6e538ae14c47f3d7 (patch) | |
| tree | 164f1fb7e9859060d0e2f45dcada55f9a2602e3a /lisp/winner.el | |
| parent | b0f4acfcb739358d98e3e4d78263467edb53e968 (diff) | |
| download | emacs-d605a539d4863c7e7c66aaea6e538ae14c47f3d7.tar.gz | |
winner no longer holds on to dead frames
* lisp/winner.el (winner-change-fun): Cull dead frames.
This prevents a potentially massive memory leak. See:
http://lists.gnu.org/archive/html/emacs-devel/2015-09/msg00619.html
Diffstat (limited to 'lisp/winner.el')
| -rw-r--r-- | lisp/winner.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/winner.el b/lisp/winner.el index fdf62137514..a05f4ba867e 100644 --- a/lisp/winner.el +++ b/lisp/winner.el @@ -177,6 +177,11 @@ You may want to include buffer names such as *Help*, *Apropos*, ;; Called whenever the window configuration changes ;; (a `window-configuration-change-hook'). (defun winner-change-fun () + + ;; Cull dead frames. + (setq winner-modified-list + (cl-remove-if-not 'frame-live-p winner-modified-list)) + (unless (or (memq (selected-frame) winner-modified-list) (/= 0 (minibuffer-depth))) (push (selected-frame) winner-modified-list))) |