From: Karl Berry <karl@gnu.org>
Date: Thu, 9 Jan 2003 23:28:25 +0000 (+0000)
Subject: (sort-regexp-fields): pass noerror to
X-Git-Tag: ttn-vms-21-2-B4~11758
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cc7cae88ab9122db80467b8f747818d71f5c2d5;p=emacs.git

(sort-regexp-fields): pass noerror to
re-search-forward, so that we don't fail if no
records match record-regexp.
---

diff --git a/lisp/sort.el b/lisp/sort.el
index ebcea995ad3..09123f42ab7 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -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 @@ sRegexp specifying key within record: \nr")
       (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