[Emacs-diffs] Changes to emacs/lisp/saveplace.el,v

[Karl Fogel]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Karl Fogel <kfogel>     07/12/02 21:15:23

Index: saveplace.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/saveplace.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
--- saveplace.el        2 Dec 2007 19:54:45 -0000       1.39
+++ saveplace.el        2 Dec 2007 21:15:22 -0000       1.40
@@ -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