Commit ef673042 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent b870aa61
2007-09-30 Richard Stallman <>
* play/zone.el (zone-hiding-modeline): Use mode-line-format.
2007-09-29 Jan Dj,Ad(Brv <>
* term/x-win.el (x-gtk-stock-map): Version is 22.2.
......@@ -86,30 +86,10 @@ If nil, don't interrupt for about 1^26 seconds.")
(defmacro zone-hiding-modeline (&rest body)
`(let (bg mode-line-fg mode-line-bg mode-line-box)
(when (and (= 0 (get 'zone 'modeline-hidden-level))
(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)))
(put 'zone 'modeline-hidden-level
(1- (get 'zone 'modeline-hidden-level)))
(when (and (> 1 (get 'zone 'modeline-hidden-level))
(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)
(defun zone-call (program &optional timeout)
"Call PROGRAM in a zoned way.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment