[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/zone.el,v
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/zone.el,v |
Date: |
Sun, 30 Sep 2007 11:00:44 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Richard M. Stallman <rms> 07/09/30 11:00:43
Index: zone.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/play/zone.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- zone.el 26 Sep 2007 00:23:11 -0000 1.31
+++ zone.el 30 Sep 2007 11:00:43 -0000 1.32
@@ -86,30 +86,10 @@
,@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.