From: Matthias Meulien <orontee@gmail.com>
To: emacs-devel@gnu.org
Subject: [PATCH] Custom option to turn Flyspell mode on in prog modes
Date: Mon, 09 Dec 2013 01:25:08 +0100 [thread overview]
Message-ID: <87ppp6vpjv.fsf@gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 187 bytes --]
The attached patch allows users to enable spell checking in prog
modes by customization means. Thanks to `flyspell-prog-mode', the
spell checking is done in comments and strings only.
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-Custom-option-to-turn-Flyspell-mode-on-in-prog-modes.patch --]
[-- Type: text/x-diff, Size: 1670 bytes --]
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
[-- Attachment #3: Type: text/plain, Size: 14 bytes --]
--
Matthias
next reply other threads:[~2013-12-09 0:25 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-12-09 0:25 Matthias Meulien [this message]
2013-12-09 13:28 ` [PATCH] Custom option to turn Flyspell mode on in prog modes Rüdiger Sonderfeld
2013-12-11 23:17 ` Matthias Meulien
2014-01-07 19:23 ` Glenn Morris
2014-01-07 19:30 ` Glenn Morris
2014-08-08 13:59 ` Rüdiger Sonderfeld
2014-08-08 23:45 ` Juri Linkov
2014-08-14 12:46 ` Sebastien Vauban
2014-08-14 20:21 ` Mode line strings for sub- and super- minor modes are counterintuitive Matthias Meulien
2014-08-15 5:45 ` Bozhidar Batsov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87ppp6vpjv.fsf@gmail.com \
--to=orontee@gmail.com \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).