特定のマイナモードが適用されているか判定する

d:id:antipop:20080317:1205766355 からのシングルカットです :p

(defun minor-mode-applied-p (mode)
  (not (not (assoc-default mode (buffer-local-variables)))))

マイナモードの実装に依っては望んだ結果が得られないかもしれません。

手元の環境では大丈夫そうです。検証コード。

(mapc '(lambda (lst)
	 (when (string-match ".+mode$" (format "%s" (car lst)))
	   (insert (format "\n%s" lst))))
      (buffer-local-variables))