anything-c-moccur.el更新 version 0.32

id:rubikitchさんからコメント欄で教えていただきました。

regexp-quoteを入れておかないと場所によっては無限ループになるようです。

(defun anything-c-moccur-occur-by-moccur (&optional prefix)
  (interactive "P")
  (if prefix
      (anything-c-moccur-resume)
    (anything-c-moccur-with-anything-env (list anything-c-source-occur-by-moccur)
      (let* ((initial-pattern (if anything-c-moccur-enable-initial-pattern
                                  (regexp-quote (or (thing-at-point 'symbol) ""))
                                "")))
        (when anything-c-moccur-push-mark-flag
          (push-mark))
        (anything nil initial-pattern)))))

感謝です。

反映したversion 0.32をコミットしました。

変更点

変更点は以下です。

• thing-at-point を regexp-quote で囲んだ.
• anything-c-moccur-isearch-forward,backward コマンドに save-window-excursion を追加.