diff options
| author | Kenichi Handa <handa@m17n.org> | 2006-03-16 02:10:56 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2006-03-16 02:10:56 +0000 |
| commit | 38deda0b8dca9586c9837930354194506bd2514a (patch) | |
| tree | 3943d282dce144b8252e5ea0fdb51ea2b80729e0 /lisp/sort.el | |
| parent | c3dd69de16c4d999251c885b5cfe61f352ceeda4 (diff) | |
| download | emacs-38deda0b8dca9586c9837930354194506bd2514a.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 |