Steve Wainstead <
swain@socialserve.com> writes:
I have a Lisp function that is run every time I do M-x compile:
;; choose random colors every time we compile, just for fun
(defun sw-make-random-hex-color-string ()
"Return a string in the form of #FFFFFF. Choose the number for
#xffffff randomly using Emacs Lisp's builtin function (random)."
;; seed our random number generator: current datetime plus Emacs's
;; process ID
(random t)
(format "#%06x" (random #xffffff))
)
(defun sw-randomize-frame-colors ()
"Change foreground and background colors of the current frame to
random colors."
(interactive)
(let
(
(fg-color (sw-make-random-hex-color-string))
(bg-color (sw-make-random-hex-color-string))
(color-distance #x3fffff)
)
(set-foreground-color fg-color)
(set-background-color bg-color)
)
)
I *think* sometimes the color values come out the same and it causes
Emacs to crash. I'm not sure because it's almost instantaneous when I
run compile.
Hi, sorry it's taken so long for someone to come back to you.
I can't reproduce this crash, are you still experiencing it?
--
Alan Third