From c2e5be2aa0fbd926b07f764ffbc8359d3246342f Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sat, 27 Apr 2024 14:43:23 +0200
Subject: Adding upstream version 8.1.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 examples/rlkeymaps.c | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)
 create mode 100644 examples/rlkeymaps.c

(limited to 'examples/rlkeymaps.c')

diff --git a/examples/rlkeymaps.c b/examples/rlkeymaps.c
new file mode 100644
index 0000000..fef77b3
--- /dev/null
+++ b/examples/rlkeymaps.c
@@ -0,0 +1,61 @@
+#include <stdlib.h>
+#include <unistd.h>
+#include <stdio.h>
+#include <string.h>
+
+#if defined (READLINE_LIBRARY)
+#  include "readline.h"
+#  include "history.h"
+#else
+#  include <readline/readline.h>
+#  include <readline/history.h>
+#endif
+
+int
+main (int c, char **v)
+{
+  Keymap nmap, emacsmap, newemacs;
+  int r, errs;
+
+  errs = 0;
+  nmap = rl_make_keymap ();
+
+  r = rl_set_keymap_name ("emacs", nmap);
+  if (r >= 0)
+    {
+      fprintf (stderr, "rlkeymaps: error: able to rename `emacs' keymap\n");
+      errs++;
+    }
+
+  emacsmap = rl_get_keymap_by_name ("emacs");
+  r = rl_set_keymap_name ("newemacs", emacsmap);
+  if (r >= 0)
+    {
+      fprintf (stderr, "rlkeymaps: error: able to set new name for emacs keymap\n");
+      errs++;
+    }
+
+  r = rl_set_keymap_name ("newemacs", nmap);
+  if (r < 0)
+    {
+      fprintf (stderr, "rlkeymaps: error: newemacs: could not set keymap name\n");
+      errs++;
+    }
+
+  newemacs = rl_copy_keymap (emacsmap);
+  r = rl_set_keymap_name ("newemacs", newemacs);
+  if (r < 0)
+    {
+      fprintf (stderr, "rlkeymaps: error: newemacs: could not set `newemacs' keymap to new map\n");
+      errs++;
+    }
+
+  r = rl_set_keymap_name ("emacscopy", newemacs);
+  if (r < 0)
+    {
+      fprintf (stderr, "rlkeymaps: error: emacscopy: could not rename created keymap\n");
+      errs++;
+    }
+
+  exit (errs);
+}
-- 
cgit v1.2.3