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:
Dmitry Gutov 2016-05-10 01:15:12 +03:00
parent 3c581d56ad
commit 963541a654
4 changed files with 4 additions and 4 deletions

View file

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

View file

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

View file

@ -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."

View file

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