From 8d40f00458e961d50d0268f8ff96af5e47f5967f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 16 Mar 2006 02:11:08 +0000 Subject: [PATCH] (sort-build-lists): Temporarily bind inhibit-field-text-motion to t. --- lisp/ChangeLog | 5 +++++ lisp/sort.el | 1 + 2 files changed, 6 insertions(+) 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 + + * sort.el (sort-build-lists): Temporarily bind + inhibit-field-text-motion to t. + 2006-03-15 Luc Teirlinck * 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 -- 2.39.2