diff options
| author | Chong Yidong | 2012-04-09 21:05:48 +0800 |
|---|---|---|
| committer | Chong Yidong | 2012-04-09 21:05:48 +0800 |
| commit | fb7ada5f94a71d73bf6cfad5cc87fe7fb26125a5 (patch) | |
| tree | eba43d1fa2427a77f1f6b1468838426b33ea5973 /lisp/erc | |
| parent | a18ecafa99e7e7c3caa35ed68dd8a7b9b5d2b8e3 (diff) | |
| download | emacs-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.el | 12 | ||||
| -rw-r--r-- | lisp/erc/erc-backend.el | 12 | ||||
| -rw-r--r-- | lisp/erc/erc-button.el | 12 | ||||
| -rw-r--r-- | lisp/erc/erc-dcc.el | 20 | ||||
| -rw-r--r-- | lisp/erc/erc-goodies.el | 4 | ||||
| -rw-r--r-- | lisp/erc/erc-log.el | 16 | ||||
| -rw-r--r-- | lisp/erc/erc-match.el | 10 | ||||
| -rw-r--r-- | lisp/erc/erc-notify.el | 8 | ||||
| -rw-r--r-- | lisp/erc/erc-pcomplete.el | 2 | ||||
| -rw-r--r-- | lisp/erc/erc-sound.el | 2 | ||||
| -rw-r--r-- | lisp/erc/erc-stamp.el | 26 | ||||
| -rw-r--r-- | lisp/erc/erc-track.el | 12 | ||||
| -rw-r--r-- | lisp/erc/erc-truncate.el | 2 | ||||
| -rw-r--r-- | lisp/erc/erc-xdcc.el | 8 | ||||
| -rw-r--r-- | lisp/erc/erc.el | 48 |
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. |
| 142 | If 'user, the time of the last command sent to Emacs is used. | 142 | If 'user, the time of the last command sent to Emacs is used. |
| 143 | If 'emacs, the idle time in Emacs is used. | 143 | If 'emacs, the idle time in Emacs is used. |
| 144 | If 'irc, the time of the last IRC command is used. | 144 | If '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. |
| 164 | ERC autoaway mode can set you away when you idle, and set you no | 164 | ERC autoaway mode can set you away when you idle, and set you no |
| 165 | longer away when you type something. This variable controls whether | 165 | longer away when you type something. This variable controls whether |
| 166 | you will be set away when you idle. See `erc-auto-discard-away' for | 166 | you 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. |
| 173 | ERC autoaway mode can set you away when you idle, and set you no | 173 | ERC autoaway mode can set you away when you idle, and set you no |
| 174 | longer away when you type something. This variable controls whether | 174 | longer away when you type something. This variable controls whether |
| 175 | you will be set no longer away when you type something. See | 175 | you 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. |
| 183 | See `erc-auto-discard-away'." | 183 | See `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. |
| 189 | If you are changing this variable using lisp instead of customizing it, | 189 | If you are changing this variable using lisp instead of customizing it, |
| 190 | you have to run `erc-autoaway-reestablish-idletimer' afterwards." | 190 | you 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. |
| 201 | It is used as a `format' string with the argument of the idletime | 201 | It is used as a `format' string with the argument of the idletime |
| 202 | in seconds." | 202 | in 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. |
| 315 | If a message exceeds this size, it is broken into multiple ones. | 315 | If a message exceeds this size, it is broken into multiple ones. |
| 316 | 316 | ||
| 317 | IRC allows for lines up to 512 bytes. Two of them are CR LF. | 317 | IRC 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. |
| 383 | Each string is a IRC message type, like PRIVMSG or NOTICE. | 383 | Each string is a IRC message type, like PRIVMSG or NOTICE. |
| 384 | All Message types in that list of subjected to duplicate prevention." | 384 | All 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 | ||
| 391 | If two identical messages arrive within this value of one another, the second | 391 | If two identical messages arrive within this value of one another, the second |
| 392 | isn't displayed." | 392 | isn'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. |
| 403 | The flood protection algorithm of ERC works like the one | 403 | The flood protection algorithm of ERC works like the one |
| 404 | detailed in RFC 2813, section 5.8 \"Flood control of clients\". | 404 | detailed 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. |
| 427 | If this is set to nil, pinging the server is disabled." | 427 | If 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. |
| 434 | The time is in seconds. | 434 | The time is in seconds. |
| 435 | 435 | ||
| 436 | This must be greater than or equal to the value for | 436 | This 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. |
| 159 | Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where | 159 | Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where |
| 160 | 160 | ||
| 161 | REGEXP is the string matching text around the button or a symbol | 161 | REGEXP 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. |
| 492 | An entry looks like (\"Action\" . SEXP) where SEXP is evaluated with | 492 | An entry looks like (\"Action\" . SEXP) where SEXP is evaluated with |
| 493 | the variable `nick' bound to the nick in question. | 493 | the 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. |
| 409 | If this is nil, then the current value of `default-directory' is used." | 409 | If 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 |
| 786 | unconfirmed." | 786 | unconfirmed." |
| 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 |
| 860 | listening port." | 860 | listening 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 | ||
| 188 | If this is set to the symbol `remove', ERC removes all IRC colors and | 188 | If this is set to the symbol `remove', ERC removes all IRC colors and |
| 189 | highlighting effects. When this variable is non-nil, it can cause Emacs to run | 189 | highlighting 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. |
| 105 | The function must take five arguments: BUFFER, TARGET, NICK, SERVER and PORT. | 105 | The function must take five arguments: BUFFER, TARGET, NICK, SERVER and PORT. |
| 106 | BUFFER is the buffer to be saved, | 106 | BUFFER is the buffer to be saved, |
| 107 | TARGET is the name of the channel, or the target of the query, | 107 | TARGET 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 | ||
| 167 | If you set this to nil, you may want to enable both | 167 | If 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 | ||
| 175 | If you set this to nil, you may want to enable both | 175 | If 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 | ||
| 183 | If you set this to nil, you may want to enable both | 183 | If 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 |
| 190 | logged ERC buffer. | 190 | logged ERC buffer. |
| 191 | 191 | ||
| 192 | If you set this to nil, you may want to enable both | 192 | If 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 | ||
| 202 | This should ideally, be a \"catch-all\" coding system, like | 202 | This 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 |
| 208 | a log file. | 208 | a log file. |
| 209 | 209 | ||
| 210 | The function should take one argument, which is the text to filter." | 210 | The 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 | ||
| 89 | The following values are allowed: | 89 | The 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. |
| 109 | See `erc-pals'. | 109 | See `erc-pals'. |
| 110 | 110 | ||
| 111 | The following values are allowed: | 111 | The 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. |
| 125 | See `erc-fools'. | 125 | See `erc-fools'. |
| 126 | 126 | ||
| 127 | The following values are allowed: | 127 | The 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. |
| 141 | See variable `erc-keywords'. | 141 | See variable `erc-keywords'. |
| 142 | 142 | ||
| 143 | The following values are allowed: | 143 | The 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. |
| 156 | See `erc-dangerous-hosts'. | 156 | See `erc-dangerous-hosts'. |
| 157 | 157 | ||
| 158 | The following values are allowed: | 158 | The 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 |
| 44 | status change." | 44 | status 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 |
| 50 | people." | 50 | people." |
| 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. |
| 56 | Two arguments are passed to the function, SERVER and NICK, both | 56 | Two arguments are passed to the function, SERVER and NICK, both |
| 57 | strings." | 57 | strings." |
| 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. |
| 64 | Two arguments are passed to the function, SERVER and NICK, both | 64 | Two arguments are passed to the function, SERVER and NICK, both |
| 65 | strings." | 65 | strings." |
| 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, |
| 53 | add this string to nicks completed." | 53 | add 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. |
| 51 | This string is processed using `format-time-string'. | 51 | This string is processed using `format-time-string'. |
| 52 | Good examples are \"%T\" and \"%H:%M\". | 52 | Good 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. |
| 61 | This string is processed using `format-time-string'. | 61 | This string is processed using `format-time-string'. |
| 62 | Good examples are \"%T\" and \"%H:%M\". | 62 | Good 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. |
| 75 | This string is processed using `format-time-string'. | 75 | This string is processed using `format-time-string'. |
| 76 | Good examples are \"%T\" and \"%H:%M\". | 76 | Good 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 | ||
| 90 | It takes a single argument STRING which is the final string | 90 | It takes a single argument STRING which is the final string |
| 91 | which all text-properties already appended. This function only cares about | 91 | which 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 | ||
| 107 | If nil, timestamping is turned off when away unless `erc-timestamp-format' | 107 | If nil, timestamping is turned off when away unless `erc-timestamp-format' |
| 108 | is set. | 108 | is 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 | ||
| 119 | See `erc-insert-timestamp-function' for details." | 119 | See `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 | ||
| 129 | This is useful for logging, because, although timestamps will be | 129 | This is useful for logging, because, although timestamps will be |
| 130 | hidden, they will still be present in the logs." | 130 | hidden, 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. |
| 136 | Using this variable, you can turn off normal timestamping, | 136 | Using this variable, you can turn off normal timestamping, |
| 137 | and simply move point to an irc message to see its timestamp | 137 | and simply move point to an irc message to see its timestamp |
| 138 | printed in the minibuffer." | 138 | printed 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. |
| 144 | This string specifies the format of the timestamp being echoed in | 144 | This string specifies the format of the timestamp being echoed in |
| 145 | the minibuffer." | 145 | the 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 |
| 151 | from entering them and instead jump over them." | 151 | from 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. |
| 209 | If `erc-insert-timestamp-function' is `erc-insert-timestamp-left', a | 209 | If `erc-insert-timestamp-function' is `erc-insert-timestamp-left', a |
| 210 | string of spaces which is the same size as the timestamp is added to | 210 | string of spaces which is the same size as the timestamp is added to |
| 211 | the beginning of the line in its place. If you use | 211 | the 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, |
| 219 | if the timestamp is to be printed to the right. If nil, | 219 | if 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 |
| 221 | the correct column." | 221 | the 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. |
| 231 | This gives better results when variable-width characters (like | 231 | This gives better results when variable-width characters (like |
| 232 | Asian language characters and math symbols) precede a timestamp. | 232 | Asian language characters and math symbols) precede a timestamp. |
| 233 | Unfortunately, it only works in Emacs 22 and when using the X | 233 | Unfortunately, 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 |
| 97 | disconnected from `erc-modified-channels-alist'." | 97 | disconnected 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. |
| 103 | This list could look like '(\"JOIN\" \"PART\"). | 103 | This list could look like '(\"JOIN\" \"PART\"). |
| 104 | 104 | ||
| 105 | By default, exclude changes of nicknames (NICK), display of who | 105 | By 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 |
| 113 | useful for excluding all the things like MOTDs from the server and | 113 | useful for excluding all the things like MOTDs from the server and |
| 114 | other miscellaneous functions." | 114 | other 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. |
| 131 | Usually, names are not shortened if this will save only one character. | 131 | Usually, names are not shortened if this will save only one character. |
| 132 | Example: If there are two channels, #linux-de and #linux-fr, then | 132 | Example: If there are two channels, #linux-de and #linux-fr, then |
| 133 | normally these will not be shortened. When shortening aggressively, | 133 | normally 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. |
| 154 | It takes one argument, CHANNEL-NAMES which is a list of strings. | 154 | It takes one argument, CHANNEL-NAMES which is a list of strings. |
| 155 | It should return a list of strings of the same number of elements. | 155 | It should return a list of strings of the same number of elements. |
| 156 | If nil instead of a function, shortening is disabled." | 156 | If 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. |
| 173 | The faces used are the same as used for text in the buffers. | 173 | The 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. |
| 40 | Used only when auto-truncation is enabled. | 40 | Used 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. |
| 33 | Your friends should issue \"/ctcp yournick XDCC list\" to see this." | 33 | Your 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. |
| 58 | A list of messages, each consisting of strings and expressions, expressions | 58 | A list of messages, each consisting of strings and expressions, expressions |
| 59 | being evaluated and should return strings." | 59 | being 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. |
| 259 | A typical value would be '(\"JOIN\" \"PART\" \"QUIT\")." | 259 | A 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. |
| 662 | See `erc-notice-prefix'. | 662 | See `erc-notice-prefix'. |
| 663 | 663 | ||
| 664 | The following values are allowed: | 664 | The 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 |
| 677 | notice. Each function is called with four arguments, the string | 677 | notice. Each function is called with four arguments, the string |
| 678 | to display, the parsed server message, the target buffer (or | 678 | to display, the parsed server message, the target buffer (or |
| 679 | nil), and the sender. The functions are called in order, until a | 679 | nil), 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 |
| 708 | notice. Each function is called with four arguments, the string | 708 | notice. Each function is called with four arguments, the string |
| 709 | to display, the parsed server message, the target buffer (or | 709 | to display, the parsed server message, the target buffer (or |
| 710 | nil), and the sender. The functions are called in order, and all | 710 | nil), 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. |
| 750 | This happens in this form: | 750 | This 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 | ||
| 801 | A user identifier has the form \"nick!login@host\". If an | 801 | A user identifier has the form \"nick!login@host\". If an |
| 802 | identifier matches, the message from the person will not be | 802 | identifier 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 | ||
| 811 | This differs from `erc-ignore-list' in that it also ignores any | 811 | This differs from `erc-ignore-list' in that it also ignores any |
| 812 | messages directed at the user. | 812 | messages 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. |
| 828 | Flooding is sending too much information to the server in too | 828 | Flooding is sending too much information to the server in too |
| 829 | short of an interval, which may cause the server to terminate the | 829 | short of an interval, which may cause the server to terminate the |
| 830 | connection. | 830 | connection. |
| @@ -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 | ||
| 934 | The function is passed a single argument, the string typed by the | 934 | The function is passed a single argument, the string typed by the |
| 935 | user after \"/quit\"." | 935 | user 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. |
| 1484 | A value of nil means to use `default-frame-alist'." | 1484 | A 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. |
| 1492 | This only has effect when `erc-join-buffer' is set to `frame'." | 1492 | This 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. |
| 1498 | Non-nil means that a new frame is not created to display an ERC | 1498 | Non-nil means that a new frame is not created to display an ERC |
| 1499 | buffer if there is already a window displaying it. This only has | 1499 | buffer if there is already a window displaying it. This only has |
| 1500 | effect when `erc-join-buffer' is set to `frame'." | 1500 | effect 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. |
| 1515 | If non-nil, a new buffer will only be created when you join | 1515 | If non-nil, a new buffer will only be created when you join |
| 1516 | channels with same names on different servers, or have query buffers | 1516 | channels with same names on different servers, or have query buffers |
| 1517 | open with nicks of the same name on different servers. Otherwise, | 1517 | open 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. |
| 4579 | The buffer where the change happened is current while this hook is called." | 4579 | The 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 | ||
| 6401 | See also `kill-buffer'." | 6401 | See also `kill-buffer'." |
| 6402 | :group 'erc-hooks | 6402 | :group 'erc-hooks |