クリップボードの中身を eval #xyzzy

gistfile1.cl

;; クリップボードの中身を eval
(defun eval-clipboard ()
  (interactive)
  (let ((buf (get-buffer-create "*Clipboard*")))
    (set-buffer buf)
    (erase-buffer buf)
    (setup-temp-buffer buf)
    (insert (get-clipboard-data))
    (handler-case
        (progn
          (eval-buffer buf)
          (unless (deleted-buffer-p buf)
            (delete-buffer buf)))
      (error (c)
        (lisp-mode)
        (pop-to-buffer buf)
        (refresh-screen)
        (error c)))))