From 0898bacd9012a0d01da417b3f491f008d4bdefe8 Mon Sep 17 00:00:00 2001
From: Matthias Meulien <orontee@gmail.com>
Date: Mon, 9 Dec 2013 01:20:11 +0100
Subject: [PATCH] Custom option to turn Flyspell mode on in prog modes

---
 lisp/progmodes/prog-mode.el | 6 ++++++
 lisp/textmodes/flyspell.el  | 6 ++++++
 2 files changed, 12 insertions(+)

diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el
index b3ed328..92820dc 100644
--- a/lisp/progmodes/prog-mode.el
+++ b/lisp/progmodes/prog-mode.el
@@ -35,6 +35,12 @@
   "Generic programming mode, from which others derive."
   :group 'languages)
 
+(defcustom prog-mode-hook nil
+  "Normal hook run when entering Text mode and many related modes."
+  :type 'hook
+  :options '(turn-on-flyspell-prog)
+  :group 'prog-mode)
+
 (defvar prog-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map [?\C-\M-q] 'prog-indent-sexp)
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 81f17c8..0ce0a90 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -519,11 +519,17 @@ in your init file.
   (flyspell-mode 1))
 
 ;;;###autoload
+(defun turn-on-flyspell-prog ()
+  "Unconditionally turn on Flyspell mode for comments and strings."
+  (flyspell-prog-mode))
+
+;;;###autoload
 (defun turn-off-flyspell ()
   "Unconditionally turn off Flyspell mode."
   (flyspell-mode -1))
 
 (custom-add-option 'text-mode-hook 'turn-on-flyspell)
+(custom-add-option 'prog-mode-hook 'turn-on-flyspell-prog)
 
 ;;*---------------------------------------------------------------------*/
 ;;*    flyspell-buffers ...                                             */
-- 
1.8.5.1