From 49b196a5f111d58fd485a1b17ca7e3f2a543b293 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 18 Dec 2009 00:47:21 +0000 Subject: replace [:digit:] with [0-9] for XEmacs. --- lisp/gnus/nntp.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/gnus/nntp.el') diff --git a/lisp/gnus/nntp.el b/lisp/gnus/nntp.el index 8a6c9a2d78a..0f696e508b9 100644 --- a/lisp/gnus/nntp.el +++ b/lisp/gnus/nntp.el @@ -1816,13 +1816,13 @@ via telnet.") (defun nntp-service-to-port (svc) (cond ((integerp svc) (number-to-string svc)) - ((string-match "\\`[[:digit:]]\\'" svc) svc) + ((string-match "\\`[0-9]+\\'" svc) svc) (t (with-temp-buffer (ignore-errors (insert-file-contents "/etc/services")) (goto-char (point-min)) (if (re-search-forward (concat "^" (regexp-quote svc) - "[ \t]+\\([[:digit:]]+\\)/tcp")) + "[ \t]+\\([0-9]+\\)/tcp")) (match-string 1) svc))))) -- cgit v1.2.1