comparison lisp/emacs-lisp/bytecomp.el @ 95642:1b0cbcea87b2

(byte-compile-current-group): New var. (byte-compile-file): Initialize it. (byte-compile-nogroup-warn): Keep track of the current group.

95641:23bdf2b1013d

;;; byte compiler messages

(defvar byte-compile-current-form nil)
(defvar byte-compile-dest-file nil)
(defvar byte-compile-current-file nil)
(defvar byte-compile-current-buffer nil)

;; Log something that isn't a warning.
(defmacro byte-compile-log (format-string &rest args)
  `(and

(dolist (elt '(format message error))
  (put elt 'byte-compile-format-like t))

;; Warn if a custom definition fails to specify :group.
(defun byte-compile-nogroup-warn (form)
  (let ((keyword-args (cdr (cdr (cdr (cdr form)))))
        (name (cadr form)))
    (or (not (eq (car-safe name) 'quote))
        (and (eq (car form) 'custom-declare-group)
             (equal name ''emacs))
        (plist-get keyword-args :group)
        (not (and (consp name) (eq (car name) 'quote)))
        (byte-compile-warn
         "%s for `%s' fails to specify containing group"
         (cdr (assq (car form)
                    '((custom-declare-group . defgroup)
                      (custom-declare-face . defface)
                      (custom-declare-variable . defcustom))))
         (cadr name)))))

;; Warn if the function or macro is being redefined with a different
;; number of arguments.
(defun byte-compile-arglist-warn (form macrop)
  (let ((old (byte-compile-fdefinition (nth 1 form) macrop)))

	    (with-current-buffer b (save-buffer)))))

  ;; Force logging of the file name for each file compiled.
  (setq byte-compile-last-logged-file nil)
  (let ((byte-compile-current-file bytecomp-filename)
	(set-auto-coding-for-load t)
	target-file input-buffer output-buffer
	byte-compile-dest-file)
    (setq target-file (byte-compile-dest-file bytecomp-filename))
    (setq byte-compile-dest-file target-file)

95642:1b0cbcea87b2

;;; byte compiler messages

(defvar byte-compile-current-form nil)
(defvar byte-compile-dest-file nil)
(defvar byte-compile-current-file nil)
(defvar byte-compile-current-group nil)
(defvar byte-compile-current-buffer nil)

;; Log something that isn't a warning.
(defmacro byte-compile-log (format-string &rest args)
  `(and

(dolist (elt '(format message error))
  (put elt 'byte-compile-format-like t))

;; Warn if a custom definition fails to specify :group.
(defun byte-compile-nogroup-warn (form)
  (if (and (memq (car form) '(custom-declare-face custom-declare-variable))
           byte-compile-current-group)
      ;; The group will be provided implicitly.
      nil
    (let ((keyword-args (cdr (cdr (cdr (cdr form)))))
          (name (cadr form)))
      (or (not (eq (car-safe name) 'quote))
        (and (eq (car form) 'custom-declare-group)
             (equal name ''emacs))
        (plist-get keyword-args :group)
        (not (and (consp name) (eq (car name) 'quote)))
        (byte-compile-warn
         "%s for `%s' fails to specify containing group"
         (cdr (assq (car form)
                      '((custom-declare-group . defgroup)
                        (custom-declare-face . defface)
                        (custom-declare-variable . defcustom))))
           (cadr name)))
      ;; Update the current group, if needed.
      (if (and byte-compile-current-file ;Only when byte-compiling a whole file.
               (eq (car form) 'custom-declare-group)
               (eq (car-safe name) 'quote))
          (setq byte-compile-current-group (cadr name))))))

;; Warn if the function or macro is being redefined with a different
;; number of arguments.
(defun byte-compile-arglist-warn (form macrop)
  (let ((old (byte-compile-fdefinition (nth 1 form) macrop)))

	    (with-current-buffer b (save-buffer)))))

  ;; Force logging of the file name for each file compiled.
  (setq byte-compile-last-logged-file nil)
  (let ((byte-compile-current-file bytecomp-filename)
        (byte-compile-current-group nil)
	(set-auto-coding-for-load t)
	target-file input-buffer output-buffer
	byte-compile-dest-file)
    (setq target-file (byte-compile-dest-file bytecomp-filename))
    (setq byte-compile-dest-file target-file)