Calc-Keypad をマウスで操作する

`.emacs' の中に次のコードを入れると、 マウスの左ボタンで Keypad が使えます。 同様に `calc-keypad-menu' などをマウスにバインドしても良いでしょう。 不作法なので、もっと上手な方法があったら教えてください。
;;;;;;;;;;; Calc-Keypad 対応
(add-hook 'calc-keypad-start-hook
	  '(lambda ()
	     (defun calc-keypad-click (click)
	       (interactive "e")
	       (mouse-set-point click)	; クリック地点にポイントをセット
	       (calc-keypad-press)	; keypad が押された際の処理
	       )
	     (define-key calc-keypad-map
	       [down-mouse-1]
	       'calc-keypad-click)
	     ))
あと、ちょっとしたバグですが Keypad の右上の角が合っていません。 Calc 2.02 が Calc 2.02f になって 1桁ずれたようですが、 この部分にはファ ンクションキー群のラベルが表示される上、 キー入力するたびに表示がずれて見ずらいので次のように fix します。 `calc-keypd.el' の 213行目
`(insert "----+-----Calc " calc-version "-----+----"' を
`(insert "----+-----Calc " calc-version  "----+----"'  に変えて
byte-compile をやりなおしてください。