diff options
| author | Karl Berry | 2003-01-09 23:28:25 +0000 |
|---|---|---|
| committer | Karl Berry | 2003-01-09 23:28:25 +0000 |
| commit | 4cc7cae88ab9122db80467b8f747818d71f5c2d5 (patch) | |
| tree | a39f5c19b5f769e3a0e90aab9226d19e24940140 | |
| parent | 2de2cb02c92c915fd9ba9060ff6c63180591af7b (diff) | |
| download | emacs-4cc7cae88ab9122db80467b8f747818d71f5c2d5.tar.gz emacs-4cc7cae88ab9122db80467b8f747818d71f5c2d5.zip | |
(sort-regexp-fields): pass noerror to
re-search-forward, so that we don't fail if no
records match record-regexp.
| -rw-r--r-- | lisp/sort.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 @@ | |||
| 1 | ;;; sort.el --- commands to sort text in an Emacs buffer | 1 | ;;; sort.el --- commands to sort text in an Emacs buffer |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1986, 1987, 1994, 1995 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1986, 1987, 1994, 1995, 2003 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Howie Kaye | 5 | ;; Author: Howie Kaye |
| 6 | ;; Maintainer: FSF | 6 | ;; Maintainer: FSF |
| @@ -441,7 +441,7 @@ sRegexp specifying key within record: \nr") | |||
| 441 | (goto-char (point-min)) | 441 | (goto-char (point-min)) |
| 442 | (let (sort-regexp-record-end | 442 | (let (sort-regexp-record-end |
| 443 | (sort-regexp-fields-regexp record-regexp)) | 443 | (sort-regexp-fields-regexp record-regexp)) |
| 444 | (re-search-forward sort-regexp-fields-regexp) | 444 | (re-search-forward sort-regexp-fields-regexp nil t) |
| 445 | (setq sort-regexp-record-end (point)) | 445 | (setq sort-regexp-record-end (point)) |
| 446 | (goto-char (match-beginning 0)) | 446 | (goto-char (match-beginning 0)) |
| 447 | (sort-subr reverse | 447 | (sort-subr reverse |