;; 構文の間違いlispを警告するfont-lockを無効にする
(defadvice lisp--match-hidden-arg (around lisp--match-hidden-arg-wrapper)
	(if (not (and (boundp 'use-my-lisp--match-hidden-arg) 'use-my-lisp--match-hidden-arg))
			ad-do-it
		(nil)))
(ad-activate 'lisp--match-hidden-arg)

;; scratch buffer の hook
(defun lisp-interaction-mode-hooks()
	(set (make-local-variable 'use-my-lisp--match-hidden-arg) t))
(add-hook 'lisp-interaction-mode-hook 'lisp-interaction-mode-hooks)