comparison lisp/sort.el @ 49128:93b43f689e56

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

49127:d276aa432994

;;; sort.el --- commands to sort text in an Emacs buffer

;; Copyright (C) 1986, 1987, 1994, 1995 Free Software Foundation, Inc.

;; Author: Howie Kaye
;; Maintainer: FSF
;; Keywords: unix

    (save-restriction
      (narrow-to-region beg end)
      (goto-char (point-min))
      (let (sort-regexp-record-end
	    (sort-regexp-fields-regexp record-regexp))
	(re-search-forward sort-regexp-fields-regexp)
	(setq sort-regexp-record-end (point))
	(goto-char (match-beginning 0))
	(sort-subr reverse
		   'sort-regexp-fields-next-record
		   (function (lambda ()

49128:93b43f689e56

;;; sort.el --- commands to sort text in an Emacs buffer

;; Copyright (C) 1986, 1987, 1994, 1995, 2003 Free Software Foundation, Inc.

;; Author: Howie Kaye
;; Maintainer: FSF
;; Keywords: unix

    (save-restriction
      (narrow-to-region beg end)
      (goto-char (point-min))
      (let (sort-regexp-record-end
	    (sort-regexp-fields-regexp record-regexp))
	(re-search-forward sort-regexp-fields-regexp nil t)
	(setq sort-regexp-record-end (point))
	(goto-char (match-beginning 0))
	(sort-subr reverse
		   'sort-regexp-fields-next-record
		   (function (lambda ()