From 1e7e76a7cadf8d7f210a4881616e7e7c9d50b2bf Mon Sep 17 00:00:00 2001
From: Benno Schulenberg <bensberg@telfort.nl>
Date: Sun, 19 Sep 2021 10:01:35 +0200
Subject: [PATCH 21/34] help: show ^- when using Slang instead of ^_ as the
 latter does nothing

This fixes https://savannah.gnu.org/bugs/?61185.

Bug existed since probably forever.
---
 src/global.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/global.c b/src/global.c
index 8b2bb7ac..550c855c 100644
--- a/src/global.c
+++ b/src/global.c
@@ -1230,7 +1230,11 @@ void shortcut_init(void)
 	add_to_sclist(MEXECUTE, "^O", 0, do_formatter, 0);
 #endif
 	add_to_sclist(MMAIN, "^C", 0, report_cursor_position, 0);
+#ifdef USE_SLANG
+	add_to_sclist(MMAIN, "^-", 0x1F, do_gotolinecolumn_void, 0);
+#else
 	add_to_sclist(MMAIN, "^_", 0, do_gotolinecolumn_void, 0);
+#endif
 	add_to_sclist(MMAIN, "M-G", 0, do_gotolinecolumn_void, 0);
 	add_to_sclist(MMAIN|MBROWSER|MHELP|MLINTER, "^Y", 0, do_page_up, 0);
 	add_to_sclist(MMAIN|MBROWSER|MHELP|MLINTER, "PgUp", KEY_PPAGE, do_page_up, 0);
-- 
2.29.3

