Function: macroexp--cons

macroexp--cons is a byte-compiled function defined in macroexp.el.gz.

Signature

(macroexp--cons CAR CDR ORIGINAL-CONS)

Documentation

Return ORIGINAL-CONS if the car/cdr of it is eq to CAR and CDR, respectively.

If not, return (CAR . CDR).

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/macroexp.el.gz
(defun macroexp--cons (car cdr original-cons)
  "Return ORIGINAL-CONS if the car/cdr of it is `eq' to CAR and CDR, respectively.
If not, return (CAR . CDR)."
  (if (and (eq car (car original-cons)) (eq cdr (cdr original-cons)))
      original-cons
    (cons car cdr)))