# HG changeset patch
# User Karl Berry <karl@gnu.org>
# Date 1042154905 0
# Node ID 93b43f689e56f573bf41bcf0239b70c6e4b65ff0
# Parent  d276aa4329940afbe050db71524250064d9b367c
(sort-regexp-fields): pass noerror to
re-search-forward, so that we don't fail if no
records match record-regexp.

diff -r d276aa432994 -r 93b43f689e56 lisp/sort.el
--- a/lisp/sort.el	Thu Jan 09 22:32:48 2003 +0000
+++ b/lisp/sort.el	Thu Jan 09 23:28:25 2003 +0000
@@ -1,6 +1,6 @@
 ;;; sort.el --- commands to sort text in an Emacs buffer
 
-;; Copyright (C) 1986, 1987, 1994, 1995 Free Software Foundation, Inc.
+;; Copyright (C) 1986, 1987, 1994, 1995, 2003 Free Software Foundation, Inc.
 
 ;; Author: Howie Kaye
 ;; Maintainer: FSF
@@ -441,7 +441,7 @@
       (goto-char (point-min))
       (let (sort-regexp-record-end
 	    (sort-regexp-fields-regexp record-regexp))
-	(re-search-forward sort-regexp-fields-regexp)
+	(re-search-forward sort-regexp-fields-regexp nil t)
 	(setq sort-regexp-record-end (point))
 	(goto-char (match-beginning 0))
 	(sort-subr reverse