diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-05 13:00:06 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-05 13:05:06 +0200 |
| commit | c388578fb1aa714f2cf5ae2ad8a2933ca902b9df (patch) | |
| tree | 87c6be231dcc4de7fdecf4ec292e7bcb555beb88 | |
| parent | 010e2e5e5e2c45c9aab08dffbe83f9acb4a87191 (diff) | |
| download | emacs-c388578fb1aa714f2cf5ae2ad8a2933ca902b9df.tar.gz | |
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.
| -rw-r--r-- | lisp/cedet/srecode/table.el | 10 |
1 files changed, 6 insertions, 4 deletions
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) |