diff lisp/saveplace.el @ 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.

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