Function: sort-fields-1

sort-fields-1 is a byte-compiled function defined in sort.el.gz.

Signature

(sort-fields-1 FIELD BEG END STARTKEYFUN ENDKEYFUN)

Source Code

;; Defined in /usr/src/emacs/lisp/sort.el.gz
(defun sort-fields-1 (field beg end startkeyfun endkeyfun)
  (let ((tbl (syntax-table)))
    (if (zerop field) (setq field 1))
    (unwind-protect
	(save-excursion
	  (save-restriction
	    (narrow-to-region beg end)
	    (goto-char (point-min))
	    (set-syntax-table sort-fields-syntax-table)
	    (sort-subr nil
		       'forward-line 'end-of-line
		       startkeyfun endkeyfun)))
      (set-syntax-table tbl))))