From c388578fb1aa714f2cf5ae2ad8a2933ca902b9df Mon Sep 17 00:00:00 2001
From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 5 Aug 2022 13:00:06 +0200
Subject: Rename object-sort-list to srecode-object-sort-list
* lisp/cedet/srecode/table.el (srecode-object-sort-list): Rename
from 'object-sort-list'. Retain old name as an obsolete alias.
---
lisp/cedet/srecode/table.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
(limited to 'lisp/cedet/srecode')
diff --git a/lisp/cedet/srecode/table.el b/lisp/cedet/srecode/table.el
index 3dfbb9d58b1..f77898f9065 100644
--- a/lisp/cedet/srecode/table.el
+++ b/lisp/cedet/srecode/table.el
@@ -200,13 +200,13 @@ INIT are the initialization parameters for the new template table."
;; go front-to-back, the highest priority items are put
;; into the search table first, allowing lower priority items
;; to be the items found in the search table.
- (object-sort-list mt 'modetables (lambda (a b)
- (> (oref a priority)
- (oref b priority))))
+ (srecode-object-sort-list mt 'modetables (lambda (a b)
+ (> (oref a priority)
+ (oref b priority))))
;; Return it.
new))
-(defun object-sort-list (object slot predicate)
+(defun srecode-object-sort-list (object slot predicate)
"Sort the items in OBJECT's SLOT.
Use PREDICATE is the same as for the `sort' function."
(when (slot-boundp object slot)
@@ -284,6 +284,8 @@ Use PREDICATE is the same as for the `sort' function."
(setq temp (cdr temp))))
)
+(define-obsolete-function-alias 'object-sort-list
+ #'srecode-object-sort-list "29.1")
(provide 'srecode/table)
--
cgit v1.2.3