Commit b077f045 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(byte-compile-output-docform):

Bind print-gensym-alist; bind print-gensym to a cons cell.
parent b34a78db
......@@ -10,7 +10,7 @@
;;; This version incorporates changes up to version 2.10 of the
;;; Zawinski-Furuseth compiler.
(defconst byte-compile-version "$Revision: 2.31 $")
(defconst byte-compile-version "$Revision: 2.32 $")
;; This file is part of GNU Emacs.
......@@ -1522,7 +1522,11 @@ list that represents a doc string reference.
(insert (car info))
(let ((print-escape-newlines t)
(print-quoted t)
(print-gensym t)
;; Use a cons cell to say that we want
;; print-gensym-alist not to be cleared
;; between calls to print functions.
(print-gensym '(t))
print-gensym-alist
(index 0))
(prin1 (car form) outbuffer)
(while (setq form (cdr form))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment