Commit 0bfd987d authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(sort-build-lints): Add comment.

parent afe28525
...@@ -121,6 +121,8 @@ it defaults to `<', otherwise it defaults to `string<'." ...@@ -121,6 +121,8 @@ it defaults to `<', otherwise it defaults to `string<'."
(defun sort-build-lists (nextrecfun endrecfun startkeyfun endkeyfun) (defun sort-build-lists (nextrecfun endrecfun startkeyfun endkeyfun)
(let ((sort-lists ()) (let ((sort-lists ())
(start-rec nil) (start-rec nil)
;; To avoid such functins as `end-of-line' being affected by
;; fields.
(inhibit-field-text-motion t) (inhibit-field-text-motion t)
done key) done key)
;; Loop over sort records. ;; Loop over sort records.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment