Function: macroexp--obsolete-warning

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

Signature

(macroexp--obsolete-warning FUN OBSOLESCENCE-DATA TYPE &optional KEY)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/macroexp.el.gz
(defun macroexp--obsolete-warning (fun obsolescence-data type &optional key)
  (let ((instead (car obsolescence-data))
        (asof (nth 2 obsolescence-data)))
    (format-message
     "`%s' is an obsolete %s%s%s" fun type
     (if asof (concat " (as of " asof ")") "")
     (cond ((stringp instead) (concat "; " (substitute-command-keys instead)))
           ((and instead key)
            (format-message "; use `%s' (%s) instead." instead key))
           (instead (format-message "; use `%s' instead." instead))
           (t ".")))))