diff options
| author | Juanma Barranquero | 2008-02-05 13:00:43 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2008-02-05 13:00:43 +0000 |
| commit | 4f9c00e2dc1e780ba79554fa8620cf875e196d19 (patch) | |
| tree | c74d0d7286e9c9510d903d32b7ff224335bc4ebc /lisp | |
| parent | 42c28f29df382c5453956e0e66c9dbc0370ba1b7 (diff) | |
| download | emacs-4f9c00e2dc1e780ba79554fa8620cf875e196d19.tar.gz emacs-4f9c00e2dc1e780ba79554fa8620cf875e196d19.zip | |
(erc-valid-nick-regexp): Replace `legal' with `valid'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/erc/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/erc/erc.el | 2 | ||||
| -rw-r--r-- | lisp/mail/mail-extr.el | 6 |
3 files changed, 10 insertions, 4 deletions
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index a631a4514a4..061bfc55444 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2008-02-05 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * erc.el (erc-valid-nick-regexp): | ||
| 4 | * erc-button.el (erc-button-syntax-table): | ||
| 5 | * erc-match.el (erc-match-syntax-table): Replace `legal' with `valid'. | ||
| 6 | |||
| 1 | 2007-11-15 Juanma Barranquero <lekktu@gmail.com> | 7 | 2007-11-15 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 8 | ||
| 3 | * erc.el (erc-open): | 9 | * erc.el (erc-open): |
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index 00d61a60ffd..649fc4a63df 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el | |||
| @@ -2342,7 +2342,7 @@ If STRING is nil, the function does nothing." | |||
| 2342 | (setq list (cdr list)))))) | 2342 | (setq list (cdr list)))))) |
| 2343 | 2343 | ||
| 2344 | (defvar erc-valid-nick-regexp "[]a-zA-Z^[;\\`_{}|][]^[;\\`_{}|a-zA-Z0-9-]*" | 2344 | (defvar erc-valid-nick-regexp "[]a-zA-Z^[;\\`_{}|][]^[;\\`_{}|a-zA-Z0-9-]*" |
| 2345 | "Regexp which matches all legal characters in a IRC nickname.") | 2345 | "Regexp which matches all valid characters in a IRC nickname.") |
| 2346 | 2346 | ||
| 2347 | (defun erc-is-valid-nick-p (nick) | 2347 | (defun erc-is-valid-nick-p (nick) |
| 2348 | "Check if NICK is a valid IRC nickname." | 2348 | "Check if NICK is a valid IRC nickname." |
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index c43b0d5a2b0..dd44507ee57 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el | |||
| @@ -850,7 +850,7 @@ consing a string.)" | |||
| 850 | (setq char ?\() ; HAVE I NO SHAME?? | 850 | (setq char ?\() ; HAVE I NO SHAME?? |
| 851 | ) | 851 | ) |
| 852 | ;; record the position of various interesting chars, determine | 852 | ;; record the position of various interesting chars, determine |
| 853 | ;; legality later. | 853 | ;; validity later. |
| 854 | ((setq record-pos-symbol | 854 | ((setq record-pos-symbol |
| 855 | (cdr (assq char | 855 | (cdr (assq char |
| 856 | '((?< . <-pos) (?> . >-pos) (?@ . @-pos) | 856 | '((?< . <-pos) (?> . >-pos) (?@ . @-pos) |
| @@ -862,9 +862,9 @@ consing a string.)" | |||
| 862 | ((eq char ?.) | 862 | ((eq char ?.) |
| 863 | (forward-char 1)) | 863 | (forward-char 1)) |
| 864 | ((memq char '( | 864 | ((memq char '( |
| 865 | ;; comment terminator illegal | 865 | ;; comment terminator invalid |
| 866 | ?\) | 866 | ?\) |
| 867 | ;; domain literal terminator illegal | 867 | ;; domain literal terminator invalid |
| 868 | ?\] | 868 | ?\] |
| 869 | ;; \ allowed only within quoted strings, | 869 | ;; \ allowed only within quoted strings, |
| 870 | ;; domain literals, and comments | 870 | ;; domain literals, and comments |