[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/saveplace.el,v
From: |
Karl Fogel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/saveplace.el,v |
Date: |
Sun, 02 Dec 2007 21:15:24 +0000 |
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