comparison lisp/emacs-lisp/byte-run.el @ 55041:1376729a93a7

(with-no-warnings): Simplify: take all args as &rest arg.

55040:4728f7603f2a

  "Like `progn', but evaluates the body at compile time and at load time."
  (declare (debug t))
  ;; Remember, it's magic.
  (cons 'progn body))

(defun with-no-warnings (&optional first &rest body)
  "Like `progn', but prevents compiler warnings in the body."
  ;; The implementation for the interpreter is basically trivial.
  (if body (car (last body))
    first))


;;; I nuked this because it's not a good idea for users to think of using it.
;;; These options are a matter of installation preference, and have nothing to
;;; with particular source files; it's a mistake to suggest to users

55041:1376729a93a7

  "Like `progn', but evaluates the body at compile time and at load time."
  (declare (debug t))
  ;; Remember, it's magic.
  (cons 'progn body))

(defun with-no-warnings (&rest body)
  "Like `progn', but prevents compiler warnings in the body."
  ;; The implementation for the interpreter is basically trivial.
  (car (last body)))


;;; I nuked this because it's not a good idea for users to think of using it.
;;; These options are a matter of installation preference, and have nothing to
;;; with particular source files; it's a mistake to suggest to users