1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00

Put most erc autoloads in a dedicated file erc-loaddefs.el

These are features that are only useful after erc.el is loaded.
* lisp/erc/erc.el (top-level): Load erc-loaddefs.
* lisp/erc/erc-autoaway.el, lisp/erc/erc-button.el:
* lisp/erc/erc-capab.el, lisp/erc/erc-compat.el:
* lisp/erc/erc-dcc.el, lisp/erc/erc-desktop-notifications.el:
* lisp/erc/erc-ezbounce.el, lisp/erc/erc-fill.el:
* lisp/erc/erc-identd.el, lisp/erc/erc-imenu.el:
* lisp/erc/erc-join.el, lisp/erc/erc-list.el, lisp/erc/erc-log.el:
* lisp/erc/erc-match.el, lisp/erc/erc-menu.el:
* lisp/erc/erc-netsplit.el, lisp/erc/erc-notify.el:
* lisp/erc/erc-page.el, lisp/erc/erc-pcomplete.el:
* lisp/erc/erc-replace.el, lisp/erc/erc-ring.el:
* lisp/erc/erc-services.el, lisp/erc/erc-sound.el:
* lisp/erc/erc-speedbar.el, lisp/erc/erc-spelling.el:
* lisp/erc/erc-stamp.el, lisp/erc/erc-track.el:
* lisp/erc/erc-truncate.el, lisp/erc/erc-xdcc.el:
Set generated-autoload-file to "erc-loaddefs.el".
This commit is contained in:
Glenn Morris 2017-11-28 21:16:02 -05:00
parent c816e647eb
commit 95369ac346
30 changed files with 69 additions and 26 deletions

View file

