define-key に動的?な引数付き関数をセットしたい場合のなんか良い感じの手法教えてください

README

QA@IT にもマルチポストしてみたところ、期待通りの動きするコードを教えていただきました。感謝！

http://qa.atmarkit.co.jp/q/2317

gistfile1.el

;;;; やりたいこと
;;
;; "click!!" って文字上で Enter or クリックしたら
;; "Hello, World!" って表示してほしい感じのやつ。
;;
;;;; 現状
;;
;; イメージでは下のような書き方かなと思うんだけど
;; このままだと "Symbol's value as variable is void: msg" だからできない。
;;
;; msg をグローバル変数に定義して、そいつを呼び出す関数を
;; define-key に渡せば実現できるけど、ローカルで完結できる方法があるのかどうか

(defun gongo:add-click-property (str msg)
  (let ((map (make-sparse-keymap))
        (func (lambda () (interactive) (message msg))))
        ;; (func (lambda () (interactive) (message "hoge")))) ;; これなら当然問題無し
    (define-key map [return] func)
    (define-key map [mouse-1] func)
    (define-key map [down-mouse-1] 'mouse-set-point)
    (add-text-properties 0 (- (length str) 1)
                         (list 'keymap map)
                         str)
    (insert str)))

(gongo:add-click-property "click!!" "Hello, World!")