diff --git a/lisp/sort.el b/lisp/sort.el
index f6ce9a6c7b0..c3d135f4c66 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -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.