From 301c4ef6b33fc88927a026bfc8045bdcecc2f15c Mon Sep 17 00:00:00 2001
From: Benno Schulenberg <bensberg@justemail.net>
Date: Sat, 26 Apr 2014 19:33:11 +0000
Subject: [PATCH] Allow do_spell() to be bound to other key combos.

git-svn-id: svn://svn.savannah.gnu.org/nano/trunk/nano@4817 35c25a1d-7b9e-4130-9fde-d3aeb78583b8
---
 ChangeLog        | 2 ++
 doc/man/nanorc.5 | 4 ++++
 src/global.c     | 3 +++
 3 files changed, 9 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index adbdd2f9..3b0da21f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,8 @@
 	make use of it to remember the location of the Uncut item.
 	* src/global.c, src/files.c (make_new_buffer, close_buffer): Make
 	help lines show "Close" again when more than one buffer is open.
+	* src/global.c (strtosc), doc/man/nanorc.5: Allow the do_spell
+	(and thus do_lint) function to be bound to other key combos.
 
 2014-04-24  Benno Schulenberg  <bensberg@justemail.net>
 	* doc/faq.html: Update a few URLs, delete some obsolete ones, update
diff --git a/doc/man/nanorc.5 b/doc/man/nanorc.5
index 44839262..304cb1e8 100644
--- a/doc/man/nanorc.5
+++ b/doc/man/nanorc.5
@@ -368,6 +368,10 @@ Copy the currently stored text into the current buffer position.
 .B curpos
 Show the current line, column, word positions in the file.
 .TP
+.B speller
+Invoke a spell checking program (or a linting program, if the current
+syntax highlighting defines one).
+.TP
 .B firstline
 Move to the first line of the file.
 .TP
diff --git a/src/global.c b/src/global.c
index 2f66bb2f..36f0936d 100644
--- a/src/global.c
+++ b/src/global.c
@@ -1281,6 +1281,9 @@ sc *strtosc(char *input)
 	s->scfunc = do_cut_text_void;
     else if (!strcasecmp(input, "uncut"))
 	s->scfunc = do_uncut_text;
+    else if (!strcasecmp(input, "tospell") ||
+	     !strcasecmp(input, "speller"))
+	s->scfunc = do_spell;
     else if (!strcasecmp(input, "curpos") ||
 	     !strcasecmp(input, "cursorpos"))
 	s->scfunc = do_cursorpos_void;
-- 
GitLab