Mercurial > emacs

comparison lisp/erc/erc.el @ 92148:f991f10f15ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1074
author Miles Bader <miles@gnu.org>
date Sun, 24 Feb 2008 10:09:07 +0000
parents 84357f6e06d1 d3d9941875cc
children 908993cbed5e
comparison
equal deleted inserted replaced
92147:773ae07da318 92148:f991f10f15ec
2426 (incf (nth 1 elt) shift) 2426 (incf (nth 1 elt) shift)
2427 (incf (nth 2 elt) shift))) 2427 (incf (nth 2 elt) shift)))
2428 (setq list (cdr list)))))) 2428 (setq list (cdr list))))))
2429 2429
2430 (defvar erc-valid-nick-regexp "[]a-zA-Z^[;\\`_{}|][]^[;\\`_{}|a-zA-Z0-9-]*" 2430 (defvar erc-valid-nick-regexp "[]a-zA-Z^[;\\`_{}|][]^[;\\`_{}|a-zA-Z0-9-]*"
2431 "Regexp which matches all legal characters in a IRC nickname.") 2431 "Regexp which matches all valid characters in a IRC nickname.")
2432 2432
2433 (defun erc-is-valid-nick-p (nick) 2433 (defun erc-is-valid-nick-p (nick)
2434 "Check if NICK is a valid IRC nickname." 2434 "Check if NICK is a valid IRC nickname."
2435 (string-match (concat "^" erc-valid-nick-regexp "$") nick)) 2435 (string-match (concat "^" erc-valid-nick-regexp "$") nick))
2436 2436