From 8d40f00458e961d50d0268f8ff96af5e47f5967f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 16 Mar 2006 02:11:08 +0000 Subject: (sort-build-lists): Temporarily bind inhibit-field-text-motion to t. --- lisp/sort.el | 1 + 1 file changed, 1 insertion(+) (limited to 'lisp/sort.el') 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 -- cgit v1.2.1