# HG changeset patch
# User Karl Fogel <kfogel@red-bean.com>
# Date 987720919 0
# Node ID 33067598c22c9d9755cb07449ed7d99596c262a7
# Parent  c8fb52b4feff24a183abbf9cbd4e61d51b5add44
* saveplace.el (save-place-alist-to-file): Removed no-effect code
that inserted file content only to delete it immediately.
Probably a cut-and-paste bug.  Thanks to Juanma Barranquero
<lektu@uol.com.br> for the patch.

diff -r c8fb52b4feff -r 33067598c22c lisp/saveplace.el
--- a/lisp/saveplace.el	Thu Apr 19 22:45:04 2001 +0000
+++ b/lisp/saveplace.el	Thu Apr 19 22:55:19 2001 +0000
@@ -143,10 +143,6 @@
       (message "Saving places to %s..." file)
       (set-buffer (get-buffer-create " *Saved Places*"))
       (delete-region (point-min) (point-max))
-      (if (file-readable-p file)
-          (insert-file-contents file))
-      (delete-region (point-min) (point-max))
-      (goto-char (point-min))
       (print save-place-alist (current-buffer))
       (let ((version-control
              (cond