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

[Karl Fogel]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Karl Fogel <kfogel>     07/12/04 06:11:29

Index: saveplace.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/saveplace.el,v
retrieving revision 1.37.2.1
retrieving revision 1.37.2.2
diff -u -b -r1.37.2.1 -r1.37.2.2
--- saveplace.el        25 Jul 2007 04:47:04 -0000      1.37.2.1
+++ saveplace.el        4 Dec 2007 06:11:29 -0000       1.37.2.2
@@ -205,13 +205,16 @@
       (setq save-place-alist (cdr save-place-alist)))))
 
 (defun save-place-alist-to-file ()
-  (let ((file (expand-file-name save-place-file)))
+  (let ((file (expand-file-name save-place-file))
+        (coding-system-for-write 'emacs-mule))
     (save-excursion
       (message "Saving places to %s..." file)
       (set-buffer (get-buffer-create " *Saved Places*"))
       (delete-region (point-min) (point-max))
       (when save-place-forget-unreadable-files
        (save-place-forget-unreadable-files))
+      (insert (format ";;; -*- coding: %s -*-\n"
+                      (symbol-name coding-system-for-write)))
       (let ((print-length nil)
             (print-level nil))
         (print save-place-alist (current-buffer)))