aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorJuanma Barranquero2008-02-05 13:00:43 +0000
committerJuanma Barranquero2008-02-05 13:00:43 +0000
commit4f9c00e2dc1e780ba79554fa8620cf875e196d19 (patch)
treec74d0d7286e9c9510d903d32b7ff224335bc4ebc /lisp
parent42c28f29df382c5453956e0e66c9dbc0370ba1b7 (diff)
downloademacs-4f9c00e2dc1e780ba79554fa8620cf875e196d19.tar.gz
emacs-4f9c00e2dc1e780ba79554fa8620cf875e196d19.zip
(erc-valid-nick-regexp): Replace `legal' with `valid'.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/erc/ChangeLog6
-rw-r--r--lisp/erc/erc.el2
-rw-r--r--lisp/mail/mail-extr.el6
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 @@
12008-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
12007-11-15 Juanma Barranquero <lekktu@gmail.com> 72007-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