Package that makes M-x occur to the current word at point, instead of the last-entered M-x occur