* lisp/cedet/mode-local.el (define-overload): Declare obsolete

* lisp/cedet/srecode/ctxt.el (srecode-calculate-context):
* lisp/cedet/srecode/semantic.el (srecode-semantic-apply-tag-to-dict)
(srecode-semantic-find-template): Use define-overloadable-function instead.

etc/NEWS

@@ -2076,6 +2076,9 @@ Emacs init file does not expose you to this change.  However,
 if you set 'time-stamp-format' or 'time-stamp-pattern' with a
 file-local variable, you may need to update the value.
 
+** mode-local
+*** define-overload is declared obsolete
+
 
 * New Modes and Packages in Emacs 27.1
 

lisp/cedet/mode-local.el

@@ -560,7 +560,8 @@ OVERARGS is a list of arguments passed to the override and
      (put ',name 'mode-local-overload t)))
 (put :override-with-args 'lisp-indent-function 1)
 
-(defalias 'define-overload 'define-overloadable-function)
+(define-obsolete-function-alias 'define-overload
+  #'define-overloadable-function "27.1")
 
 (defsubst function-overload-p (symbol)
   "Return non-nil if SYMBOL is a function which can be overloaded."

lisp/cedet/semantic/bovine/el.el

@@ -241,8 +241,8 @@ Return a bovination list to use."
        (semantic-elisp-desymbolify-args (nth 2 form))
        :user-visible-flag (eq (car-safe (nth 4 form)) 'interactive)
        :documentation (semantic-elisp-do-doc (nth 3 form))
-       :overloadable (or (eq (car form) 'define-overload)
-			 (eq (car form) 'define-overloadable-function))
+       :overloadable (memq (car form) '(define-overload
+                                        define-overloadable-function))
        ))
   defun
   defun*

lisp/cedet/srecode/ctxt.el

@@ -36,7 +36,7 @@
 
 ;;; Code:
 
-(define-overload srecode-calculate-context ()
+(define-overloadable-function srecode-calculate-context ()
   "Calculate the context at the current point.
 The returned context is a list, with the top-most context first.
 Each returned context is a string that would show up in a `context'

lisp/cedet/srecode/semantic.el

@@ -89,7 +89,7 @@ If this is nil, then `senator-tag-ring' is used.")
 The hook is called with two arguments, the TAG and DICT
 to be augmented.")
 
-(define-overload srecode-semantic-apply-tag-to-dict (tagobj dict)
+(define-overloadable-function srecode-semantic-apply-tag-to-dict (tagobj dict)
   "Insert features of TAGOBJ into the dictionary DICT.
 TAGOBJ is an object of class `srecode-semantic-tag'.  This class
 is a compound inserter value.
@@ -227,7 +227,7 @@ Assumes the cursor is in a tag of class type.  If not, throw an error."
 ;;; INSERT A TAG API
 ;;
 ;; Routines that take a tag, and insert into a buffer.
-(define-overload srecode-semantic-find-template (class prototype ctxt)
+(define-overloadable-function srecode-semantic-find-template (class prototype ctxt)
   "Find a template for a tag of class CLASS based on context.
 PROTOTYPE is non-nil if we want a prototype template instead."
   )