aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1999-09-11 04:44:23 +0000
committerRichard M. Stallman1999-09-11 04:44:23 +0000
commit42e0601d4a9654d8cd873859244755454870cb25 (patch)
tree86bd191e4db15bf3853f380d41e42be21a2e2ec0
parent7d15d35df85b18950ab0d094f7f52746c5982719 (diff)
downloademacs-42e0601d4a9654d8cd873859244755454870cb25.tar.gz
emacs-42e0601d4a9654d8cd873859244755454870cb25.zip
(byte-compile-output-docform): Bind print-continuous-numbering and
print-number-table.
-rw-r--r--lisp/emacs-lisp/bytecomp.el10
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index d97f9bd365f..63f9d395e63 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -9,7 +9,7 @@
9 9
10;;; This version incorporates changes up to version 2.10 of the 10;;; This version incorporates changes up to version 2.10 of the
11;;; Zawinski-Furuseth compiler. 11;;; Zawinski-Furuseth compiler.
12(defconst byte-compile-version "$Revision: 2.55 $") 12(defconst byte-compile-version "$Revision: 2.56 $")
13 13
14;; This file is part of GNU Emacs. 14;; This file is part of GNU Emacs.
15 15
@@ -1643,11 +1643,9 @@ list that represents a doc string reference.
1643 (insert (car info)) 1643 (insert (car info))
1644 (let ((print-escape-newlines t) 1644 (let ((print-escape-newlines t)
1645 (print-quoted t) 1645 (print-quoted t)
1646 ;; Use a cons cell to say that we want 1646 (print-gensym t)
1647 ;; print-gensym-alist not to be cleared 1647 (print-continuous-numbering t)
1648 ;; between calls to print functions. 1648 print-number-table
1649 (print-gensym '(t))
1650 print-gensym-alist
1651 (index 0)) 1649 (index 0))
1652 (prin1 (car form) outbuffer) 1650 (prin1 (car form) outbuffer)
1653 (while (setq form (cdr form)) 1651 (while (setq form (cdr form))