@ -82,7 +82,7 @@ This is used when `erc-autoaway-idle-method' is 'user."
(unless (erc-autoaway-some-server-buffer) (unless (erc-autoaway-some-server-buffer)
(remove-hook 'post-command-hook 'erc-autoaway-reset-idle-user))) (remove-hook 'post-command-hook 'erc-autoaway-reset-idle-user)))
;;;###autoload (autoload 'erc-autoaway-mode "erc-autoaway") ;;;###autoload(autoload 'erc-autoaway-mode "erc-autoaway")
(define-erc-module autoaway nil (define-erc-module autoaway nil
"In ERC autoaway mode, you can be set away automatically. "In ERC autoaway mode, you can be set away automatically.
If `erc-auto-set-away' is set, then you will be set away after If `erc-auto-set-away' is set, then you will be set away after
@ -282,6 +282,7 @@ active server buffer available."
;;; erc-autoaway.el ends here ;;; erc-autoaway.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -49,7 +49,7 @@
"Define how text can be turned into clickable buttons." "Define how text can be turned into clickable buttons."
:group 'erc) :group 'erc)
;;;###autoload (autoload 'erc-button-mode "erc-button" nil t) ;;;###autoload(autoload 'erc-button-mode "erc-button" nil t)
(define-erc-module button nil (define-erc-module button nil
"This mode buttonizes all messages according to `erc-button-alist'." "This mode buttonizes all messages according to `erc-button-alist'."
((add-hook 'erc-insert-modify-hook 'erc-button-add-buttons 'append) ((add-hook 'erc-insert-modify-hook 'erc-button-add-buttons 'append)
@ -545,5 +545,6 @@ and `apropos' for other symbols."
;;; erc-button.el ends here ;;; erc-button.el ends here
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: nil ;; indent-tabs-mode: nil
;; End: ;; End:

View file

@ -90,7 +90,7 @@ character not found in IRC nicknames to avoid confusion."
;;; Define module: ;;; Define module:
;;;###autoload (autoload 'erc-capab-identify-mode "erc-capab" nil t) ;;;###autoload(autoload 'erc-capab-identify-mode "erc-capab" nil t)
(define-erc-module capab-identify nil (define-erc-module capab-identify nil
"Handle dancer-ircd's CAPAB IDENTIFY-MSG and IDENTIFY-CTCP." "Handle dancer-ircd's CAPAB IDENTIFY-MSG and IDENTIFY-CTCP."
;; append so that `erc-server-parameters' is already set by `erc-server-005' ;; append so that `erc-server-parameters' is already set by `erc-server-005'
@ -207,3 +207,7 @@ PARSED is an `erc-parsed' response struct."
(provide 'erc-capab) (provide 'erc-capab)
;;; erc-capab.el ends here ;;; erc-capab.el ends here
;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; End:

View file

@ -29,7 +29,7 @@
(require 'format-spec) (require 'format-spec)
;;;###autoload (autoload 'erc-define-minor-mode "erc-compat") ;;;###autoload(autoload 'erc-define-minor-mode "erc-compat")
(defalias 'erc-define-minor-mode 'define-minor-mode) (defalias 'erc-define-minor-mode 'define-minor-mode)
(put 'erc-define-minor-mode 'edebug-form-spec 'define-minor-mode) (put 'erc-define-minor-mode 'edebug-form-spec 'define-minor-mode)
@ -161,6 +161,7 @@ If START or END is negative, it counts from the end."
;;; erc-compat.el ends here ;;; erc-compat.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -56,7 +56,7 @@
(require 'erc) (require 'erc)
(eval-when-compile (require 'pcomplete)) (eval-when-compile (require 'pcomplete))
;;;###autoload (autoload 'erc-dcc-mode "erc-dcc") ;;;###autoload(autoload 'erc-dcc-mode "erc-dcc")
(define-erc-module dcc nil (define-erc-module dcc nil
"Provide Direct Client-to-Client support for ERC." "Provide Direct Client-to-Client support for ERC."
((add-hook 'erc-server-401-functions 'erc-dcc-no-such-nick)) ((add-hook 'erc-server-401-functions 'erc-dcc-no-such-nick))
@ -1258,5 +1258,6 @@ other client."
;;; erc-dcc.el ends here ;;; erc-dcc.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: nil ;; indent-tabs-mode: nil
;; End: ;; End:

View file

@ -98,3 +98,7 @@ This will replace the last notification sent with this function."
(provide 'erc-desktop-notifications) (provide 'erc-desktop-notifications)
;;; erc-desktop-notifications.el ends here ;;; erc-desktop-notifications.el ends here
;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; End:

View file

@ -175,3 +175,7 @@ in the alist is nil, prompt for the appropriate values."
(provide 'erc-ezbounce) (provide 'erc-ezbounce)
;;; erc-ezbounce.el ends here ;;; erc-ezbounce.el ends here
;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; End:

View file

@ -37,7 +37,7 @@
"Filling means to reformat long lines in different ways." "Filling means to reformat long lines in different ways."
:group 'erc) :group 'erc)
;;;###autoload (autoload 'erc-fill-mode "erc-fill" nil t) ;;;###autoload(autoload 'erc-fill-mode "erc-fill" nil t)
(erc-define-minor-mode erc-fill-mode (erc-define-minor-mode erc-fill-mode
"Toggle ERC fill mode. "Toggle ERC fill mode.
With a prefix argument ARG, enable ERC fill mode if ARG is With a prefix argument ARG, enable ERC fill mode if ARG is
@ -193,5 +193,6 @@ You can put this on `erc-insert-modify-hook' and/or `erc-send-modify-hook'."
;;; erc-fill.el ends here ;;; erc-fill.el ends here
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: nil ;; indent-tabs-mode: nil
;; End: ;; End:

View file

@ -55,7 +55,7 @@ This can be either a string or a number."
(integer :tag "Port number") (integer :tag "Port number")
(string :tag "Port string"))) (string :tag "Port string")))
;;;###autoload (autoload 'erc-identd-mode "erc-identd") ;;;###autoload(autoload 'erc-identd-mode "erc-identd")
(define-erc-module identd nil (define-erc-module identd nil
"This mode launches an identd server on port 8113." "This mode launches an identd server on port 8113."
((add-hook 'erc-connect-pre-hook 'erc-identd-quickstart) ((add-hook 'erc-connect-pre-hook 'erc-identd-quickstart)
@ -115,6 +115,7 @@ The default port is specified by `erc-identd-port'."
;;; erc-identd.el ends here ;;; erc-identd.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -131,6 +131,7 @@ Don't rely on this function, read it first!"
;;; erc-imenu.el ends here ;;; erc-imenu.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -39,7 +39,7 @@
"Enable autojoining." "Enable autojoining."
:group 'erc) :group 'erc)
;;;###autoload (autoload 'erc-autojoin-mode "erc-join" nil t) ;;;###autoload(autoload 'erc-autojoin-mode "erc-join" nil t)
(define-erc-module autojoin nil (define-erc-module autojoin nil
"Makes ERC autojoin on connects and reconnects." "Makes ERC autojoin on connects and reconnects."
((add-hook 'erc-after-connect 'erc-autojoin-channels) ((add-hook 'erc-after-connect 'erc-autojoin-channels)
@ -215,6 +215,7 @@ This function is run from `erc-nickserv-identified-hook'."
;;; erc-join.el ends here ;;; erc-join.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -55,7 +55,7 @@
(defvar erc-list-server-buffer nil) (defvar erc-list-server-buffer nil)
;; Define module: ;; Define module:
;;;###autoload (autoload 'erc-list-mode "erc-list") ;;;###autoload(autoload 'erc-list-mode "erc-list")
(define-erc-module list nil (define-erc-module list nil
"List channels nicely in a separate buffer." "List channels nicely in a separate buffer."
((remove-hook 'erc-server-321-functions 'erc-server-321-message) ((remove-hook 'erc-server-321-functions 'erc-server-321-message)
@ -225,6 +225,7 @@ to RFC and send the LIST header (#321) at start of list transmission."
;;; erc-list.el ends here ;;; erc-list.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -215,7 +215,7 @@ The function should take one argument, which is the text to filter."
(const :tag "No filtering" nil))) (const :tag "No filtering" nil)))
;;;###autoload (autoload 'erc-log-mode "erc-log" nil t) ;;;###autoload(autoload 'erc-log-mode "erc-log" nil t)
(define-erc-module log nil (define-erc-module log nil
"Automatically logs things you receive on IRC into files. "Automatically logs things you receive on IRC into files.
Files are stored in `erc-log-channels-directory'; file name Files are stored in `erc-log-channels-directory'; file name
@ -455,6 +455,7 @@ You can save every individual message by putting this function on
;;; erc-log.el ends here ;;; erc-log.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -44,7 +44,7 @@ Group containing all things concerning pattern matching in ERC
messages." messages."
:group 'erc) :group 'erc)
;;;###autoload (autoload 'erc-match-mode "erc-match") ;;;###autoload(autoload 'erc-match-mode "erc-match")
(define-erc-module match nil (define-erc-module match nil
"This mode checks whether messages match certain patterns. If so, "This mode checks whether messages match certain patterns. If so,
they are hidden or highlighted. This is controlled via the variables they are hidden or highlighted. This is controlled via the variables
@ -648,6 +648,7 @@ This function is meant to be called from `erc-text-matched-hook'."
;;; erc-match.el ends here ;;; erc-match.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -107,7 +107,7 @@
"Internal variable used to keep track of whether we've defined the "Internal variable used to keep track of whether we've defined the
ERC menu yet.") ERC menu yet.")
;;;###autoload (autoload 'erc-menu-mode "erc-menu" nil t) ;;;###autoload(autoload 'erc-menu-mode "erc-menu" nil t)
(define-erc-module menu nil (define-erc-module menu nil
"Enable a menu in ERC buffers." "Enable a menu in ERC buffers."
((unless erc-menu-defined ((unless erc-menu-defined
@ -148,6 +148,7 @@ ERC menu yet.")
;;; erc-menu.el ends here ;;; erc-menu.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -38,7 +38,7 @@ netsplit happens, and filters the QUIT messages. It also keeps
track of netsplits, so that it can filter the JOIN messages on a netjoin too." track of netsplits, so that it can filter the JOIN messages on a netjoin too."
:group 'erc) :group 'erc)
;;;###autoload (autoload 'erc-netsplit-mode "erc-netsplit") ;;;###autoload(autoload 'erc-netsplit-mode "erc-netsplit")
(define-erc-module netsplit nil (define-erc-module netsplit nil
"This mode hides quit/join messages if a netsplit occurs." "This mode hides quit/join messages if a netsplit occurs."
((erc-netsplit-install-message-catalogs) ((erc-netsplit-install-message-catalogs)
@ -205,6 +205,7 @@ join from that split has been detected or not.")
;;; erc-netsplit.el ends here ;;; erc-netsplit.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -92,7 +92,7 @@ strings."
(notify_on . "Detected %n on IRC network %m") (notify_on . "Detected %n on IRC network %m")
(notify_off . "%n has left IRC network %m")))) (notify_off . "%n has left IRC network %m"))))
;;;###autoload (autoload 'erc-notify-mode "erc-notify" nil t) ;;;###autoload(autoload 'erc-notify-mode "erc-notify" nil t)
(define-erc-module notify nil (define-erc-module notify nil
"Periodically check for the online status of certain users and report "Periodically check for the online status of certain users and report
changes." changes."
@ -253,6 +253,7 @@ with args, toggle notify status of people."
;;; erc-notify.el ends here ;;; erc-notify.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -30,7 +30,7 @@
(require 'erc) (require 'erc)
;;;###autoload (autoload 'erc-page-mode "erc-page") ;;;###autoload(autoload 'erc-page-mode "erc-page")
(define-erc-module page ctcp-page (define-erc-module page ctcp-page
"Process CTCP PAGE requests from IRC." "Process CTCP PAGE requests from IRC."
nil nil) nil nil)
@ -107,6 +107,7 @@ receive pages if `erc-page-mode' is on."
;;; erc-page.el ends here ;;; erc-page.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -60,7 +60,7 @@ the most recent speakers are listed first."
:group 'erc-pcomplete :group 'erc-pcomplete
:type 'boolean) :type 'boolean)
;;;###autoload (autoload 'erc-completion-mode "erc-pcomplete" nil t) ;;;###autoload(autoload 'erc-completion-mode "erc-pcomplete" nil t)
(define-erc-module pcomplete Completion (define-erc-module pcomplete Completion
"In ERC Completion mode, the TAB key does completion whenever possible." "In ERC Completion mode, the TAB key does completion whenever possible."
((add-hook 'erc-mode-hook 'pcomplete-erc-setup) ((add-hook 'erc-mode-hook 'pcomplete-erc-setup)
@ -284,5 +284,6 @@ up to where point is right now."
;;; erc-pcomplete.el ends here ;;; erc-pcomplete.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: nil ;; indent-tabs-mode: nil
;; End: ;; End:

View file

@ -77,7 +77,7 @@ It replaces text according to `erc-replace-alist'."
(eval to)))))) (eval to))))))
erc-replace-alist)) erc-replace-alist))
;;;###autoload (autoload 'erc-replace-mode "erc-replace") ;;;###autoload(autoload 'erc-replace-mode "erc-replace")
(define-erc-module replace nil (define-erc-module replace nil
"This mode replaces incoming text according to `erc-replace-alist'." "This mode replaces incoming text according to `erc-replace-alist'."
((add-hook 'erc-insert-modify-hook ((add-hook 'erc-insert-modify-hook
@ -90,6 +90,7 @@ It replaces text according to `erc-replace-alist'."
;;; erc-replace.el ends here ;;; erc-replace.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -42,7 +42,7 @@
"An input ring for ERC." "An input ring for ERC."
:group 'erc) :group 'erc)
;;;###autoload (autoload 'erc-ring-mode "erc-ring" nil t) ;;;###autoload(autoload 'erc-ring-mode "erc-ring" nil t)
(define-erc-module ring nil (define-erc-module ring nil
"Stores input in a ring so that previous commands and messages can "Stores input in a ring so that previous commands and messages can
be recalled using M-p and M-n." be recalled using M-p and M-n."
@ -146,5 +146,6 @@ containing a password."
;;; erc-ring.el ends here ;;; erc-ring.el ends here
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: nil ;; indent-tabs-mode: nil
;; End: ;; End:

View file

@ -101,7 +101,7 @@ You can also use \\[erc-nickserv-identify-mode] to change modes."
(when (featurep 'erc-services) (when (featurep 'erc-services)
(erc-nickserv-identify-mode val)))) (erc-nickserv-identify-mode val))))
;;;###autoload (autoload 'erc-services-mode "erc-services" nil t) ;;;###autoload(autoload 'erc-services-mode "erc-services" nil t)
(define-erc-module services nickserv (define-erc-module services nickserv
"This mode automates communication with services." "This mode automates communication with services."
((erc-nickserv-identify-mode erc-nickserv-identify-mode)) ((erc-nickserv-identify-mode erc-nickserv-identify-mode))
@ -453,6 +453,7 @@ When called interactively, read the password using `read-passwd'."
;;; erc-services.el ends here ;;; erc-services.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -46,7 +46,7 @@
(require 'erc) (require 'erc)
;;;###autoload (autoload 'erc-sound-mode "erc-sound") ;;;###autoload(autoload 'erc-sound-mode "erc-sound")
(define-erc-module sound ctcp-sound (define-erc-module sound ctcp-sound
"In ERC sound mode, the client will respond to CTCP SOUND requests "In ERC sound mode, the client will respond to CTCP SOUND requests
and play sound files as requested." and play sound files as requested."
@ -145,6 +145,7 @@ See also `play-sound-file'."
;;; erc-sound.el ends here ;;; erc-sound.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -361,6 +361,7 @@ The INDENT level is ignored."
;;; erc-speedbar.el ends here ;;; erc-speedbar.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -33,7 +33,7 @@
(require 'erc) (require 'erc)
(require 'flyspell) (require 'flyspell)
;;;###autoload (autoload 'erc-spelling-mode "erc-spelling" nil t) ;;;###autoload(autoload 'erc-spelling-mode "erc-spelling" nil t)
(define-erc-module spelling nil (define-erc-module spelling nil
"Enable flyspell mode in ERC buffers." "Enable flyspell mode in ERC buffers."
;; Use erc-connect-pre-hook instead of erc-mode-hook as pre-hook is ;; Use erc-connect-pre-hook instead of erc-mode-hook as pre-hook is
@ -109,3 +109,7 @@ The cadr is the beginning and the caddr is the end."
(provide 'erc-spelling) (provide 'erc-spelling)
;;; erc-spelling.el ends here ;;; erc-spelling.el ends here
;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; End:

View file

@ -158,7 +158,7 @@ from entering them and instead jump over them."
"ERC timestamp face." "ERC timestamp face."
:group 'erc-faces) :group 'erc-faces)
;;;###autoload (autoload 'erc-timestamp-mode "erc-stamp" nil t) ;;;###autoload(autoload 'erc-timestamp-mode "erc-stamp" nil t)
(define-erc-module stamp timestamp (define-erc-module stamp timestamp
"This mode timestamps messages in the channel buffers." "This mode timestamps messages in the channel buffers."
((add-hook 'erc-mode-hook #'erc-munge-invisibility-spec) ((add-hook 'erc-mode-hook #'erc-munge-invisibility-spec)
@ -417,6 +417,7 @@ enabled when the message was inserted."
;;; erc-stamp.el ends here ;;; erc-stamp.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -542,7 +542,7 @@ keybindings will not do anything useful."
;;; Module ;;; Module
;;;###autoload (autoload 'erc-track-mode "erc-track" nil t) ;;;###autoload(autoload 'erc-track-mode "erc-track" nil t)
(define-erc-module track nil (define-erc-module track nil
"This mode tracks ERC channel buffers with activity." "This mode tracks ERC channel buffers with activity."
;; Enable: ;; Enable:
@ -974,6 +974,7 @@ switch back to the last non-ERC buffer visited. Next is defined by
;;; erc-track.el ends here ;;; erc-track.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -43,7 +43,7 @@ Used only when auto-truncation is enabled.
:group 'erc-truncate :group 'erc-truncate
:type 'integer) :type 'integer)
;;;###autoload (autoload 'erc-truncate-mode "erc-truncate" nil t) ;;;###autoload(autoload 'erc-truncate-mode "erc-truncate" nil t)
(define-erc-module truncate nil (define-erc-module truncate nil
"Truncate a query buffer if it gets too large. "Truncate a query buffer if it gets too large.
This prevents the query buffer from getting too large, which can This prevents the query buffer from getting too large, which can
@ -112,6 +112,7 @@ Meant to be used in hooks, like `erc-insert-post-hook'."
;;; erc-truncate.el ends here ;;; erc-truncate.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -61,7 +61,7 @@ being evaluated and should return strings."
:group 'erc-dcc :group 'erc-dcc
:type '(repeat (repeat :tag "Message" (choice string sexp)))) :type '(repeat (repeat :tag "Message" (choice string sexp))))
;;;###autoload (autoload 'erc-xdcc-mode "erc-xdcc") ;;;###autoload(autoload 'erc-xdcc-mode "erc-xdcc")
(define-erc-module xdcc nil (define-erc-module xdcc nil
"Act as an XDCC file-server." "Act as an XDCC file-server."
nil nil) nil nil)
@ -133,6 +133,7 @@ being evaluated and should return strings."
;;; erc-xdcc.el ends here ;;; erc-xdcc.el ends here
;; ;;
;; Local Variables: ;; Local Variables:
;; generated-autoload-file: "erc-loaddefs.el"
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

View file

@ -67,6 +67,8 @@
;;; Code: ;;; Code:
(load "erc-loaddefs" nil t)
(eval-when-compile (require 'cl-lib)) (eval-when-compile (require 'cl-lib))
(require 'font-lock) (require 'font-lock)
(require 'pp) (require 'pp)
@ -1272,7 +1274,7 @@ erc-NAME-enable, and erc-NAME-disable.
Example: Example:
;;;###autoload (autoload \\='erc-replace-mode \"erc-replace\") ;;;###autoload(autoload \\='erc-replace-mode \"erc-replace\")
(define-erc-module replace nil (define-erc-module replace nil
\"This mode replaces incoming text according to `erc-replace-alist'.\" \"This mode replaces incoming text according to `erc-replace-alist'.\"
((add-hook \\='erc-insert-modify-hook ((add-hook \\='erc-insert-modify-hook