(sort-build-lints): Add comment.

This commit is contained in:
Kenichi Handa
2006-03-17 00:41:18 +00:00
parent afe28525db
commit 0bfd987d28

View File

@@ -121,6 +121,8 @@ it defaults to `<', otherwise it defaults to `string<'."
(defun sort-build-lists (nextrecfun endrecfun startkeyfun endkeyfun)
(let ((sort-lists ())
(start-rec nil)
;; To avoid such functins as `end-of-line' being affected by
;; fields.
(inhibit-field-text-motion t)
done key)
;; Loop over sort records.