[Erc-discuss] define-erc-module `definition-name's

[Johan Bockgård]

Make find-function and find-variable find the names constructed by
define-erc-module (in Emacs 22):


Index: erc.el
===================================================================
RCS file: /cvsroot/erc/erc/erc.el,v
retrieving revision 1.815
diff -u -r1.815 erc.el
--- erc.el      6 Apr 2006 02:27:29 -0000       1.815
+++ erc.el      27 Jul 2006 17:28:00 -0000
@@ -1230,7 +1230,11 @@
                (format "erc-%s-mode"
                        (downcase (symbol-name alias)))))
             (quote
-             ,mode))))))
+             ,mode)))
+       ;; For find-function and find-variable.
+       (put ',mode    'definition-name ',name)
+       (put ',enable  'definition-name ',name)
+       (put ',disable 'definition-name ',name))))
 
 (put 'define-erc-module 'doc-string-elt 3)

-- 
Johan Bockgård