(defvar anything-c-source-call-source `((name . "call source") (init . (lambda () (with-current-buffer (anything-candidate-buffer 'global) (let ((sources (loop for sym being symbols for s = (symbol-name sym) when (string-match "^anything-c…

id:rubikitchさんからコメント欄で教えていただきました。 regexp-quoteを入れておかないと場所によっては無限ループになるようです。 (defun anything-c-moccur-occur-by-moccur (&optional prefix) (interactive "P") (if prefix (anything-c-moccur-resum…