Function: semantic-alias-obsolete

semantic-alias-obsolete is a byte-compiled function defined in fw.el.gz.

This function is obsolete since 28.1; use define-obsolete-function-alias instead.

Signature

(semantic-alias-obsolete OLDFNALIAS NEWFN WHEN)

Documentation

Make OLDFNALIAS an alias for NEWFN.

Mark OLDFNALIAS as obsolete, such that the byte compiler will throw a warning when it encounters this symbol.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/semantic/fw.el.gz
(defun semantic-alias-obsolete (oldfnalias newfn when)
  "Make OLDFNALIAS an alias for NEWFN.
Mark OLDFNALIAS as obsolete, such that the byte compiler
will throw a warning when it encounters this symbol."
  (declare (obsolete define-obsolete-function-alias "28.1"))
  (defalias oldfnalias newfn)
  (make-obsolete oldfnalias newfn when)
  (when (and (mode-local--function-overload-p newfn)
             (not (mode-local--overload-obsoleted-by newfn))
             ;; Only throw this warning when byte compiling things.
             (macroexp-compiling-p)
	     (not (string-match "cedet" (macroexp-file-name)))
	     )
    (make-obsolete-overload oldfnalias newfn when)
    (byte-compile-warn
     "%s: `%s' obsoletes overload `%s'"
     (macroexp-file-name)
     newfn
     (with-suppressed-warnings ((obsolete semantic-overload-symbol-from-function))
       (semantic-overload-symbol-from-function oldfnalias)))))