Emacs lisp code for use (primarily) with XEmacs