# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1142475056 0
# Node ID 709ebd36d96dc0c3977190d091b53b42c97d585f
# Parent  c22f46390a8fa842476667bfd37fe9371b33ef09
(sort-build-lists): Temporarily bind
inhibit-field-text-motion to t.

diff -r c22f46390a8f -r 709ebd36d96d lisp/sort.el
--- a/lisp/sort.el	Thu Mar 16 01:43:59 2006 +0000
+++ b/lisp/sort.el	Thu Mar 16 02:10:56 2006 +0000
@@ -121,6 +121,7 @@
 (defun sort-build-lists (nextrecfun endrecfun startkeyfun endkeyfun)
   (let ((sort-lists ())
 	(start-rec nil)
+	(inhibit-field-text-motion t)
 	done key)
     ;; Loop over sort records.
     ;(goto-char (point-min)) -- it is the caller's responsibility to