diff options
| author | Juanma Barranquero | 2008-05-05 22:50:58 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2008-05-05 22:50:58 +0000 |
| commit | f44407aa4bab98e037cd1728cafb5575a1bc0482 (patch) | |
| tree | 57cfd189e769143bfc9cb3a2003720d9c3c7e696 | |
| parent | b236ab0da995fa79a16298d9094e748c09cb9f9c (diff) | |
| download | emacs-f44407aa4bab98e037cd1728cafb5575a1bc0482.tar.gz emacs-f44407aa4bab98e037cd1728cafb5575a1bc0482.zip | |
(erc-noncommands-list, noncommands, erc-control-characters,
erc-interpret-controls-p, erc-interpret-mirc-color): Fix typos in docstrings.
(erc-controls-highlight): Reflow docstring.
| -rw-r--r-- | lisp/erc/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/erc/erc-goodies.el | 15 |
2 files changed, 14 insertions, 8 deletions
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index 637e6aa5f3b..4700aa3bccb 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2008-05-05 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * erc-goodies.el (erc-noncommands-list, noncommands) | ||
| 4 | (erc-control-characters, erc-interpret-controls-p) | ||
| 5 | (erc-interpret-mirc-color): Fix typos in docstrings. | ||
| 6 | (erc-controls-highlight): Reflow docstring. | ||
| 7 | |||
| 1 | 2008-04-27 Glenn Morris <rgm@gnu.org> | 8 | 2008-04-27 Glenn Morris <rgm@gnu.org> |
| 2 | 9 | ||
| 3 | * erc.el (erc-put-text-properties): Replace use of cl mapcar*. | 10 | * erc.el (erc-put-text-properties): Replace use of cl mapcar*. |
diff --git a/lisp/erc/erc-goodies.el b/lisp/erc/erc-goodies.el index ff065467f84..c97a50134d1 100644 --- a/lisp/erc/erc-goodies.el +++ b/lisp/erc/erc-goodies.el | |||
| @@ -164,13 +164,13 @@ Put this function on `erc-insert-post-hook' and/or `erc-send-post-hook'." | |||
| 164 | erc-cmd-SM | 164 | erc-cmd-SM |
| 165 | erc-cmd-SMV | 165 | erc-cmd-SMV |
| 166 | erc-cmd-LASTLOG) | 166 | erc-cmd-LASTLOG) |
| 167 | "List of commands that are aliases for CTCP ACTION or for erc messages. | 167 | "List of commands that are aliases for CTCP ACTION or for ERC messages. |
| 168 | 168 | ||
| 169 | If a command's function symbol is in this list, the typed command | 169 | If a command's function symbol is in this list, the typed command |
| 170 | does not appear in the ERC buffer after the user presses ENTER.") | 170 | does not appear in the ERC buffer after the user presses ENTER.") |
| 171 | 171 | ||
| 172 | (define-erc-module noncommands nil | 172 | (define-erc-module noncommands nil |
| 173 | "This mode distinguishies non-commands. | 173 | "This mode distinguishes non-commands. |
| 174 | Commands listed in `erc-insert-this' know how to display | 174 | Commands listed in `erc-insert-this' know how to display |
| 175 | themselves." | 175 | themselves." |
| 176 | ((add-hook 'erc-send-pre-hook 'erc-send-distinguish-noncommands)) | 176 | ((add-hook 'erc-send-pre-hook 'erc-send-distinguish-noncommands)) |
| @@ -188,11 +188,11 @@ themselves." | |||
| 188 | 188 | ||
| 189 | ;;; IRC control character processing. | 189 | ;;; IRC control character processing. |
| 190 | (defgroup erc-control-characters nil | 190 | (defgroup erc-control-characters nil |
| 191 | "Dealing with control characters" | 191 | "Dealing with control characters." |
| 192 | :group 'erc) | 192 | :group 'erc) |
| 193 | 193 | ||
| 194 | (defcustom erc-interpret-controls-p t | 194 | (defcustom erc-interpret-controls-p t |
| 195 | "*If non-nil, display IRC colours and other highlighting effects. | 195 | "*If non-nil, display IRC colors and other highlighting effects. |
| 196 | 196 | ||
| 197 | If this is set to the symbol `remove', ERC removes all IRC colors and | 197 | If this is set to the symbol `remove', ERC removes all IRC colors and |
| 198 | highlighting effects. When this variable is non-nil, it can cause Emacs to run | 198 | highlighting effects. When this variable is non-nil, it can cause Emacs to run |
| @@ -205,7 +205,7 @@ emergency (message flood) it can be turned off to save processing time. See | |||
| 205 | (const :tag "Display raw control characters" nil))) | 205 | (const :tag "Display raw control characters" nil))) |
| 206 | 206 | ||
| 207 | (defcustom erc-interpret-mirc-color nil | 207 | (defcustom erc-interpret-mirc-color nil |
| 208 | "*If non-nil, erc will interpret mIRC color codes." | 208 | "*If non-nil, ERC will interpret mIRC color codes." |
| 209 | :group 'erc-control-characters | 209 | :group 'erc-control-characters |
| 210 | :type 'boolean) | 210 | :type 'boolean) |
| 211 | 211 | ||
| @@ -428,9 +428,8 @@ See `erc-interpret-controls-p' and `erc-interpret-mirc-color' for options." | |||
| 428 | 428 | ||
| 429 | (defun erc-controls-highlight () | 429 | (defun erc-controls-highlight () |
| 430 | "Highlight IRC control chars in the buffer. | 430 | "Highlight IRC control chars in the buffer. |
| 431 | This is useful for `erc-insert-modify-hook' and | 431 | This is useful for `erc-insert-modify-hook' and `erc-send-modify-hook'. |
| 432 | `erc-send-modify-hook'. Also see `erc-interpret-controls-p' and | 432 | Also see `erc-interpret-controls-p' and `erc-interpret-mirc-color'." |
| 433 | `erc-interpret-mirc-color'." | ||
| 434 | (goto-char (point-min)) | 433 | (goto-char (point-min)) |
| 435 | (cond ((eq erc-interpret-controls-p 'remove) | 434 | (cond ((eq erc-interpret-controls-p 'remove) |
| 436 | (while (re-search-forward erc-controls-remove-regexp nil t) | 435 | (while (re-search-forward erc-controls-remove-regexp nil t) |