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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54d2762f4516003d49b866e439ae44a85b42d746..8aae3ac681f8666dd862eb39471415ef528ed911 100644 (file)
--- 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 f39a0776ca4d131d1942d489302f8c24b6d6a0a0..356963b8ba153316d1e97c55cb3e85c32d06eacf 100644 (file)
--- 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