* 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.

2 files changed, 10 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54d2762f451..8aae3ac681f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
diff --git a/lisp/saveplace.el b/lisp/saveplace.el
index f39a0776ca4..356963b8ba1 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -217,6 +217,7 @@ may have changed\) back to `save-place-alist'."
       (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 @@ may have changed\) back to `save-place-alist'."
                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