* eval.c (Fautoload): Don't double-shift a pointer.

diff --git a/src/ChangeLog b/src/ChangeLog
index a43e61f82783d72b8f3682168fd0e7bf7d2aee17..442e8e3b1f6c6c25e38eec657575d1f59147639d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2011-04-28  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * eval.c (Fautoload): Don't double-shift a pointer.
+
        * fns.c (Frandom): Let EMACS_UINT be wider than unsigned long.
 
 2011-04-27  Paul Eggert  <eggert@cs.ucla.edu>

diff --git a/src/eval.c b/src/eval.c
index bcbbf740153c129a7e01491733ca8b432f2abbe6..88b8572a33e06fa7a9fced5d788d59e907b50748 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -2144,7 +2144,7 @@ this does nothing and returns nil.  */)
        We used to use 0 here, but that leads to accidental sharing in
        purecopy's hash-consing, so we use a (hopefully) unique integer
        instead.  */
-    docstring = make_number (XHASH (function));
+    docstring = make_number (XPNTR (function));
   return Ffset (function,
                Fpurecopy (list5 (Qautoload, file, docstring,
                                  interactive, type)));