emacs: more refactor for occur repcipe