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

* gnus.el (gnus-newsrc-to-gnus-format): Change regexp which

Browse source 
matches .newsrc lines for better performance under the new regexp
	routines.
This commit is contained in:
Jim Blandy 1993-06-10 10:40:16 +00:00
parent 407865ffc9
commit 17df4d9dae
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus.el
View file

@ -1,6 +1,6 @@
;;; GNUS: an NNTP-based News Reader for GNU Emacs
;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc.
;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.18 1993/06/05 09:17:34 rms Exp jimb $
;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.19 1993/06/09 11:53:26 jimb Exp jimb $
;; This file is part of GNU Emacs.
@ -6563,9 +6563,11 @@ If optional argument RAWFILE is non-nil, the raw startup file is read."
(goto-char (point-min))
;; Due to overflows in regex.c, change the following regexp:
;; "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(.*\\)$"
;; Suggested by composer@bucsf.bu.edu (Jeff Kellem).
;; Suggested by composer@bucsf.bu.edu (Jeff Kellem)
;; but no longer viable because of extensive backtracking in Emacs 19:
;; "^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\(...\\)*.*\\)$" nil t)
(while (re-search-forward
"^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\(...\\)*.*\\)$" nil t)
"^\\([^:! \t\n]+\\)\\([:!]\\)[ \t]*\\(\\|[^ \t].*\\)$" nil t)
(setq newsgroup (buffer-substring (match-beginning 1) (match-end 1)))
;; Check duplications of newsgroups.
;; Note: Checking the duplications takes very long time.