(sort-build-lists): Temporarily bind

inhibit-field-text-motion to t.

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d9408ea25f1..22a20d99412 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-16  Kenichi Handa  <handa@m17n.org>
+
+        * sort.el (sort-build-lists): Temporarily bind
+        inhibit-field-text-motion to t.
+
 2006-03-15  Luc Teirlinck  <teirllm@auburn.edu>
 
         * locate.el (locate-command, locate-make-command-line)
diff --git a/lisp/sort.el b/lisp/sort.el
index 5183bf65afa..f6ce9a6c7b0 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -121,6 +121,7 @@ it defaults to `<', otherwise it defaults to `string<'."
 (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