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 <[email protected]>
-;; 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 ()
