[elpa] master f290ed6 058/433: (mmm-check-changed-buffers): Checked for live buffer.

[Dmitry Gutov]

branch: master
commit f290ed6073751aa37ffd48c10650a7da3d6f814b
Author: mas <mas>
Commit: mas <mas>

    (mmm-check-changed-buffers): Checked for live buffer.
---
 mmm-auto.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/mmm-auto.el b/mmm-auto.el
index a9e485a..b43a350 100644
--- a/mmm-auto.el
+++ b/mmm-auto.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <address@hidden>
-;; Version: $Id: mmm-auto.el,v 1.8 2000/06/29 18:02:03 mas Exp $
+;; Version: $Id: mmm-auto.el,v 1.9 2000/06/29 18:23:41 mas Exp $
 
 ;;{{{ GPL
 
@@ -106,11 +106,10 @@ everything in `mmm-major-mode-hook' will be run."
 (defun mmm-check-changed-buffers ()
   "Run major mode hook for the buffers in `mmm-changed-buffers-list'."
   (remove-hook 'post-command-hook 'mmm-check-changed-buffers)
-  (mapc #'mmm-run-major-mode-hook
-        (remove-if #'(lambda (buffer)
-                       (window-minibuffer-p
-                        (get-buffer-window buffer)))
-                   mmm-changed-buffers-list))
+  (dolist (buffer mmm-changed-buffers-list)
+    (and (not (window-minibuffer-p (get-buffer-window buffer)))
+         (buffer-live-p buffer)
+         (mmm-run-major-mode-hook buffer)))
   (setq mmm-changed-buffers-list '()))
 
 (defun mmm-mode-on-maybe ()