diff options
author | Miles Bader <miles@gnu.org> | 2007-01-26 06:16:11 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2007-01-26 06:16:11 +0000 |
commit | c0466914ba3ad88c402b0301646b4b5db8aeb913 (patch) | |
tree | 964d8df324ab5f46872dfedc92ccea9fe50a1441 /lisp/emacs-lisp/bytecomp.el | |
parent | c97a3f22ed5841f1c8bcdbb80df2bd49635c6a56 (diff) | |
parent | 58f8a3f97bd49484d0eb4f83a70662ded0daf9cc (diff) | |
download | emacs-c0466914ba3ad88c402b0301646b4b5db8aeb913.tar.gz |
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 586-614)
- Update from CVS
- Update from erc--emacs--22
- Merge from gnus--rel--5.10
- Merge from erc--main--0
- Make byte compiler correctly write circular constants
* gnus--rel--5.10 (patch 186-196)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-162
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
-rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index b7b961f1cbb..400537649ee 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -1,7 +1,7 @@ ;;; bytecomp.el --- compilation of Lisp code into byte code ;; Copyright (C) 1985, 1986, 1987, 1992, 1994, 1998, 2000, 2001, 2002, -;; 2003, 2004, 2005, 2006 Free Software Foundation, Inc. +;; 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. ;; Author: Jamie Zawinski <jwz@lucid.com> ;; Hallvard Furuseth <hbf@ulrik.uio.no> @@ -2002,7 +2002,8 @@ With argument, insert value in current buffer after the form." (print-length nil) (print-level nil) (print-quoted t) - (print-gensym t)) + (print-gensym t) + (print-circle t)) ; handle circular data structures (princ "\n" outbuffer) (prin1 form outbuffer) nil))) @@ -2059,6 +2060,7 @@ list that represents a doc string reference. ;; print-gensym-alist not to be cleared ;; between calls to print functions. (print-gensym '(t)) + (print-circle t) ; handle circular data structures print-gensym-alist ; was used before print-circle existed. (print-continuous-numbering t) print-number-table |