Mercurial > emacs
changeset 49128:93b43f689e56
(sort-regexp-fields): pass noerror to
re-search-forward, so that we don't fail if no
records match record-regexp.
| author | Karl Berry <karl@gnu.org> |
|---|---|
| date | Thu, 09 Jan 2003 23:28:25 +0000 |
| parents | d276aa432994 |
| children | 6b546e74af50 |
| files | lisp/sort.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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