From 6e509e80cb6f30ba4413e741b93aea5994926c27 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 28 Jun 2000 20:28:21 +0000
Subject: [PATCH] (next_almost_prime): Make it externally visible.

---
 src/fns.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/fns.c b/src/fns.c
index 3135ce5fffd..1e9905b1ab6 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -3542,7 +3542,6 @@ Lisp_Object Qhash_table_test;
 /* Function prototypes.  */
 
 static struct Lisp_Hash_Table *check_hash_table P_ ((Lisp_Object));
-static int next_almost_prime P_ ((int));
 static int get_key_arg P_ ((Lisp_Object, int, Lisp_Object *, char *));
 static void maybe_resize_hash_table P_ ((struct Lisp_Hash_Table *));
 static int cmpfn_eql P_ ((struct Lisp_Hash_Table *, Lisp_Object, unsigned,
@@ -3583,7 +3582,7 @@ check_hash_table (obj)
 /* Value is the next integer I >= N, N >= 0 which is "almost" a prime
    number.  */
 
-static int
+int
 next_almost_prime (n)
      int n;
 {
-- 
2.39.2