From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 30 Sep 2007 11:00:54 +0000 (+0000)
Subject: (zone-hiding-modeline): Use mode-line-format.
X-Git-Tag: emacs-pretest-23.0.90~10572
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef673042dde3f3ba627808c54f5ac2847b9dd752;p=emacs.git

(zone-hiding-modeline): Use mode-line-format.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 53b8b68888b..8b6d2f32288 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-09-30  Richard Stallman  <rms@gnu.org>
+
+	* play/zone.el (zone-hiding-modeline): Use mode-line-format.
+
 2007-09-29  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* term/x-win.el (x-gtk-stock-map): Version is 22.2.
diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index 15d8e5eeba7..c146f4baa83 100644
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -86,30 +86,10 @@ If nil, don't interrupt for about 1^26 seconds.")
      ,@body))
 
 (defmacro zone-hiding-modeline (&rest body)
-  `(let (bg mode-line-fg mode-line-bg mode-line-box)
-     (unwind-protect
-         (progn
-           (when (and (= 0 (get 'zone 'modeline-hidden-level))
-                      (display-color-p))
-             (setq bg (face-background 'default)
-                   mode-line-box (face-attribute 'mode-line :box)
-                   mode-line-fg (face-attribute 'mode-line :foreground)
-                   mode-line-bg (face-attribute 'mode-line :background))
-             (set-face-attribute 'mode-line nil
-                                 :foreground bg
-                                 :background bg
-                                 :box nil))
-           (put 'zone 'modeline-hidden-level
-                (1+ (get 'zone 'modeline-hidden-level)))
-           ,@body)
-       (put 'zone 'modeline-hidden-level
-            (1- (get 'zone 'modeline-hidden-level)))
-       (when (and (> 1 (get 'zone 'modeline-hidden-level))
-                  mode-line-fg)
-         (set-face-attribute 'mode-line nil
-                             :foreground mode-line-fg
-                             :background mode-line-bg
-                             :box mode-line-box)))))
+  ;; This formerly worked by temporarily altering face `mode-line',
+  ;; which did not even work right, it seems.
+  `(let (mode-line-format)
+     ,@body))
 
 (defun zone-call (program &optional timeout)
   "Call PROGRAM in a zoned way.