aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/erc
diff options
context:
space:
mode:
authorChong Yidong2012-04-09 21:05:48 +0800
committerChong Yidong2012-04-09 21:05:48 +0800
commitfb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5 (patch)
treeeba43d1fa2427a77f1f6b1468838426b33ea5973 /lisp/erc
parenta18ecafa99e7e7c3caa35ed68dd8a7b9b5d2b8e3 (diff)
downloademacs-fb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5.tar.gz
emacs-fb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5.zip
Remove * characters from the front of variable docstrings.
Diffstat (limited to 'lisp/erc')
-rw-r--r--lisp/erc/erc-autoaway.el12
-rw-r--r--lisp/erc/erc-backend.el12
-rw-r--r--lisp/erc/erc-button.el12
-rw-r--r--lisp/erc/erc-dcc.el20
-rw-r--r--lisp/erc/erc-goodies.el4
-rw-r--r--lisp/erc/erc-log.el16
-rw-r--r--lisp/erc/erc-match.el10
-rw-r--r--lisp/erc/erc-notify.el8
-rw-r--r--lisp/erc/erc-pcomplete.el2
-rw-r--r--lisp/erc/erc-sound.el2
-rw-r--r--lisp/erc/erc-stamp.el26
-rw-r--r--lisp/erc/erc-track.el12
-rw-r--r--lisp/erc/erc-truncate.el2
-rw-r--r--lisp/erc/erc-xdcc.el8
-rw-r--r--lisp/erc/erc.el48
15 files changed, 97 insertions, 97 deletions
diff --git a/lisp/erc/erc-autoaway.el b/lisp/erc/erc-autoaway.el
index 699c4e20552..ab429a12589 100644
--- a/lisp/erc/erc-autoaway.el
+++ b/lisp/erc/erc-autoaway.el
@@ -138,7 +138,7 @@ Related variables: `erc-public-away-p' and `erc-away-nickname'."
138 (remove-hook 'erc-server-305-functions 'erc-autoaway-reset-indicators)))) 138 (remove-hook 'erc-server-305-functions 'erc-autoaway-reset-indicators))))
139 139
140(defcustom erc-autoaway-idle-method 'user 140(defcustom erc-autoaway-idle-method 'user
141 "*The method used to determine how long you have been idle. 141 "The method used to determine how long you have been idle.
142If 'user, the time of the last command sent to Emacs is used. 142If 'user, the time of the last command sent to Emacs is used.
143If 'emacs, the idle time in Emacs is used. 143If 'emacs, the idle time in Emacs is used.
144If 'irc, the time of the last IRC command is used. 144If 'irc, the time of the last IRC command is used.
@@ -160,7 +160,7 @@ definitions of being idle."
160 (set sym val)))) 160 (set sym val))))
161 161
162(defcustom erc-auto-set-away t 162(defcustom erc-auto-set-away t
163 "*If non-nil, set away after `erc-autoaway-idle-seconds' seconds of idling. 163 "If non-nil, set away after `erc-autoaway-idle-seconds' seconds of idling.
164ERC autoaway mode can set you away when you idle, and set you no 164ERC autoaway mode can set you away when you idle, and set you no
165longer away when you type something. This variable controls whether 165longer away when you type something. This variable controls whether
166you will be set away when you idle. See `erc-auto-discard-away' for 166you will be set away when you idle. See `erc-auto-discard-away' for
@@ -169,7 +169,7 @@ the other half."
169 :type 'boolean) 169 :type 'boolean)
170 170
171(defcustom erc-auto-discard-away t 171(defcustom erc-auto-discard-away t
172 "*If non-nil, sending anything when away automatically discards away state. 172 "If non-nil, sending anything when away automatically discards away state.
173ERC autoaway mode can set you away when you idle, and set you no 173ERC autoaway mode can set you away when you idle, and set you no
174longer away when you type something. This variable controls whether 174longer away when you type something. This variable controls whether
175you will be set no longer away when you type something. See 175you will be set no longer away when you type something. See
@@ -179,13 +179,13 @@ See also `erc-autoaway-no-auto-discard-regexp'."
179 :type 'boolean) 179 :type 'boolean)
180 180
181(defcustom erc-autoaway-no-auto-discard-regexp "^/g?away.*$" 181(defcustom erc-autoaway-no-auto-discard-regexp "^/g?away.*$"
182 "*Input that matches this will not automatically discard away status. 182 "Input that matches this will not automatically discard away status.
183See `erc-auto-discard-away'." 183See `erc-auto-discard-away'."
184 :group 'erc-autoaway 184 :group 'erc-autoaway
185 :type 'regexp) 185 :type 'regexp)
186 186
187(defcustom erc-autoaway-idle-seconds 1800 187(defcustom erc-autoaway-idle-seconds 1800
188 "*Number of seconds after which ERC will set you automatically away. 188 "Number of seconds after which ERC will set you automatically away.
189If you are changing this variable using lisp instead of customizing it, 189If you are changing this variable using lisp instead of customizing it,
190you have to run `erc-autoaway-reestablish-idletimer' afterwards." 190you have to run `erc-autoaway-reestablish-idletimer' afterwards."
191 :group 'erc-autoaway 191 :group 'erc-autoaway
@@ -197,7 +197,7 @@ you have to run `erc-autoaway-reestablish-idletimer' afterwards."
197 197
198(defcustom erc-autoaway-message 198(defcustom erc-autoaway-message
199 "I'm gone (autoaway after %i seconds of idletime)" 199 "I'm gone (autoaway after %i seconds of idletime)"
200 "*Message ERC will use when setting you automatically away. 200 "Message ERC will use when setting you automatically away.
201It is used as a `format' string with the argument of the idletime 201It is used as a `format' string with the argument of the idletime
202in seconds." 202in seconds."
203 :group 'erc-autoaway 203 :group 'erc-autoaway
diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el
index 7bc56584eaf..62f524ed001 100644
--- a/lisp/erc/erc-backend.el
+++ b/lisp/erc/erc-backend.el
@@ -311,7 +311,7 @@ If a key is pressed while ERC is waiting, it will stop waiting."
311 :type 'number) 311 :type 'number)
312 312
313(defcustom erc-split-line-length 440 313(defcustom erc-split-line-length 440
314 "*The maximum length of a single message. 314 "The maximum length of a single message.
315If a message exceeds this size, it is broken into multiple ones. 315If a message exceeds this size, it is broken into multiple ones.
316 316
317IRC allows for lines up to 512 bytes. Two of them are CR LF. 317IRC allows for lines up to 512 bytes. Two of them are CR LF.
@@ -379,14 +379,14 @@ It should take same arguments as `open-network-stream' does."
379 :type 'function) 379 :type 'function)
380 380
381(defcustom erc-server-prevent-duplicates '("301") 381(defcustom erc-server-prevent-duplicates '("301")
382 "*Either nil or a list of strings. 382 "Either nil or a list of strings.
383Each string is a IRC message type, like PRIVMSG or NOTICE. 383Each string is a IRC message type, like PRIVMSG or NOTICE.
384All Message types in that list of subjected to duplicate prevention." 384All Message types in that list of subjected to duplicate prevention."
385 :type '(choice (const nil) (list string)) 385 :type '(choice (const nil) (list string))
386 :group 'erc-server) 386 :group 'erc-server)
387 387
388(defcustom erc-server-duplicate-timeout 60 388(defcustom erc-server-duplicate-timeout 60
389 "*The time allowed in seconds between duplicate messages. 389 "The time allowed in seconds between duplicate messages.
390 390
391If two identical messages arrive within this value of one another, the second 391If two identical messages arrive within this value of one another, the second
392isn't displayed." 392isn't displayed."
@@ -399,7 +399,7 @@ isn't displayed."
399;; (http://www.nongnu.org/circe) 399;; (http://www.nongnu.org/circe)
400 400
401(defcustom erc-server-flood-margin 10 401(defcustom erc-server-flood-margin 10
402 "*A margin on how much excess data we send. 402 "A margin on how much excess data we send.
403The flood protection algorithm of ERC works like the one 403The flood protection algorithm of ERC works like the one
404detailed in RFC 2813, section 5.8 \"Flood control of clients\". 404detailed in RFC 2813, section 5.8 \"Flood control of clients\".
405 405
@@ -423,14 +423,14 @@ protection algorithm."
423;; Ping handling 423;; Ping handling
424 424
425(defcustom erc-server-send-ping-interval 30 425(defcustom erc-server-send-ping-interval 30
426 "*Interval of sending pings to the server, in seconds. 426 "Interval of sending pings to the server, in seconds.
427If this is set to nil, pinging the server is disabled." 427If this is set to nil, pinging the server is disabled."
428 :group 'erc-server 428 :group 'erc-server
429 :type '(choice (const :tag "Disabled" nil) 429 :type '(choice (const :tag "Disabled" nil)
430 (integer :tag "Seconds"))) 430 (integer :tag "Seconds")))
431 431
432(defcustom erc-server-send-ping-timeout 120 432(defcustom erc-server-send-ping-timeout 120
433 "*If the time between ping and response is greater than this, reconnect. 433 "If the time between ping and response is greater than this, reconnect.
434The time is in seconds. 434The time is in seconds.
435 435
436This must be greater than or equal to the value for 436This must be greater than or equal to the value for
diff --git a/lisp/erc/erc-button.el b/lisp/erc/erc-button.el
index 17b8c457f38..727e3de58e8 100644
--- a/lisp/erc/erc-button.el
+++ b/lisp/erc/erc-button.el
@@ -115,13 +115,13 @@ longer than `erc-fill-column'."
115 :type 'boolean) 115 :type 'boolean)
116 116
117(defcustom erc-button-rfc-url "http://www.faqs.org/rfcs/rfc%s.html" 117(defcustom erc-button-rfc-url "http://www.faqs.org/rfcs/rfc%s.html"
118 "*URL used to browse rfc references. 118 "URL used to browse rfc references.
119%s is replaced by the number." 119%s is replaced by the number."
120 :group 'erc-button 120 :group 'erc-button
121 :type 'string) 121 :type 'string)
122 122
123(defcustom erc-button-google-url "http://www.google.com/search?q=%s" 123(defcustom erc-button-google-url "http://www.google.com/search?q=%s"
124 "*URL used to browse Google search references. 124 "URL used to browse Google search references.
125%s is replaced by the search string." 125%s is replaced by the search string."
126 :group 'erc-button 126 :group 'erc-button
127 :type 'string) 127 :type 'string)
@@ -155,7 +155,7 @@ longer than `erc-fill-column'."
155 1) 155 1)
156 ;; other 156 ;; other
157 ("\\s-\\(@\\([0-9][0-9][0-9]\\)\\)" 1 t erc-button-beats-to-time 2)) 157 ("\\s-\\(@\\([0-9][0-9][0-9]\\)\\)" 1 t erc-button-beats-to-time 2))
158 "*Alist of regexps matching buttons in ERC buffers. 158 "Alist of regexps matching buttons in ERC buffers.
159Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where 159Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where
160 160
161REGEXP is the string matching text around the button or a symbol 161REGEXP is the string matching text around the button or a symbol
@@ -198,12 +198,12 @@ PAR is a number of a regexp grouping whose text will be passed to
198 (integer :tag "Regexp section number"))))) 198 (integer :tag "Regexp section number")))))
199 199
200(defcustom erc-emacswiki-url "http://www.emacswiki.org/cgi-bin/wiki.pl?" 200(defcustom erc-emacswiki-url "http://www.emacswiki.org/cgi-bin/wiki.pl?"
201 "*URL of the EmacsWiki Homepage." 201 "URL of the EmacsWiki Homepage."
202 :group 'erc-button 202 :group 'erc-button
203 :type 'string) 203 :type 'string)
204 204
205(defcustom erc-emacswiki-lisp-url "http://www.emacswiki.org/elisp/" 205(defcustom erc-emacswiki-lisp-url "http://www.emacswiki.org/elisp/"
206 "*URL of the EmacsWiki ELisp area." 206 "URL of the EmacsWiki ELisp area."
207 :group 'erc-button 207 :group 'erc-button
208 :type 'string) 208 :type 'string)
209 209
@@ -488,7 +488,7 @@ For use on `completion-at-point-functions'."
488 ("Query" . (erc-cmd-QUERY nick)) 488 ("Query" . (erc-cmd-QUERY nick))
489 ("Whois" . (erc-cmd-WHOIS nick)) 489 ("Whois" . (erc-cmd-WHOIS nick))
490 ("Lastlog" . (erc-cmd-LASTLOG nick))) 490 ("Lastlog" . (erc-cmd-LASTLOG nick)))
491 "*An alist of possible actions to take on a nickname. 491 "An alist of possible actions to take on a nickname.
492An entry looks like (\"Action\" . SEXP) where SEXP is evaluated with 492An entry looks like (\"Action\" . SEXP) where SEXP is evaluated with
493the variable `nick' bound to the nick in question. 493the variable `nick' bound to the nick in question.
494 494
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el
index f68b3591fbb..ba87cf63993 100644
--- a/lisp/erc/erc-dcc.el
+++ b/lisp/erc/erc-dcc.el
@@ -75,7 +75,7 @@ IRC users."
75 :group 'erc) 75 :group 'erc)
76 76
77(defcustom erc-dcc-verbose nil 77(defcustom erc-dcc-verbose nil
78 "*If non-nil, be verbose about DCC activity reporting." 78 "If non-nil, be verbose about DCC activity reporting."
79 :group 'erc-dcc 79 :group 'erc-dcc
80 :type 'boolean) 80 :type 'boolean)
81 81
@@ -316,7 +316,7 @@ Should be set to a string or nil. If nil, use the value of
316 :valid-regexp erc-dcc-ipv4-regexp))) 316 :valid-regexp erc-dcc-ipv4-regexp)))
317 317
318(defcustom erc-dcc-send-request 'ask 318(defcustom erc-dcc-send-request 'ask
319 "*How to treat incoming DCC Send requests. 319 "How to treat incoming DCC Send requests.
320'ask - Report the Send request, and wait for the user to manually accept it 320'ask - Report the Send request, and wait for the user to manually accept it
321 You might want to set `erc-dcc-auto-masks' for this. 321 You might want to set `erc-dcc-auto-masks' for this.
322'auto - Automatically accept the request and begin downloading the file 322'auto - Automatically accept the request and begin downloading the file
@@ -405,7 +405,7 @@ the accepted connection."
405;;; Interactive command handling 405;;; Interactive command handling
406 406
407(defcustom erc-dcc-get-default-directory nil 407(defcustom erc-dcc-get-default-directory nil
408 "*Default directory for incoming DCC file transfers. 408 "Default directory for incoming DCC file transfers.
409If this is nil, then the current value of `default-directory' is used." 409If this is nil, then the current value of `default-directory' is used."
410 :group 'erc-dcc 410 :group 'erc-dcc
411 :type '(choice (const nil :tag "Default directory") directory)) 411 :type '(choice (const nil :tag "Default directory") directory))
@@ -719,7 +719,7 @@ match, returns that regexp and nil otherwise."
719 "^DCC CHAT +chat +\\([0-9]+\\) +\\([0-9]+\\)") 719 "^DCC CHAT +chat +\\([0-9]+\\) +\\([0-9]+\\)")
720 720
721(defcustom erc-dcc-chat-request 'ask 721(defcustom erc-dcc-chat-request 'ask
722 "*How to treat incoming DCC Chat requests. 722 "How to treat incoming DCC Chat requests.
723'ask - Report the Chat request, and wait for the user to manually accept it 723'ask - Report the Chat request, and wait for the user to manually accept it
724'auto - Automatically accept the request and open a new chat window 724'auto - Automatically accept the request and open a new chat window
725'ignore - Ignore incoming DCC chat requests completely." 725'ignore - Ignore incoming DCC chat requests completely."
@@ -777,12 +777,12 @@ match, returns that regexp and nil otherwise."
777;;; SEND handling 777;;; SEND handling
778 778
779(defcustom erc-dcc-block-size 1024 779(defcustom erc-dcc-block-size 1024
780 "*Block size to use for DCC SEND sessions." 780 "Block size to use for DCC SEND sessions."
781 :group 'erc-dcc 781 :group 'erc-dcc
782 :type 'integer) 782 :type 'integer)
783 783
784(defcustom erc-dcc-pump-bytes nil 784(defcustom erc-dcc-pump-bytes nil
785 "*If set to an integer, keep sending until that number of bytes are 785 "If set to an integer, keep sending until that number of bytes are
786unconfirmed." 786unconfirmed."
787 :group 'erc-dcc 787 :group 'erc-dcc
788 :type '(choice (const nil) integer)) 788 :type '(choice (const nil) integer))
@@ -856,7 +856,7 @@ bytes sent."
856 856
857(defcustom erc-dcc-send-connect-hook 857(defcustom erc-dcc-send-connect-hook
858 '(erc-dcc-display-send erc-dcc-send-block) 858 '(erc-dcc-display-send erc-dcc-send-block)
859 "*Hook run whenever the remote end of a DCC SEND offer connected to your 859 "Hook run whenever the remote end of a DCC SEND offer connected to your
860listening port." 860listening port."
861 :group 'erc-dcc 861 :group 'erc-dcc
862 :type 'hook) 862 :type 'hook)
@@ -1046,12 +1046,12 @@ transfer is complete."
1046;;; CHAT handling 1046;;; CHAT handling
1047 1047
1048(defcustom erc-dcc-chat-buffer-name-format "DCC-CHAT-%s" 1048(defcustom erc-dcc-chat-buffer-name-format "DCC-CHAT-%s"
1049 "*Format to use for DCC Chat buffer names." 1049 "Format to use for DCC Chat buffer names."
1050 :group 'erc-dcc 1050 :group 'erc-dcc
1051 :type 'string) 1051 :type 'string)
1052 1052
1053(defcustom erc-dcc-chat-mode-hook nil 1053(defcustom erc-dcc-chat-mode-hook nil
1054 "*Hook calls when `erc-dcc-chat-mode' finished setting up the buffer." 1054 "Hook calls when `erc-dcc-chat-mode' finished setting up the buffer."
1055 :group 'erc-dcc 1055 :group 'erc-dcc
1056 :type 'hook) 1056 :type 'hook)
1057 1057
@@ -1100,7 +1100,7 @@ Possible values are: ask, auto, ignore."
1100(defalias 'pcomplete/erc-mode/SREQ 'pcomplete/erc-mode/CREQ) 1100(defalias 'pcomplete/erc-mode/SREQ 'pcomplete/erc-mode/CREQ)
1101 1101
1102(defvar erc-dcc-chat-filter-hook '(erc-dcc-chat-parse-output) 1102(defvar erc-dcc-chat-filter-hook '(erc-dcc-chat-parse-output)
1103 "*Hook to run after doing parsing (and possible insertion) of DCC messages.") 1103 "Hook to run after doing parsing (and possible insertion) of DCC messages.")
1104 1104
1105(defvar erc-dcc-chat-mode-map 1105(defvar erc-dcc-chat-mode-map
1106 (let ((map (make-sparse-keymap))) 1106 (let ((map (make-sparse-keymap)))
diff --git a/lisp/erc/erc-goodies.el b/lisp/erc/erc-goodies.el
index bf74ed7be87..acff76beb16 100644
--- a/lisp/erc/erc-goodies.el
+++ b/lisp/erc/erc-goodies.el
@@ -183,7 +183,7 @@ themselves."
183 :group 'erc) 183 :group 'erc)
184 184
185(defcustom erc-interpret-controls-p t 185(defcustom erc-interpret-controls-p t
186 "*If non-nil, display IRC colors and other highlighting effects. 186 "If non-nil, display IRC colors and other highlighting effects.
187 187
188If this is set to the symbol `remove', ERC removes all IRC colors and 188If this is set to the symbol `remove', ERC removes all IRC colors and
189highlighting effects. When this variable is non-nil, it can cause Emacs to run 189highlighting effects. When this variable is non-nil, it can cause Emacs to run
@@ -196,7 +196,7 @@ emergency (message flood) it can be turned off to save processing time. See
196 (const :tag "Display raw control characters" nil))) 196 (const :tag "Display raw control characters" nil)))
197 197
198(defcustom erc-interpret-mirc-color nil 198(defcustom erc-interpret-mirc-color nil
199 "*If non-nil, ERC will interpret mIRC color codes." 199 "If non-nil, ERC will interpret mIRC color codes."
200 :group 'erc-control-characters 200 :group 'erc-control-characters
201 :type 'boolean) 201 :type 'boolean)
202 202
diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el
index 9f50a1d117c..eefe51ae706 100644
--- a/lisp/erc/erc-log.el
+++ b/lisp/erc/erc-log.el
@@ -101,7 +101,7 @@
101 :group 'erc) 101 :group 'erc)
102 102
103(defcustom erc-generate-log-file-name-function 'erc-generate-log-file-name-long 103(defcustom erc-generate-log-file-name-function 'erc-generate-log-file-name-long
104 "*A function to generate a log filename. 104 "A function to generate a log filename.
105The function must take five arguments: BUFFER, TARGET, NICK, SERVER and PORT. 105The function must take five arguments: BUFFER, TARGET, NICK, SERVER and PORT.
106BUFFER is the buffer to be saved, 106BUFFER is the buffer to be saved,
107TARGET is the name of the channel, or the target of the query, 107TARGET is the name of the channel, or the target of the query,
@@ -157,12 +157,12 @@ arguments."
157 (const :tag "Disable logging" nil))) 157 (const :tag "Disable logging" nil)))
158 158
159(defcustom erc-log-insert-log-on-open nil 159(defcustom erc-log-insert-log-on-open nil
160 "*Insert log file contents into the buffer if a log file exists." 160 "Insert log file contents into the buffer if a log file exists."
161 :group 'erc-log 161 :group 'erc-log
162 :type 'boolean) 162 :type 'boolean)
163 163
164(defcustom erc-save-buffer-on-part t 164(defcustom erc-save-buffer-on-part t
165 "*Save the channel buffer content using `erc-save-buffer-in-logs' on PART. 165 "Save the channel buffer content using `erc-save-buffer-in-logs' on PART.
166 166
167If you set this to nil, you may want to enable both 167If you set this to nil, you may want to enable both
168`erc-log-write-after-send' and `erc-log-write-after-insert'." 168`erc-log-write-after-send' and `erc-log-write-after-insert'."
@@ -170,7 +170,7 @@ If you set this to nil, you may want to enable both
170 :type 'boolean) 170 :type 'boolean)
171 171
172(defcustom erc-save-queries-on-quit t 172(defcustom erc-save-queries-on-quit t
173 "*Save all query (also channel) buffers of the server on QUIT. 173 "Save all query (also channel) buffers of the server on QUIT.
174 174
175If you set this to nil, you may want to enable both 175If you set this to nil, you may want to enable both
176`erc-log-write-after-send' and `erc-log-write-after-insert'." 176`erc-log-write-after-send' and `erc-log-write-after-insert'."
@@ -178,7 +178,7 @@ If you set this to nil, you may want to enable both
178 :type 'boolean) 178 :type 'boolean)
179 179
180(defcustom erc-log-write-after-send nil 180(defcustom erc-log-write-after-send nil
181 "*If non-nil, write to log file after every message you send. 181 "If non-nil, write to log file after every message you send.
182 182
183If you set this to nil, you may want to enable both 183If you set this to nil, you may want to enable both
184`erc-save-buffer-on-part' and `erc-save-queries-on-quit'." 184`erc-save-buffer-on-part' and `erc-save-queries-on-quit'."
@@ -186,7 +186,7 @@ If you set this to nil, you may want to enable both
186 :type 'boolean) 186 :type 'boolean)
187 187
188(defcustom erc-log-write-after-insert nil 188(defcustom erc-log-write-after-insert nil
189 "*If non-nil, write to log file when new text is added to a 189 "If non-nil, write to log file when new text is added to a
190logged ERC buffer. 190logged ERC buffer.
191 191
192If you set this to nil, you may want to enable both 192If you set this to nil, you may want to enable both
@@ -197,14 +197,14 @@ If you set this to nil, you may want to enable both
197(defcustom erc-log-file-coding-system (if (featurep 'xemacs) 197(defcustom erc-log-file-coding-system (if (featurep 'xemacs)
198 'binary 198 'binary
199 'emacs-mule) 199 'emacs-mule)
200 "*The coding system ERC should use for writing log files. 200 "The coding system ERC should use for writing log files.
201 201
202This should ideally, be a \"catch-all\" coding system, like 202This should ideally, be a \"catch-all\" coding system, like
203`emacs-mule', or `iso-2022-7bit'." 203`emacs-mule', or `iso-2022-7bit'."
204 :group 'erc-log) 204 :group 'erc-log)
205 205
206(defcustom erc-log-filter-function nil 206(defcustom erc-log-filter-function nil
207 "*If non-nil, pass text through the given function before writing it to 207 "If non-nil, pass text through the given function before writing it to
208a log file. 208a log file.
209 209
210The function should take one argument, which is the text to filter." 210The function should take one argument, which is the text to filter."
diff --git a/lisp/erc/erc-match.el b/lisp/erc/erc-match.el
index 2a61247307f..dd9e02dfab5 100644
--- a/lisp/erc/erc-match.el
+++ b/lisp/erc/erc-match.el
@@ -83,7 +83,7 @@ Useful to mark nicks from dangerous hosts."
83 :type '(repeat regexp)) 83 :type '(repeat regexp))
84 84
85(defcustom erc-current-nick-highlight-type 'keyword 85(defcustom erc-current-nick-highlight-type 'keyword
86 "*Determines how to highlight text in which your current nickname appears 86 "Determines how to highlight text in which your current nickname appears
87\(does not apply to text sent by you\). 87\(does not apply to text sent by you\).
88 88
89The following values are allowed: 89The following values are allowed:
@@ -105,7 +105,7 @@ Any other value disables highlighting of current nickname altogether."
105 (const all))) 105 (const all)))
106 106
107(defcustom erc-pal-highlight-type 'nick 107(defcustom erc-pal-highlight-type 'nick
108 "*Determines how to highlight messages by pals. 108 "Determines how to highlight messages by pals.
109See `erc-pals'. 109See `erc-pals'.
110 110
111The following values are allowed: 111The following values are allowed:
@@ -121,7 +121,7 @@ Any other value disables pal highlighting altogether."
121 (const all))) 121 (const all)))
122 122
123(defcustom erc-fool-highlight-type 'nick 123(defcustom erc-fool-highlight-type 'nick
124 "*Determines how to highlight messages by fools. 124 "Determines how to highlight messages by fools.
125See `erc-fools'. 125See `erc-fools'.
126 126
127The following values are allowed: 127The following values are allowed:
@@ -137,7 +137,7 @@ Any other value disables fool highlighting altogether."
137 (const all))) 137 (const all)))
138 138
139(defcustom erc-keyword-highlight-type 'keyword 139(defcustom erc-keyword-highlight-type 'keyword
140 "*Determines how to highlight messages containing keywords. 140 "Determines how to highlight messages containing keywords.
141See variable `erc-keywords'. 141See variable `erc-keywords'.
142 142
143The following values are allowed: 143The following values are allowed:
@@ -152,7 +152,7 @@ Any other value disables keyword highlighting altogether."
152 (const all))) 152 (const all)))
153 153
154(defcustom erc-dangerous-host-highlight-type 'nick 154(defcustom erc-dangerous-host-highlight-type 'nick
155 "*Determines how to highlight messages by nicks from dangerous-hosts. 155 "Determines how to highlight messages by nicks from dangerous-hosts.
156See `erc-dangerous-hosts'. 156See `erc-dangerous-hosts'.
157 157
158The following values are allowed: 158The following values are allowed:
diff --git a/lisp/erc/erc-notify.el b/lisp/erc/erc-notify.el
index d1a33405765..3bf82c13f19 100644
--- a/lisp/erc/erc-notify.el
+++ b/lisp/erc/erc-notify.el
@@ -40,19 +40,19 @@
40 :group 'erc) 40 :group 'erc)
41 41
42(defcustom erc-notify-list nil 42(defcustom erc-notify-list nil
43 "*List of nicknames you want to be notified about online/offline 43 "List of nicknames you want to be notified about online/offline
44status change." 44status change."
45 :group 'erc-notify 45 :group 'erc-notify
46 :type '(repeat string)) 46 :type '(repeat string))
47 47
48(defcustom erc-notify-interval 60 48(defcustom erc-notify-interval 60
49 "*Time interval (in seconds) for checking online status of notified 49 "Time interval (in seconds) for checking online status of notified
50people." 50people."
51 :group 'erc-notify 51 :group 'erc-notify
52 :type 'integer) 52 :type 'integer)
53 53
54(defcustom erc-notify-signon-hook nil 54(defcustom erc-notify-signon-hook nil
55 "*Hook run after someone on `erc-notify-list' has signed on. 55 "Hook run after someone on `erc-notify-list' has signed on.
56Two arguments are passed to the function, SERVER and NICK, both 56Two arguments are passed to the function, SERVER and NICK, both
57strings." 57strings."
58 :group 'erc-notify 58 :group 'erc-notify
@@ -60,7 +60,7 @@ strings."
60 :options '(erc-notify-signon)) 60 :options '(erc-notify-signon))
61 61
62(defcustom erc-notify-signoff-hook nil 62(defcustom erc-notify-signoff-hook nil
63 "*Hook run after someone on `erc-notify-list' has signed off. 63 "Hook run after someone on `erc-notify-list' has signed off.
64Two arguments are passed to the function, SERVER and NICK, both 64Two arguments are passed to the function, SERVER and NICK, both
65strings." 65strings."
66 :group 'erc-notify 66 :group 'erc-notify
diff --git a/lisp/erc/erc-pcomplete.el b/lisp/erc/erc-pcomplete.el
index ba27b0374aa..d3cbe8a5804 100644
--- a/lisp/erc/erc-pcomplete.el
+++ b/lisp/erc/erc-pcomplete.el
@@ -49,7 +49,7 @@
49 :group 'erc) 49 :group 'erc)
50 50
51(defcustom erc-pcomplete-nick-postfix ":" 51(defcustom erc-pcomplete-nick-postfix ":"
52 "*When `pcomplete' is used in the first word after the prompt, 52 "When `pcomplete' is used in the first word after the prompt,
53add this string to nicks completed." 53add this string to nicks completed."
54 :group 'erc-pcomplete 54 :group 'erc-pcomplete
55 :type 'string) 55 :type 'string)
diff --git a/lisp/erc/erc-sound.el b/lisp/erc/erc-sound.el
index 569abad2a08..8b44cb5146c 100644
--- a/lisp/erc/erc-sound.el
+++ b/lisp/erc/erc-sound.el
@@ -62,7 +62,7 @@ and play sound files as requested."
62 :group 'erc) 62 :group 'erc)
63 63
64(defcustom erc-play-sound t 64(defcustom erc-play-sound t
65 "*Play sounds when you receive CTCP SOUND requests." 65 "Play sounds when you receive CTCP SOUND requests."
66 :group 'erc-sound 66 :group 'erc-sound
67 :type 'boolean) 67 :type 'boolean)
68 68
diff --git a/lisp/erc/erc-stamp.el b/lisp/erc/erc-stamp.el
index e02b045ebd2..4d55e21da72 100644
--- a/lisp/erc/erc-stamp.el
+++ b/lisp/erc/erc-stamp.el
@@ -47,7 +47,7 @@ in your .emacs file or interactively using `load-library'."
47 :group 'erc) 47 :group 'erc)
48 48
49(defcustom erc-timestamp-format "[%H:%M]" 49(defcustom erc-timestamp-format "[%H:%M]"
50 "*If set to a string, messages will be timestamped. 50 "If set to a string, messages will be timestamped.
51This string is processed using `format-time-string'. 51This string is processed using `format-time-string'.
52Good examples are \"%T\" and \"%H:%M\". 52Good examples are \"%T\" and \"%H:%M\".
53 53
@@ -57,7 +57,7 @@ If nil, timestamping is turned off."
57 (string))) 57 (string)))
58 58
59(defcustom erc-timestamp-format-left "\n[%a %b %e %Y]\n" 59(defcustom erc-timestamp-format-left "\n[%a %b %e %Y]\n"
60 "*If set to a string, messages will be timestamped. 60 "If set to a string, messages will be timestamped.
61This string is processed using `format-time-string'. 61This string is processed using `format-time-string'.
62Good examples are \"%T\" and \"%H:%M\". 62Good examples are \"%T\" and \"%H:%M\".
63 63
@@ -71,7 +71,7 @@ If nil, timestamping is turned off."
71 (string))) 71 (string)))
72 72
73(defcustom erc-timestamp-format-right " [%H:%M]" 73(defcustom erc-timestamp-format-right " [%H:%M]"
74 "*If set to a string, messages will be timestamped. 74 "If set to a string, messages will be timestamped.
75This string is processed using `format-time-string'. 75This string is processed using `format-time-string'.
76Good examples are \"%T\" and \"%H:%M\". 76Good examples are \"%T\" and \"%H:%M\".
77 77
@@ -85,7 +85,7 @@ If nil, timestamping is turned off."
85 (string))) 85 (string)))
86 86
87(defcustom erc-insert-timestamp-function 'erc-insert-timestamp-left-and-right 87(defcustom erc-insert-timestamp-function 'erc-insert-timestamp-left-and-right
88 "*Function to use to insert timestamps. 88 "Function to use to insert timestamps.
89 89
90It takes a single argument STRING which is the final string 90It takes a single argument STRING which is the final string
91which all text-properties already appended. This function only cares about 91which all text-properties already appended. This function only cares about
@@ -102,7 +102,7 @@ You will probably want to set
102 function)) 102 function))
103 103
104(defcustom erc-away-timestamp-format "<%H:%M>" 104(defcustom erc-away-timestamp-format "<%H:%M>"
105 "*Timestamp format used when marked as being away. 105 "Timestamp format used when marked as being away.
106 106
107If nil, timestamping is turned off when away unless `erc-timestamp-format' 107If nil, timestamping is turned off when away unless `erc-timestamp-format'
108is set. 108is set.
@@ -114,7 +114,7 @@ If `erc-timestamp-format' is set, this will not be used."
114 114
115(defcustom erc-insert-away-timestamp-function 115(defcustom erc-insert-away-timestamp-function
116 'erc-insert-timestamp-left-and-right 116 'erc-insert-timestamp-left-and-right
117 "*Function to use to insert the away timestamp. 117 "Function to use to insert the away timestamp.
118 118
119See `erc-insert-timestamp-function' for details." 119See `erc-insert-timestamp-function' for details."
120 :group 'erc-stamp 120 :group 'erc-stamp
@@ -124,7 +124,7 @@ See `erc-insert-timestamp-function' for details."
124 function)) 124 function))
125 125
126(defcustom erc-hide-timestamps nil 126(defcustom erc-hide-timestamps nil
127 "*If non-nil, timestamps will be invisible. 127 "If non-nil, timestamps will be invisible.
128 128
129This is useful for logging, because, although timestamps will be 129This is useful for logging, because, although timestamps will be
130hidden, they will still be present in the logs." 130hidden, they will still be present in the logs."
@@ -132,7 +132,7 @@ hidden, they will still be present in the logs."
132 :type 'boolean) 132 :type 'boolean)
133 133
134(defcustom erc-echo-timestamps nil 134(defcustom erc-echo-timestamps nil
135 "*If non-nil, print timestamp in the minibuffer when point is moved. 135 "If non-nil, print timestamp in the minibuffer when point is moved.
136Using this variable, you can turn off normal timestamping, 136Using this variable, you can turn off normal timestamping,
137and simply move point to an irc message to see its timestamp 137and simply move point to an irc message to see its timestamp
138printed in the minibuffer." 138printed in the minibuffer."
@@ -140,14 +140,14 @@ printed in the minibuffer."
140 :type 'boolean) 140 :type 'boolean)
141 141
142(defcustom erc-echo-timestamp-format "Timestamped %A, %H:%M:%S" 142(defcustom erc-echo-timestamp-format "Timestamped %A, %H:%M:%S"
143 "*Format string to be used when `erc-echo-timestamps' is non-nil. 143 "Format string to be used when `erc-echo-timestamps' is non-nil.
144This string specifies the format of the timestamp being echoed in 144This string specifies the format of the timestamp being echoed in
145the minibuffer." 145the minibuffer."
146 :group 'erc-stamp 146 :group 'erc-stamp
147 :type 'string) 147 :type 'string)
148 148
149(defcustom erc-timestamp-intangible t 149(defcustom erc-timestamp-intangible t
150 "*Whether the timestamps should be intangible, i.e. prevent the point 150 "Whether the timestamps should be intangible, i.e. prevent the point
151from entering them and instead jump over them." 151from entering them and instead jump over them."
152 :group 'erc-stamp 152 :group 'erc-stamp
153 :type 'boolean) 153 :type 'boolean)
@@ -205,7 +205,7 @@ This is used when `erc-insert-timestamp-function' is set to
205(make-variable-buffer-local 'erc-timestamp-last-inserted-right) 205(make-variable-buffer-local 'erc-timestamp-last-inserted-right)
206 206
207(defcustom erc-timestamp-only-if-changed-flag t 207(defcustom erc-timestamp-only-if-changed-flag t
208 "*Insert timestamp only if its value changed since last insertion. 208 "Insert timestamp only if its value changed since last insertion.
209If `erc-insert-timestamp-function' is `erc-insert-timestamp-left', a 209If `erc-insert-timestamp-function' is `erc-insert-timestamp-left', a
210string of spaces which is the same size as the timestamp is added to 210string of spaces which is the same size as the timestamp is added to
211the beginning of the line in its place. If you use 211the beginning of the line in its place. If you use
@@ -215,7 +215,7 @@ timestamp."
215 :type 'boolean) 215 :type 'boolean)
216 216
217(defcustom erc-timestamp-right-column nil 217(defcustom erc-timestamp-right-column nil
218 "*If non-nil, the column at which the timestamp is inserted, 218 "If non-nil, the column at which the timestamp is inserted,
219if the timestamp is to be printed to the right. If nil, 219if the timestamp is to be printed to the right. If nil,
220`erc-insert-timestamp-right' will use other means to determine 220`erc-insert-timestamp-right' will use other means to determine
221the correct column." 221the correct column."
@@ -227,7 +227,7 @@ the correct column."
227(defcustom erc-timestamp-use-align-to (and (not (featurep 'xemacs)) 227(defcustom erc-timestamp-use-align-to (and (not (featurep 'xemacs))
228 (>= emacs-major-version 22) 228 (>= emacs-major-version 22)
229 (eq window-system 'x)) 229 (eq window-system 'x))
230 "*If non-nil, use the :align-to display property to align the stamp. 230 "If non-nil, use the :align-to display property to align the stamp.
231This gives better results when variable-width characters (like 231This gives better results when variable-width characters (like
232Asian language characters and math symbols) precede a timestamp. 232Asian language characters and math symbols) precede a timestamp.
233Unfortunately, it only works in Emacs 22 and when using the X 233Unfortunately, it only works in Emacs 22 and when using the X
diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el
index ac899302c3c..e4a41089539 100644
--- a/lisp/erc/erc-track.el
+++ b/lisp/erc/erc-track.el
@@ -93,13 +93,13 @@ Activity means that there was no user input in the last 10 seconds."
93 :type '(repeat string)) 93 :type '(repeat string))
94 94
95(defcustom erc-track-remove-disconnected-buffers nil 95(defcustom erc-track-remove-disconnected-buffers nil
96 "*If true, remove buffers associated with a server that is 96 "If true, remove buffers associated with a server that is
97disconnected from `erc-modified-channels-alist'." 97disconnected from `erc-modified-channels-alist'."
98 :group 'erc-track 98 :group 'erc-track
99 :type 'boolean) 99 :type 'boolean)
100 100
101(defcustom erc-track-exclude-types '("NICK" "333" "353") 101(defcustom erc-track-exclude-types '("NICK" "333" "353")
102 "*List of message types to be ignored. 102 "List of message types to be ignored.
103This list could look like '(\"JOIN\" \"PART\"). 103This list could look like '(\"JOIN\" \"PART\").
104 104
105By default, exclude changes of nicknames (NICK), display of who 105By default, exclude changes of nicknames (NICK), display of who
@@ -109,7 +109,7 @@ channel (353)."
109 :type 'erc-message-type) 109 :type 'erc-message-type)
110 110
111(defcustom erc-track-exclude-server-buffer nil 111(defcustom erc-track-exclude-server-buffer nil
112 "*If true, don't perform tracking on the server buffer; this is 112 "If true, don't perform tracking on the server buffer; this is
113useful for excluding all the things like MOTDs from the server and 113useful for excluding all the things like MOTDs from the server and
114other miscellaneous functions." 114other miscellaneous functions."
115 :group 'erc-track 115 :group 'erc-track
@@ -127,7 +127,7 @@ the mode-line should be reduced to."
127 :type 'number) 127 :type 'number)
128 128
129(defcustom erc-track-shorten-aggressively nil 129(defcustom erc-track-shorten-aggressively nil
130 "*If non-nil, channel names will be shortened more aggressively. 130 "If non-nil, channel names will be shortened more aggressively.
131Usually, names are not shortened if this will save only one character. 131Usually, names are not shortened if this will save only one character.
132Example: If there are two channels, #linux-de and #linux-fr, then 132Example: If there are two channels, #linux-de and #linux-fr, then
133normally these will not be shortened. When shortening aggressively, 133normally these will not be shortened. When shortening aggressively,
@@ -150,7 +150,7 @@ This setting is used by `erc-track-shorten-names'."
150 (const :tag "Max" max))) 150 (const :tag "Max" max)))
151 151
152(defcustom erc-track-shorten-function 'erc-track-shorten-names 152(defcustom erc-track-shorten-function 'erc-track-shorten-names
153 "*This function will be used to reduce the channel names before display. 153 "This function will be used to reduce the channel names before display.
154It takes one argument, CHANNEL-NAMES which is a list of strings. 154It takes one argument, CHANNEL-NAMES which is a list of strings.
155It should return a list of strings of the same number of elements. 155It should return a list of strings of the same number of elements.
156If nil instead of a function, shortening is disabled." 156If nil instead of a function, shortening is disabled."
@@ -169,7 +169,7 @@ notification of channel activity."
169 :type 'hook) 169 :type 'hook)
170 170
171(defcustom erc-track-use-faces t 171(defcustom erc-track-use-faces t
172 "*Use faces in the mode-line. 172 "Use faces in the mode-line.
173The faces used are the same as used for text in the buffers. 173The faces used are the same as used for text in the buffers.
174\(e.g. `erc-pal-face' is used if a pal sent a message to that channel.)" 174\(e.g. `erc-pal-face' is used if a pal sent a message to that channel.)"
175 :group 'erc-track 175 :group 'erc-track
diff --git a/lisp/erc/erc-truncate.el b/lisp/erc/erc-truncate.el
index 6aa4e718d0a..dd47c601ea8 100644
--- a/lisp/erc/erc-truncate.el
+++ b/lisp/erc/erc-truncate.el
@@ -36,7 +36,7 @@
36 :group 'erc) 36 :group 'erc)
37 37
38(defcustom erc-max-buffer-size 30000 38(defcustom erc-max-buffer-size 30000
39 "*Maximum size in chars of each ERC buffer. 39 "Maximum size in chars of each ERC buffer.
40Used only when auto-truncation is enabled. 40Used only when auto-truncation is enabled.
41\(see `erc-truncate-buffer' and `erc-insert-post-hook')." 41\(see `erc-truncate-buffer' and `erc-insert-post-hook')."
42 :group 'erc-truncate 42 :group 'erc-truncate
diff --git a/lisp/erc/erc-xdcc.el b/lisp/erc/erc-xdcc.el
index 98e26dd9af0..0328c407aa0 100644
--- a/lisp/erc/erc-xdcc.el
+++ b/lisp/erc/erc-xdcc.el
@@ -29,13 +29,13 @@
29(require 'erc-dcc) 29(require 'erc-dcc)
30 30
31(defcustom erc-xdcc-files nil 31(defcustom erc-xdcc-files nil
32 "*List of files to offer via XDCC. 32 "List of files to offer via XDCC.
33Your friends should issue \"/ctcp yournick XDCC list\" to see this." 33Your friends should issue \"/ctcp yournick XDCC list\" to see this."
34 :group 'erc-dcc 34 :group 'erc-dcc
35 :type '(repeat file)) 35 :type '(repeat file))
36 36
37(defcustom erc-xdcc-verbose-flag t 37(defcustom erc-xdcc-verbose-flag t
38 "*Report XDCC CTCP requests in the server buffer." 38 "Report XDCC CTCP requests in the server buffer."
39 :group 'erc-dcc 39 :group 'erc-dcc
40 :type 'boolean) 40 :type 'boolean)
41 41
@@ -43,7 +43,7 @@ Your friends should issue \"/ctcp yournick XDCC list\" to see this."
43 '(("help" . erc-xdcc-help) 43 '(("help" . erc-xdcc-help)
44 ("list" . erc-xdcc-list) 44 ("list" . erc-xdcc-list)
45 ("send" . erc-xdcc-send)) 45 ("send" . erc-xdcc-send))
46 "*Sub-command handler alist for XDCC CTCP queries." 46 "Sub-command handler alist for XDCC CTCP queries."
47 :group 'erc-dcc 47 :group 'erc-dcc
48 :type '(alist :key-type (string :tag "Sub-command") :value-type function)) 48 :type '(alist :key-type (string :tag "Sub-command") :value-type function))
49 49
@@ -54,7 +54,7 @@ Your friends should issue \"/ctcp yournick XDCC list\" to see this."
54 ("Type \"/ctcp " (erc-current-nick) 54 ("Type \"/ctcp " (erc-current-nick)
55 " XDCC list\" to see the list of offered files, then type \"/ctcp " 55 " XDCC list\" to see the list of offered files, then type \"/ctcp "
56 (erc-current-nick) " XDCC send #\" to get a particular file number.")) 56 (erc-current-nick) " XDCC send #\" to get a particular file number."))
57 "*Help text sent in response to XDCC help command. 57 "Help text sent in response to XDCC help command.
58A list of messages, each consisting of strings and expressions, expressions 58A list of messages, each consisting of strings and expressions, expressions
59being evaluated and should return strings." 59being evaluated and should return strings."
60 :group 'erc-dcc 60 :group 'erc-dcc
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 63777fb3897..62b701204d1 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -255,7 +255,7 @@ If nil, only \"> \" will be shown."
255 (repeat :inline t :tag "Others" (string :tag "IRC Message Type")))) 255 (repeat :inline t :tag "Others" (string :tag "IRC Message Type"))))
256 256
257(defcustom erc-hide-list nil 257(defcustom erc-hide-list nil
258 "*List of IRC type messages to hide. 258 "List of IRC type messages to hide.
259A typical value would be '(\"JOIN\" \"PART\" \"QUIT\")." 259A typical value would be '(\"JOIN\" \"PART\" \"QUIT\")."
260 :group 'erc-ignore 260 :group 'erc-ignore
261 :type 'erc-message-type) 261 :type 'erc-message-type)
@@ -653,12 +653,12 @@ This only has any meaning if the variable `erc-command-indicator' is non-nil."
653 prompt)))) 653 prompt))))
654 654
655(defcustom erc-notice-prefix "*** " 655(defcustom erc-notice-prefix "*** "
656 "*Prefix for all notices." 656 "Prefix for all notices."
657 :group 'erc-display 657 :group 'erc-display
658 :type 'string) 658 :type 'string)
659 659
660(defcustom erc-notice-highlight-type 'all 660(defcustom erc-notice-highlight-type 'all
661 "*Determines how to highlight notices. 661 "Determines how to highlight notices.
662See `erc-notice-prefix'. 662See `erc-notice-prefix'.
663 663
664The following values are allowed: 664The following values are allowed:
@@ -673,7 +673,7 @@ Any other value disables notice's highlighting altogether."
673 (const :tag "don't highlight notices at all" nil))) 673 (const :tag "don't highlight notices at all" nil)))
674 674
675(defcustom erc-echo-notice-hook nil 675(defcustom erc-echo-notice-hook nil
676 "*Specifies a list of functions to call to echo a private 676 "Specifies a list of functions to call to echo a private
677notice. Each function is called with four arguments, the string 677notice. Each function is called with four arguments, the string
678to display, the parsed server message, the target buffer (or 678to display, the parsed server message, the target buffer (or
679nil), and the sender. The functions are called in order, until a 679nil), and the sender. The functions are called in order, until a
@@ -704,7 +704,7 @@ See also: `erc-echo-notice-always-hook',
704 704
705(defcustom erc-echo-notice-always-hook 705(defcustom erc-echo-notice-always-hook
706 '(erc-echo-notice-in-default-buffer) 706 '(erc-echo-notice-in-default-buffer)
707 "*Specifies a list of functions to call to echo a private 707 "Specifies a list of functions to call to echo a private
708notice. Each function is called with four arguments, the string 708notice. Each function is called with four arguments, the string
709to display, the parsed server message, the target buffer (or 709to display, the parsed server message, the target buffer (or
710nil), and the sender. The functions are called in order, and all 710nil), and the sender. The functions are called in order, and all
@@ -736,17 +736,17 @@ See also: `erc-echo-notice-hook',
736;; other tunable parameters 736;; other tunable parameters
737 737
738(defcustom erc-whowas-on-nosuchnick nil 738(defcustom erc-whowas-on-nosuchnick nil
739 "*If non-nil, do a whowas on a nick if no such nick." 739 "If non-nil, do a whowas on a nick if no such nick."
740 :group 'erc 740 :group 'erc
741 :type 'boolean) 741 :type 'boolean)
742 742
743(defcustom erc-verbose-server-ping nil 743(defcustom erc-verbose-server-ping nil
744 "*If non-nil, show every time you get a PING or PONG from the server." 744 "If non-nil, show every time you get a PING or PONG from the server."
745 :group 'erc-paranoia 745 :group 'erc-paranoia
746 :type 'boolean) 746 :type 'boolean)
747 747
748(defcustom erc-public-away-p nil 748(defcustom erc-public-away-p nil
749 "*Let others know you are back when you are no longer marked away. 749 "Let others know you are back when you are no longer marked away.
750This happens in this form: 750This happens in this form:
751* <nick> is back (gone for <time>) 751* <nick> is back (gone for <time>)
752 752
@@ -755,7 +755,7 @@ Many consider it impolite to do so automatically."
755 :type 'boolean) 755 :type 'boolean)
756 756
757(defcustom erc-away-nickname nil 757(defcustom erc-away-nickname nil
758 "*The nickname to take when you are marked as being away." 758 "The nickname to take when you are marked as being away."
759 :group 'erc 759 :group 'erc
760 :type '(choice (const nil) 760 :type '(choice (const nil)
761 string)) 761 string))
@@ -796,7 +796,7 @@ If nil, ERC will call `system-name' to get this information."
796 string)) 796 string))
797 797
798(defcustom erc-ignore-list nil 798(defcustom erc-ignore-list nil
799 "*List of regexps matching user identifiers to ignore. 799 "List of regexps matching user identifiers to ignore.
800 800
801A user identifier has the form \"nick!login@host\". If an 801A user identifier has the form \"nick!login@host\". If an
802identifier matches, the message from the person will not be 802identifier matches, the message from the person will not be
@@ -806,7 +806,7 @@ processed."
806(make-variable-buffer-local 'erc-ignore-list) 806(make-variable-buffer-local 'erc-ignore-list)
807 807
808(defcustom erc-ignore-reply-list nil 808(defcustom erc-ignore-reply-list nil
809 "*List of regexps matching user identifiers to ignore completely. 809 "List of regexps matching user identifiers to ignore completely.
810 810
811This differs from `erc-ignore-list' in that it also ignores any 811This differs from `erc-ignore-list' in that it also ignores any
812messages directed at the user. 812messages directed at the user.
@@ -824,7 +824,7 @@ people. You can update the ERC internal info using /WHO *."
824 :type '(repeat regexp)) 824 :type '(repeat regexp))
825 825
826(defvar erc-flood-protect t 826(defvar erc-flood-protect t
827 "*If non-nil, flood protection is enabled. 827 "If non-nil, flood protection is enabled.
828Flooding is sending too much information to the server in too 828Flooding is sending too much information to the server in too
829short of an interval, which may cause the server to terminate the 829short of an interval, which may cause the server to terminate the
830connection. 830connection.
@@ -854,7 +854,7 @@ directory in the list."
854 :type '(repeat directory)) 854 :type '(repeat directory))
855 855
856(defcustom erc-script-echo t 856(defcustom erc-script-echo t
857 "*If non-nil, echo the IRC script commands locally." 857 "If non-nil, echo the IRC script commands locally."
858 :group 'erc-scripts 858 :group 'erc-scripts
859 :type 'boolean) 859 :type 'boolean)
860 860
@@ -929,7 +929,7 @@ will be used as the part message."
929 :type '(repeat (list regexp (choice (string) (function))))) 929 :type '(repeat (list regexp (choice (string) (function)))))
930 930
931(defcustom erc-quit-reason 'erc-quit-reason-normal 931(defcustom erc-quit-reason 'erc-quit-reason-normal
932 "*A function which returns the reason for quitting. 932 "A function which returns the reason for quitting.
933 933
934The function is passed a single argument, the string typed by the 934The function is passed a single argument, the string typed by the
935user after \"/quit\"." 935user after \"/quit\"."
@@ -1480,7 +1480,7 @@ The available choices are:
1480 (const :tag "Use current buffer" t))) 1480 (const :tag "Use current buffer" t)))
1481 1481
1482(defcustom erc-frame-alist nil 1482(defcustom erc-frame-alist nil
1483 "*Alist of frame parameters for creating erc frames. 1483 "Alist of frame parameters for creating erc frames.
1484A value of nil means to use `default-frame-alist'." 1484A value of nil means to use `default-frame-alist'."
1485 :group 'erc-buffers 1485 :group 'erc-buffers
1486 :type '(repeat (cons :format "%v" 1486 :type '(repeat (cons :format "%v"
@@ -1488,13 +1488,13 @@ A value of nil means to use `default-frame-alist'."
1488 (sexp :tag "Value")))) 1488 (sexp :tag "Value"))))
1489 1489
1490(defcustom erc-frame-dedicated-flag nil 1490(defcustom erc-frame-dedicated-flag nil
1491 "*Non-nil means the erc frames are dedicated to that buffer. 1491 "Non-nil means the erc frames are dedicated to that buffer.
1492This only has effect when `erc-join-buffer' is set to `frame'." 1492This only has effect when `erc-join-buffer' is set to `frame'."
1493 :group 'erc-buffers 1493 :group 'erc-buffers
1494 :type 'boolean) 1494 :type 'boolean)
1495 1495
1496(defcustom erc-reuse-frames t 1496(defcustom erc-reuse-frames t
1497 "*Determines whether new frames are always created. 1497 "Determines whether new frames are always created.
1498Non-nil means that a new frame is not created to display an ERC 1498Non-nil means that a new frame is not created to display an ERC
1499buffer if there is already a window displaying it. This only has 1499buffer if there is already a window displaying it. This only has
1500effect when `erc-join-buffer' is set to `frame'." 1500effect when `erc-join-buffer' is set to `frame'."
@@ -1511,7 +1511,7 @@ effect when `erc-join-buffer' is set to `frame'."
1511 (t nil))) 1511 (t nil)))
1512 1512
1513(defcustom erc-reuse-buffers t 1513(defcustom erc-reuse-buffers t
1514 "*If nil, create new buffers on joining a channel/query. 1514 "If nil, create new buffers on joining a channel/query.
1515If non-nil, a new buffer will only be created when you join 1515If non-nil, a new buffer will only be created when you join
1516channels with same names on different servers, or have query buffers 1516channels with same names on different servers, or have query buffers
1517open with nicks of the same name on different servers. Otherwise, 1517open with nicks of the same name on different servers. Otherwise,
@@ -3799,7 +3799,7 @@ This places `point' just after the prompt, or at the beginning of the line."
3799 3799
3800(defcustom erc-default-server-hook '(erc-debug-missing-hooks 3800(defcustom erc-default-server-hook '(erc-debug-missing-hooks
3801 erc-default-server-handler) 3801 erc-default-server-handler)
3802 "*Default for server messages which aren't covered by `erc-server-hooks'." 3802 "Default for server messages which aren't covered by `erc-server-hooks'."
3803 :group 'erc-server-hooks 3803 :group 'erc-server-hooks
3804 :type 'hook) 3804 :type 'hook)
3805 3805
@@ -4017,7 +4017,7 @@ and as second argument the event parsed as a vector."
4017 str)) 4017 str))
4018 4018
4019(defcustom erc-format-nick-function 'erc-format-nick 4019(defcustom erc-format-nick-function 'erc-format-nick
4020 "*Function to format a nickname for message display." 4020 "Function to format a nickname for message display."
4021 :group 'erc-display 4021 :group 'erc-display
4022 :type 'function) 4022 :type 'function)
4023 4023
@@ -4575,7 +4575,7 @@ channel."
4575 (run-hooks 'erc-channel-members-changed-hook))) 4575 (run-hooks 'erc-channel-members-changed-hook)))
4576 4576
4577(defcustom erc-channel-members-changed-hook nil 4577(defcustom erc-channel-members-changed-hook nil
4578 "*This hook is called every time the variable `channel-members' changes. 4578 "This hook is called every time the variable `channel-members' changes.
4579The buffer where the change happened is current while this hook is called." 4579The buffer where the change happened is current while this hook is called."
4580 :group 'erc-hooks 4580 :group 'erc-hooks
4581 :type 'hook) 4581 :type 'hook)
@@ -6386,17 +6386,17 @@ See also `format-spec'."
6386(add-hook 'kill-buffer-hook 'erc-kill-buffer-function) 6386(add-hook 'kill-buffer-hook 'erc-kill-buffer-function)
6387 6387
6388(defcustom erc-kill-server-hook '(erc-kill-server) 6388(defcustom erc-kill-server-hook '(erc-kill-server)
6389 "*Invoked whenever a server-buffer is killed via `kill-buffer'." 6389 "Invoked whenever a server-buffer is killed via `kill-buffer'."
6390 :group 'erc-hooks 6390 :group 'erc-hooks
6391 :type 'hook) 6391 :type 'hook)
6392 6392
6393(defcustom erc-kill-channel-hook '(erc-kill-channel) 6393(defcustom erc-kill-channel-hook '(erc-kill-channel)
6394 "*Invoked whenever a channel-buffer is killed via `kill-buffer'." 6394 "Invoked whenever a channel-buffer is killed via `kill-buffer'."
6395 :group 'erc-hooks 6395 :group 'erc-hooks
6396 :type 'hook) 6396 :type 'hook)
6397 6397
6398(defcustom erc-kill-buffer-hook nil 6398(defcustom erc-kill-buffer-hook nil
6399 "*Hook run whenever a non-server or channel buffer is killed. 6399 "Hook run whenever a non-server or channel buffer is killed.
6400 6400
6401See also `kill-buffer'." 6401See also `kill-buffer'."
6402 :group 'erc-hooks 6402 :group 'erc-hooks