1840 Pennsylvania's 22nd congressional district special election