# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 962224101 0
# Node ID 6fe8f444b6a3b3869d846f778ff6f406476a42b7
# Parent  4b651d582c5fc6f8c4f93fa8bc22bda500e1d085
(next_almost_prime): Make it externally visible.

diff -r 4b651d582c5f -r 6fe8f444b6a3 src/fns.c
--- a/src/fns.c	Wed Jun 28 20:28:02 2000 +0000
+++ b/src/fns.c	Wed Jun 28 20:28:21 2000 +0000
@@ -3542,7 +3542,6 @@
 /* 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 @@
 /* Value is the next integer I >= N, N >= 0 which is "almost" a prime
    number.  */
 
-static int
+int
 next_almost_prime (n)
      int n;
 {