diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-12-22 19:00:12 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-12-22 19:00:12 -0500 |
| commit | 17870c01f609101bc059ff0c38043d3734a35e72 (patch) | |
| tree | dd28373fb555f04167ffac8992db14376fdd8373 /lisp/emacs-lisp/bytecomp.el | |
| parent | a65b85b5f060567a5d9dcbb7e8cbac4ddbbc0b23 (diff) | |
| download | emacs-17870c01f609101bc059ff0c38043d3734a35e72.tar.gz | |
Fix up last change.
* lisp/emacs-lisp/bytecomp.el (byte-compile-output-docform): Fix up use of
print-number-table.
* src/print.c (PRINT_NUMBER_OBJECT, PRINT_NUMBER_STATUS): Remove.
(print_preprocess): Fix handling of uninterned symbols in last change.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index f04aad994f3..28fb1f80d69 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -2058,9 +2058,9 @@ list that represents a doc string reference. ;; to objects already output ;; (for instance, gensyms in the arg list). (let (non-nil) - (dotimes (i (length print-number-table)) - (if (aref print-number-table i) - (setq non-nil t))) + (when (hash-table-p print-number-table) + (maphash (lambda (k v) (if v (setq non-nil t))) + print-number-table)) (not non-nil))) ;; Output the byte code and constants specially ;; for lazy dynamic loading. |