diff options
| author | Stefan Monnier | 2008-03-20 15:41:44 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2008-03-20 15:41:44 +0000 |
| commit | 1fa85ea8cf6cf49f8159c124a93d09fd7334bb12 (patch) | |
| tree | 0e2ea2a78a3146fa4c2825ca60dcc48e379441ea /lisp/sort.el | |
| parent | cdd44874a760682a5f5bf52928c5c7b1135e151b (diff) | |
| download | emacs-1fa85ea8cf6cf49f8159c124a93d09fd7334bb12.tar.gz emacs-1fa85ea8cf6cf49f8159c124a93d09fd7334bb12.zip | |
(sort-reorder-buffer): Preserve the buffer's multibyteness.
Diffstat (limited to 'lisp/sort.el')
| -rw-r--r-- | lisp/sort.el | 2 |
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<'." | |||
| 157 | (let ((last (point-min)) | 157 | (let ((last (point-min)) |
| 158 | (min (point-min)) (max (point-max)) | 158 | (min (point-min)) (max (point-max)) |
| 159 | (old-buffer (current-buffer)) | 159 | (old-buffer (current-buffer)) |
| 160 | (mb enable-multibyte-characters) | ||
| 160 | temp-buffer) | 161 | temp-buffer) |
| 161 | (with-temp-buffer | 162 | (with-temp-buffer |
| 163 | (set-buffer-multibyte mb) | ||
| 162 | ;; Record the temporary buffer. | 164 | ;; Record the temporary buffer. |
| 163 | (setq temp-buffer (current-buffer)) | 165 | (setq temp-buffer (current-buffer)) |
| 164 | 166 | ||