Use `called-interactively-p' instead of `interactive-p'.