[Emacs-diffs] /srv/bzr/emacs/trunk r110849: * fns.c (Qeql, hashtest_eq): Now static.

[Paul Eggert]

------------------------------------------------------------
revno: 110849
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Thu 2012-11-08 16:08:12 -0800
message:
  * fns.c (Qeql, hashtest_eq): Now static.
modified:
  src/ChangeLog
  src/fns.c
  src/lisp.h

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-11-08 21:58:55 +0000
+++ b/src/ChangeLog     2012-11-09 00:08:12 +0000
@@ -1,3 +1,7 @@
+2012-11-09  Paul Eggert  <address@hidden>
+
+       * fns.c (Qeql, hashtest_eq): Now static.
+
 2012-11-08  Stefan Monnier  <address@hidden>
 
        * lisp.h (XHASH): Redefine to be imperfect and fit in a Lisp int.

=== modified file 'src/fns.c'
--- a/src/fns.c 2012-11-08 21:58:55 +0000
+++ b/src/fns.c 2012-11-09 00:08:12 +0000
@@ -3331,8 +3331,8 @@
 
 /* Various symbols.  */
 
-static Lisp_Object Qhash_table_p, Qkey, Qvalue;
-Lisp_Object Qeq, Qeql, Qequal;
+static Lisp_Object Qhash_table_p, Qkey, Qvalue, Qeql;
+Lisp_Object Qeq, Qequal;
 Lisp_Object QCtest, QCsize, QCrehash_size, QCrehash_threshold, QCweakness;
 static Lisp_Object Qhash_table_test, Qkey_or_value, Qkey_and_value;
 
@@ -3424,7 +3424,8 @@
                         Low-level Functions
  ***********************************************************************/
 
-struct hash_table_test hashtest_eq, hashtest_eql, hashtest_equal;
+static struct hash_table_test hashtest_eq;
+struct hash_table_test hashtest_eql, hashtest_equal;
 
 /* Compare KEY1 which has hash code HASH1 and KEY2 with hash code
    HASH2 in hash table H using `eql'.  Value is true if KEY1 and

=== modified file 'src/lisp.h'
--- a/src/lisp.h        2012-11-08 21:58:55 +0000
+++ b/src/lisp.h        2012-11-09 00:08:12 +0000
@@ -2719,7 +2719,7 @@
 extern void sweep_weak_hash_tables (void);
 extern Lisp_Object Qcursor_in_echo_area;
 extern Lisp_Object Qstring_lessp;
-extern Lisp_Object QCsize, QCtest, QCweakness, Qequal, Qeq, Qeql;
+extern Lisp_Object QCsize, QCtest, QCweakness, Qequal, Qeq;
 EMACS_UINT hash_string (char const *, ptrdiff_t);
 EMACS_UINT sxhash (Lisp_Object, int);
 Lisp_Object make_hash_table (struct hash_table_test, Lisp_Object, Lisp_Object,
@@ -2727,7 +2727,7 @@
 ptrdiff_t hash_lookup (struct Lisp_Hash_Table *, Lisp_Object, EMACS_UINT *);
 ptrdiff_t hash_put (struct Lisp_Hash_Table *, Lisp_Object, Lisp_Object,
                    EMACS_UINT);
-extern struct hash_table_test hashtest_eq, hashtest_eql, hashtest_equal;
+extern struct hash_table_test hashtest_eql, hashtest_equal;
 
 extern Lisp_Object substring_both (Lisp_Object, ptrdiff_t, ptrdiff_t,
                                   ptrdiff_t, ptrdiff_t);