Mercurial > emacs
changeset 86985:783469dd1f73
* lisp/saveplace.el (save-place-alist-to-file): Use `utf-8' coding system
when writing, and set it in the first-line file variables.
Based on a patch by David Reitter <dreitter{_AT_}inf.ed.ac.uk> and a
suggestion by Juanma Barranquero.
| author | Karl Fogel <kfogel@red-bean.com> |
|---|---|
| date | Sun, 02 Dec 2007 21:15:22 +0000 |
| parents | 8912b1520b33 |
| children | a66a6a9bd1aa |
| files | lisp/ChangeLog lisp/saveplace.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Dec 02 21:04:10 2007 +0000 +++ b/lisp/ChangeLog Sun Dec 02 21:15:22 2007 +0000 @@ -1,3 +1,10 @@ +2007-12-02 Karl Fogel <kfogel@red-bean.com> + + * saveplace.el (save-place-alist-to-file): Use `utf-8' coding + system when writing, and set it in the first-line file variables. + Based on a patch by David Reitter <dreitter{_AT_}inf.ed.ac.uk> + and a suggestion by Juanma Barranquero. + 2007-12-02 Glenn Morris <rgm@gnu.org> * emulation/viper-cmd.el (top-level): Don't require advice.
--- a/lisp/saveplace.el Sun Dec 02 21:04:10 2007 +0000 +++ b/lisp/saveplace.el Sun Dec 02 21:15:22 2007 +0000 @@ -217,6 +217,7 @@ (delete-region (point-min) (point-max)) (when save-place-forget-unreadable-files (save-place-forget-unreadable-files)) + (insert ";;; -*- coding: utf-8 -*-\n") (let ((print-length nil) (print-level nil)) (print save-place-alist (current-buffer))) @@ -229,7 +230,8 @@ t)))) (condition-case nil ;; Don't use write-file; we don't want this buffer to visit it. - (write-region (point-min) (point-max) file) + (let ((coding-system-for-write 'utf-8)) + (write-region (point-min) (point-max) file)) (file-error (message "Can't write %s" file))) (kill-buffer (current-buffer)) (unless save-place-quiet