Commit 71246c2c authored by Gerd Moellmann's avatar Gerd Moellmann

Undo last change

because it breaks '(make-variable-buffer-local (defvar ...)'
which is used at least in dired.
parent 54fa5bc1
2000-09-11 Gerd Moellmann <gerd@gnu.org>
* bytecomp.el (byte-compile-defvar): Undo last change
because it breaks '(make-variable-buffer-local (defvar ...)'
which is used at least in dired.
2000-09-12 Kenichi Handa <handa@etl.go.jp>
* international/quail.el (quail-define-package): Docstring
......
......@@ -3220,16 +3220,19 @@ If FORM is a lambda or a macro, byte-compile it as a function."
(setq byte-compile-bound-variables
(cons var byte-compile-bound-variables)))
(byte-compile-body-do-effect
(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))))))))
(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)))))
(defun byte-compile-autoload (form)
(and (byte-compile-constp (nth 1 form))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment