Mercurial > emacs
changeset 106614:6609f07cf9fd
replace [:digit:] with [0-9] for XEmacs.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 18 Dec 2009 00:47:21 +0000 |
| parents | 291ea018e478 |
| children | bd7f2c3eba70 |
| files | lisp/gnus/ChangeLog lisp/gnus/nntp.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Dec 17 13:18:03 2009 +0000 +++ b/lisp/gnus/ChangeLog Fri Dec 18 00:47:21 2009 +0000 @@ -1,3 +1,8 @@ +2009-12-18 Katsumi Yamaoka <yamaoka@jpl.org> + + * nntp.el (nntp-service-to-port): Work for port expressed with numeric + string; replace [:digit:] with [0-9] for XEmacs. + 2009-12-17 Glenn Morris <rgm@gnu.org> * gnus-group.el (gnus-bug-group-download-format-alist):
--- a/lisp/gnus/nntp.el Thu Dec 17 13:18:03 2009 +0000 +++ b/lisp/gnus/nntp.el Fri Dec 18 00:47:21 2009 +0000 @@ -1816,13 +1816,13 @@ (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)))))