mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

replace [:digit:] with [0-9] for XEmacs.

Browse Source
This commit is contained in:
Katsumi Yamaoka 2009-12-18 00:47:21 +00:00
parent 1f3611c61a
commit 49b196a5f1
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -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):

4
lisp/gnus/nntp.el
View File

@ -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)))))