Commit 2e78d4ab authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(zone, zone-pgm-stress): Don't use window-system.

parent 85628348
2000-08-04 Eli Zaretskii <eliz@is.elta.co.il>
* play/zone.el (zone, zone-pgm-stress): Don't use window-system.
* hi-lock.el (hi-lock-unface-buffer): If a menu of regexps is
popped up, but the user clicks outside the menu, return an empty
regexp (that causes unhighlight-regexp to have no effect).
......
......@@ -84,7 +84,7 @@
(interactive)
(and (timerp zone-timer) (cancel-timer zone-timer))
(setq zone-timer nil)
(let ((f (and window-system (selected-frame)))
(let ((f (selected-frame))
(outbuf (get-buffer-create "*zone*"))
(text (buffer-substring (window-start) (window-end)))
(wp (1+ (- (window-point (selected-window))
......@@ -530,7 +530,7 @@ If t, zone won't zone out.")
(forward-line 1)
(setq lines (cons (buffer-substring p (point)) lines))))
(sit-for 5)
(when window-system
(when (display-color-p)
(setq bg (frame-parameter (selected-frame) 'background-color)
m-fg (face-foreground 'modeline)
m-bg (face-background 'modeline))
......@@ -550,7 +550,7 @@ If t, zone won't zone out.")
(insert (nth (random (length lines)) lines)))
(message (concat (make-string (random (- (frame-width) 5)) ? ) "grrr"))
(sit-for 0.1))
(when window-system
(when (display-color-p)
(set-face-foreground 'modeline m-fg)
(set-face-background 'modeline m-bg))))
......
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