From: Dmitry Gutov <dgutov@yandex.ru>
Date: Thu, 7 Jan 2016 23:26:55 +0000 (+0300)
Subject: apropos-library: Skip obvious duplicates; don't error on generics
X-Git-Tag: emacs-25.0.90~244
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=671862f6b3089c3a503c1b6936a821ad54429359;p=emacs.git

apropos-library: Skip obvious duplicates; don't error on generics

* lisp/apropos.el (apropos-library): Skip "was an autoload"
entries, to avoid obvious duplicates.  For each cl-defmethod
entry, take just its function symbol (bug#21422).
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 36a729a34ab..f1656859639 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -676,6 +676,10 @@ the output includes key-bindings of commands."
 	;; (autoload (push (cdr x) autoloads))
 	(`require (push (cdr x) requires))
 	(`provide (push (cdr x) provides))
+        (`t nil) ; Skip "was an autoload" entries.
+        ;; FIXME: Print information about each indivial method: both
+        ;; its docstring and specializers (bug#21422).
+        (`cl-defmethod (push (cadr x) provides))
 	(_ (push (or (cdr-safe x) x) symbols))))
     (let ((apropos-pattern "")) ;Dummy binding for apropos-symbols-internal.
       (apropos-symbols-internal