summaryrefslogtreecommitdiff
path: root/lisp/sort.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2008-03-20 15:41:44 +0000
committerStefan Monnier <monnier@iro.umontreal.ca>2008-03-20 15:41:44 +0000
commit1fa85ea8cf6cf49f8159c124a93d09fd7334bb12 (patch)
tree0e2ea2a78a3146fa4c2825ca60dcc48e379441ea /lisp/sort.el
parentcdd44874a760682a5f5bf52928c5c7b1135e151b (diff)
downloademacs-1fa85ea8cf6cf49f8159c124a93d09fd7334bb12.tar.gz
emacs-1fa85ea8cf6cf49f8159c124a93d09fd7334bb12.tar.bz2
emacs-1fa85ea8cf6cf49f8159c124a93d09fd7334bb12.zip
(sort-reorder-buffer): Preserve the buffer's multibyteness.
Diffstat (limited to 'lisp/sort.el')
-rw-r--r--lisp/sort.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/sort.el b/lisp/sort.el
index c82657d56d3..2fb6ec54508 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -157,8 +157,10 @@ it defaults to `<', otherwise it defaults to `string<'."
(let ((last (point-min))
(min (point-min)) (max (point-max))
(old-buffer (current-buffer))
+ (mb enable-multibyte-characters)
temp-buffer)
(with-temp-buffer
+ (set-buffer-multibyte mb)
;; Record the temporary buffer.
(setq temp-buffer (current-buffer))