Publicize cl--generic-all-functions
* lisp/emacs-lisp/cl-generic.el (cl-generic-all-functions): Rename from cl--generic-all-functions. Update both callers. * lisp/cedet/semantic/db-el.el (semanticdb-find-tags-external-children-of-type-method): And use it here (bug#23042).
This commit is contained in:
parent
3c581d56ad
commit
963541a654
4 changed files with 4 additions and 4 deletions
|
@ -336,7 +336,7 @@ Return a list of tags."
|
|||
(mapcar 'semanticdb-elisp-sym->tag
|
||||
;; Fancy eieio function that knows all about
|
||||
;; built in methods belonging to CLASS.
|
||||
(eieio-all-generic-functions class)))))
|
||||
(cl-generic-all-functions class)))))
|
||||
)
|
||||
taglst))))
|
||||
|
||||
|
|
|
@ -822,7 +822,7 @@ including `cl-block' and `cl-eval-when'."
|
|||
(cl--describe-class-slots class)
|
||||
|
||||
;; Describe all the methods specific to this class.
|
||||
(let ((generics (cl--generic-all-functions type)))
|
||||
(let ((generics (cl-generic-all-functions type)))
|
||||
(when generics
|
||||
(insert (propertize "Specialized Methods:\n\n" 'face 'bold))
|
||||
(dolist (generic generics)
|
||||
|
|
|
@ -937,7 +937,7 @@ MET-NAME is a cons (SYMBOL . SPECIALIZERS)."
|
|||
(setq applies t)))
|
||||
applies))
|
||||
|
||||
(defun cl--generic-all-functions (&optional type)
|
||||
(defun cl-generic-all-functions (&optional type)
|
||||
"Return a list of all generic functions.
|
||||
Optional TYPE argument returns only those functions that contain
|
||||
methods for TYPE."
|
||||
|
|
|
@ -162,7 +162,7 @@ are not abstract."
|
|||
(defun eieio-display-method-list ()
|
||||
"Display a list of all the methods and what features are used."
|
||||
(interactive)
|
||||
(let* ((meth1 (cl--generic-all-functions))
|
||||
(let* ((meth1 (cl-generic-all-functions))
|
||||
(meth (sort meth1 (lambda (a b)
|
||||
(string< (symbol-name a)
|
||||
(symbol-name b)))))
|
||||
|
|
Loading…
Add table
Reference in a new issue