procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(erc-valid-nick-regexp): Replace legal' with valid'.

Browse source
This commit is contained in:
Juanma Barranquero 2008-02-05 13:00:43 +00:00
parent 42c28f29df
commit 4f9c00e2dc
3 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/erc/ChangeLog
View file

@ -1,3 +1,9 @@
2008-02-05 Juanma Barranquero <lekktu@gmail.com>
* erc.el (erc-valid-nick-regexp):
* erc-button.el (erc-button-syntax-table):
* erc-match.el (erc-match-syntax-table): Replace `legal' with `valid'.
2007-11-15 Juanma Barranquero <lekktu@gmail.com>
* erc.el (erc-open):

2
lisp/erc/erc.el
View file

@ -2342,7 +2342,7 @@ If STRING is nil, the function does nothing."
(setq list (cdr list))))))
(defvar erc-valid-nick-regexp "[]a-zA-Z^[;\\`_{}|][]^[;\\`_{}|a-zA-Z0-9-]*"
"Regexp which matches all legal characters in a IRC nickname.")
"Regexp which matches all valid characters in a IRC nickname.")
(defun erc-is-valid-nick-p (nick)
"Check if NICK is a valid IRC nickname."

6
lisp/mail/mail-extr.el
View file

@ -850,7 +850,7 @@ consing a string.)"
(setq char ?\() ; HAVE I NO SHAME??
)
;; record the position of various interesting chars, determine
;; legality later.
;; validity later.
((setq record-pos-symbol
(cdr (assq char
'((?< . <-pos) (?> . >-pos) (?@ . @-pos)
@ -862,9 +862,9 @@ consing a string.)"
((eq char ?.)
(forward-char 1))
((memq char '(
;; comment terminator illegal
;; comment terminator invalid
?\)
;; domain literal terminator illegal
;; domain literal terminator invalid
?\]
;; \ allowed only within quoted strings,
;; domain literals, and comments