From a93dceda3fdcca18b51cb96461e1b8a4fc61bfd7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 11 Oct 2019 13:54:30 -0400 Subject: * 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. --- lisp/cedet/srecode/ctxt.el | 2 +- lisp/cedet/srecode/semantic.el | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/cedet/srecode') diff --git a/lisp/cedet/srecode/ctxt.el b/lisp/cedet/srecode/ctxt.el index b20b9bc6417..ee9f12fcae3 100644 --- a/lisp/cedet/srecode/ctxt.el +++ b/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' diff --git a/lisp/cedet/srecode/semantic.el b/lisp/cedet/srecode/semantic.el index 1e1a60e0245..344b908da32 100644 --- a/lisp/cedet/srecode/semantic.el +++ b/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." ) -- cgit v1.2.3