Function: byte-compile-file-form-defvar

byte-compile-file-form-defvar is a byte-compiled function defined in bytecomp.el.gz.

Signature

(byte-compile-file-form-defvar FORM)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/bytecomp.el.gz
(defun byte-compile-file-form-defvar (form)
  (let ((sym (nth 1 form)))
    (byte-compile--declare-var sym)
    (if (eq (car form) 'defconst)
        (push sym byte-compile-const-variables)))
  (if (and (null (cddr form))		;No `value' provided.
           (eq (car form) 'defvar))     ;Just a declaration.
      nil
    (byte-compile-docstring-style-warn form)
    (setq form (copy-sequence form))
    (when (consp (nth 2 form))
      (setcar (cdr (cdr form))
              (byte-compile-top-level (nth 2 form) nil 'file)))
    form))