flet-like.el

;; cl-letfを利用すれば内部の関数の呼び出しをすげかえる

(defun my:hello ()
  (message "hello %s" "world"))

;; これは単に *Messages* bufferに出力するだけ
(my:hello)

;; これは kill-ring に追加もしてくれる
(cl-letf ((original-message (symbol-function 'message))
          ((symbol-function 'message)
           (lambda (x &rest args)
             (let ((text (apply 'format (cons x args))))
               (funcall original-message text)
               (kill-new text)
               text))))
  (my:hello))