39628 metaperl <string>need fn to randomly select a color-theme</string> I have a list of color-theme functions. Each of theme simply sets the color-theme for my XEmacs. I would like to have an interactive function which randomly selects a function from the list calls it. (setq color-theme-favorites '(classic infodoc tty-dary)) ;;; now somebody write the function to: (defun color-theme-random () (interactive) (let* ((choice (random color-theme-favorites)) (choice-str (symbol-2-string choice)) (fn-str (strcat "color-theme-" choice-str)) (fn (str-2-symbol)) (apply fn))) 3385393039 #xemacs