diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-06-28 20:28:21 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-06-28 20:28:21 +0000 |
| commit | 6e509e80cb6f30ba4413e741b93aea5994926c27 (patch) | |
| tree | 6eec5b1701eca9bf8641136db09fcbb58efadfab /src/fns.c | |
| parent | 1a7ad14fd09b8832c2cf16ed97c7731ad62da271 (diff) | |
| download | emacs-6e509e80cb6f30ba4413e741b93aea5994926c27.tar.gz emacs-6e509e80cb6f30ba4413e741b93aea5994926c27.tar.bz2 emacs-6e509e80cb6f30ba4413e741b93aea5994926c27.zip | |
(next_almost_prime): Make it externally visible.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 3 |
1 files changed, 1 insertions, 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; { |