Adding my old elisp code.