From: Kenichi Handa <handa@m17n.org>
Date: Thu, 16 Mar 2006 02:11:08 +0000 (+0000)
Subject: (sort-build-lists): Temporarily bind
X-Git-Tag: emacs-pretest-22.0.90~3583
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d40f00458e961d50d0268f8ff96af5e47f5967f;p=emacs.git

(sort-build-lists): Temporarily bind
inhibit-field-text-motion to t.
---

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