[Erc-commit] [commit][emacs22] Make find-function and find-variable work for modules.

[mwolson]

commit 28b8c0e1c7e73b4cc760da6ff628339e194cbe0b
Author: Michael Olson <address@hidden>
Date:   Fri Jul 28 02:57:25 2006 +0000

    Make find-function and find-variable work for modules.
    
    * erc.el (define-erc-module): Make find-function and find-variable find
      the names constructed by `define-erc-module' in Emacs 22.
    git-archimport-id: address@hidden/erc--main--0--patch-24

diff --git a/ChangeLog b/ChangeLog
index 7f04ee7..55d88b2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-07-27  Johan Bockgård  <address@hidden>
+
+       * erc.el (define-erc-module): Make find-function and find-variable
+       find the names constructed by `define-erc-module' in Emacs 22.
+
 2006-07-14  Michael Olson  <address@hidden>
 
        * erc-log.el (log): Make sure that we enable logging on
diff --git a/erc.el b/erc.el
index 1202a1c..1d2cc5c 100644
--- a/erc.el
+++ b/erc.el
@@ -1243,7 +1243,11 @@ With arg, turn ERC %S mode on if and only if arg is 
positive.
                (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)