diff options
| author | Richard M. Stallman | 1999-09-11 04:44:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-09-11 04:44:23 +0000 |
| commit | 42e0601d4a9654d8cd873859244755454870cb25 (patch) | |
| tree | 86bd191e4db15bf3853f380d41e42be21a2e2ec0 | |
| parent | 7d15d35df85b18950ab0d094f7f52746c5982719 (diff) | |
| download | emacs-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.el | 10 |
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)) |