mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
* 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.
This commit is contained in:
Stefan Monnier 2019-10-11 13:54:30 -04:00
parent 421db07d06
commit a93dceda3f
5 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
etc/NEWS
View file

@ -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 if you set 'time-stamp-format' or 'time-stamp-pattern' with a
file-local variable, you may need to update the value. 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 * New Modes and Packages in Emacs 27.1

3
lisp/cedet/mode-local.el
View file

@ -560,7 +560,8 @@ OVERARGS is a list of arguments passed to the override and
(put ',name 'mode-local-overload t))) (put ',name 'mode-local-overload t)))
(put :override-with-args 'lisp-indent-function 1) (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) (defsubst function-overload-p (symbol)
"Return non-nil if SYMBOL is a function which can be overloaded." "Return non-nil if SYMBOL is a function which can be overloaded."

4
lisp/cedet/semantic/bovine/el.el
View file

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

2
lisp/cedet/srecode/ctxt.el
View file

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

4
lisp/cedet/srecode/semantic.el
View file

@ -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 The hook is called with two arguments, the TAG and DICT
to be augmented.") 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. "Insert features of TAGOBJ into the dictionary DICT.
TAGOBJ is an object of class `srecode-semantic-tag'. This class TAGOBJ is an object of class `srecode-semantic-tag'. This class
is a compound inserter value. 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 ;;; INSERT A TAG API
;; ;;
;; Routines that take a tag, and insert into a buffer. ;; 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. "Find a template for a tag of class CLASS based on context.
PROTOTYPE is non-nil if we want a prototype template instead." PROTOTYPE is non-nil if we want a prototype template instead."
) )