Mercurial > emacs

comparison lisp/sort.el @ 807:4f28bd14272c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 16 Jul 1992 21:47:34 +0000
parents 7cbd4fcd8b0f
children 38b2499cb3e9
comparison
equal deleted inserted replaced
806:d42e1151eed8 807:4f28bd14272c
1 ;;; sort.el --- commands to sort text in an Emacs buffer. 1 ;;; sort.el --- commands to sort text in an Emacs buffer.
2
3 ;; Author: Howie Kaye
4 ;; Maintainer: FSF
5 ;; Last-Modified: 28 Aug 1990
2 6
3 ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc. 7 ;; Copyright (C) 1986, 1987 Free Software Foundation, Inc.
4 8
5 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
6 10
7 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation; either version 1, or (at your option) 13 ;; the Free Software Foundation; either version 2, or (at your option)
10 ;; any later version. 14 ;; any later version.
11 15
12 ;; GNU Emacs is distributed in the hope that it will be useful, 16 ;; GNU Emacs is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 20
17 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs; see the file COPYING. If not, write to 22 ;; along with GNU Emacs; see the file COPYING. If not, write to
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
20 24
21 ;; Original version of most of this contributed by Howie Kaye 25 ;;; Code:
22 26
23 (defun sort-subr (reverse nextrecfun endrecfun &optional startkeyfun endkeyfun) 27 (defun sort-subr (reverse nextrecfun endrecfun &optional startkeyfun endkeyfun)
24 "General text sorting routine to divide buffer into records and sort them. 28 "General text sorting routine to divide buffer into records and sort them.
25 Arguments are REVERSE NEXTRECFUN ENDRECFUN &optional STARTKEYFUN ENDKEYFUN. 29 Arguments are REVERSE NEXTRECFUN ENDRECFUN &optional STARTKEYFUN ENDKEYFUN.
26 30