From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 31 Mar 1995 03:56:30 +0000 (+0000)
Subject: (wipe_kboard): Make this function static.
X-Git-Tag: emacs-19.34~4693
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e50b8090d9577cedc59c687710cb4615c663e932;p=emacs.git

(wipe_kboard): Make this function static.
(delete_kboard): New function, extracted from x_delete_display.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 220585d4326..c08d7ee2f3d 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6487,7 +6487,7 @@ init_kboard (kb)
  * We use this just before deleteing it, or if we're going to initialize
  * it a second time.
  */
-void
+static void
 wipe_kboard (kb)
      KBOARD *kb;
 {
@@ -6495,6 +6495,21 @@ wipe_kboard (kb)
     xfree (kb->kbd_macro_buffer);
 }
 
+#ifdef MULTI_KBOARD
+void
+delete_kboard (kb)
+  KBOARD *kb;
+{
+  KBOARD **kbp;
+  for (kbp = &all_kboards; *kbp != kb; kbp = &(*kbp)->next_kboard)
+    if (*kbp == NULL)
+      abort ();
+  *kbp = kb->next_kboard;
+  wipe_kboard (kb);
+  xfree (kb);
+}
+#endif
+
 init_keyboard ()
 {
   /* This is correct before outermost invocation of the editor loop */