あなたはどのようにリフィルモードの振る舞いを好きなら(私はそうではない:p)のではなく、とき、それは動作しますあなたが適切な条件でないならいつでも、それを阻害することにより、比較的容易に修正するべきです
例えば
(defvar plop/refill-enabler-function nil)
(defun plop/region-in-comment (beg end)
;; should really be comment-only-p, but that seems really broken for me
(not
(loop for c from beg to end
if (not (eq 'font-lock-comment-face (get-char-property c 'face)))
return t)))
(defun plop/refill-after-change-function (beg end len)
(unless undo-in-progress
(when (and plop/refill-enabler-function
(funcall plop/refill-enabler-function beg end))
(setq refill-doit end))))
(defun plop/install-refill-hack ()
(if refill-mode
(progn
(add-hook 'after-change-functions 'plop/refill-after-change-function nil t)
(remove-hook 'after-change-functions 'refill-after-change-function t))
(progn
(remove-hook 'after-change-functions 'plop/refill-after-change-function t))))
(defun plop/refill-hook ()
(set (make-local-variable 'plop/refill-enabler-function)
#'plop/region-in-comment)
(add-hook 'refill-mode-hook 'plop/install-refill-hack t t)
(refill-mode))
(add-hook 'some-hook 'plop/refill-hook)
基本的に、リフィルをトリガーする関数を削除し、after-change-functions
まったく同じことを行う前にコメント内にあることを確認する関数に置き換えます。