From: Karl Fogel <kfogel@red-bean.com>
Date: Thu, 19 Apr 2001 22:55:19 +0000 (+0000)
Subject: * saveplace.el (save-place-alist-to-file): Removed no-effect code
X-Git-Tag: emacs-pretest-21.0.103~161
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=939d70190345618e4f5300429be1b799106b2b27;p=emacs.git

* 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 --git a/lisp/saveplace.el b/lisp/saveplace.el
index 5ac3f344c62..f5f5111f17b 100644
--- a/lisp/saveplace.el
+++ b/lisp/saveplace.el
@@ -143,10 +143,6 @@ To save places automatically in all files, put this in your `.emacs' file:
       (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