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

86984:8912b1520b33

        (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))
      (let ((print-length nil)
            (print-level nil))
        (print save-place-alist (current-buffer)))
      (let ((version-control
             (cond

              ((eq 'nospecial save-place-version-control) version-control)
              (t
               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)
	  (file-error (message "Can't write %s" file)))
        (kill-buffer (current-buffer))
        (unless save-place-quiet
          (message "Saving places to %s...done" file))))))

86985:783469dd1f73

        (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 ";;; -*- coding: utf-8 -*-\n")
      (let ((print-length nil)
            (print-level nil))
        (print save-place-alist (current-buffer)))
      (let ((version-control
             (cond

              ((eq 'nospecial save-place-version-control) version-control)
              (t
               t))))
	(condition-case nil
	    ;; Don't use write-file; we don't want this buffer to visit it.
            (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
          (message "Saving places to %s...done" file))))))