Mercurial > emacs
changeset 31541:3d47e1826bf4
(byte-compile-defvar): Only cons onto
current-load-list in top-level forms. Else this leaks a cons cell
every time a defun is called.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 11 Sep 2000 18:26:01 +0000 |
| parents | 774098937e4f |
| children | d45bbf1117f5 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 11 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Mon Sep 11 16:56:27 2000 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Mon Sep 11 18:26:01 2000 +0000 @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.73 $") +(defconst byte-compile-version "$Revision: 1.1 $") ;; This file is part of GNU Emacs. @@ -3220,19 +3220,16 @@ (setq byte-compile-bound-variables (cons var byte-compile-bound-variables))) (byte-compile-body-do-effect - (list (if (cdr (cdr form)) - (if (eq (car form) 'defconst) - (list 'setq var value) - (list 'or (list 'boundp (list 'quote var)) - (list 'setq var value)))) - ;; Put the defined variable in this library's load-history entry - ;; just as a real defvar would. - (list 'setq 'current-load-list - (list 'cons (list 'quote var) - 'current-load-list)) - (if string - (list 'put (list 'quote var) ''variable-documentation string)) - (list 'quote var))))) + (list + ;; Just as a real defvar would, but only in top-level forms. + (when (null byte-compile-current-form) + `(push ',var current-load-list)) + (when (and string (null byte-compile-current-form)) + `(put ',var 'variable-documentation ,string)) + (if (cdr (cdr form)) + (if (eq (car form) 'defconst) + `(setq ,var ,value) + `(if (boundp ',var) ',var (setq ,var ,value)))))))) (defun byte-compile-autoload (form) (and (byte-compile-constp (nth 1 form))