diff options
| author | Kenichi Handa <handa@m17n.org> | 2006-03-16 02:11:08 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2006-03-16 02:11:08 +0000 |
| commit | 8d40f00458e961d50d0268f8ff96af5e47f5967f (patch) | |
| tree | 5327a314c16b75d1d5fb673cf9fe388d85519612 /lisp/sort.el | |
| parent | 18886d549ffc780c7b12166105f5cf00d0f24e8b (diff) | |
| download | emacs-8d40f00458e961d50d0268f8ff96af5e47f5967f.tar.gz | |
(sort-build-lists): Temporarily bind
inhibit-field-text-motion to t.
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 1 |
1 files changed, 1 insertions, 0 deletions
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 |