1 files changed, 15 insertions, 0 deletions

diff --git a/src/lread.c b/src/lread.c
index c124d5a1d8f..f39e81ae2cf 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2974,6 +2974,21 @@ read1 (Lisp_Object readcharfun, int *pch, bool first_in_list)
           vec = XVECTOR (tmp);
           if (vec->header.size == 0)
             invalid_syntax ("Empty byte-code object");
+
+          if (COMPILED_DOC_STRING < vec->header.size
+              && AREF (tmp, COMPILED_DOC_STRING) == make_fixnum (0))
+            {
+              /* read_list found a docstring like '(#$ . 5521)' and treated it
+                 as 0.  This placeholder 0 would lead to accidental sharing in
+                 purecopy's hash-consing, so replace it with a (hopefully)
+                 unique integer placeholder, which is negative so that it is
+                 not confused with a DOC file offset.  Eventually
+                 Snarf-documentation should replace the placeholder with the
+                 actual docstring.  */
+              EMACS_UINT hash = XHASH (tmp) | (INTMASK - INTMASK / 2);
+              ASET (tmp, COMPILED_DOC_STRING, make_ufixnum (hash));
+            }
+
           make_byte_code (vec);
           return tmp;
         }