mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Rename object-sort-list to srecode-object-sort-list

Browse source 
* lisp/cedet/srecode/table.el (srecode-object-sort-list): Rename
from 'object-sort-list'.  Retain old name as an obsolete alias.
This commit is contained in:
Stefan Kangas 2022-08-05 13:00:06 +02:00
parent 010e2e5e5e
commit c388578fb1
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/cedet/srecode/table.el
View file

@ -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)