(sort-build-lists): Temporarily bind

inhibit-field-text-motion to t.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d9408ea25f17b6845bd40e609a83279fb5742121..22a20d99412f032fd1bebaf3c1299aab5a64247e 100644 (file)
--- 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 5183bf65afa5809bf0916c555b80131637c84b9b..f6ce9a6c7b0d1bec7ec9e237b318cf0b57098e0d 100644 (file)
--- 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