(custom-save-all): Bind file-precious-flag to t for saving .emacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9af455ffa2640b21cad23423e28660a12bf5b69b..d72c30116f78f1380b818a5f14c785827387948e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2002-01-24  Richard M. Stallman  <rms@gnu.org>
 
+       * cus-edit.el (custom-save-all): Bind file-precious-flag to t
+       for saving .emacs.
+
+       * files.el (basic-save-buffer-2): Ignore file-error in delete-file.
+
        * calendar/calendar.el (generate-calendar-month): Doc fix.
 
 2002-01-23  Richard M. Stallman  <rms@gnu.org>

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 1d411f75bdf8af6fea32fa5d01abb79c6e8bbbc4..3b1fcecd4b51d2c343d60878cb6b251469b7ce25 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3742,7 +3742,8 @@ or (if there were none) at the end of the buffer."
     (save-excursion
       (let ((default-major-mode nil))
        (set-buffer (find-file-noselect (custom-file))))
-      (save-buffer))))
+      (let ((file-precious-flag t))
+       (save-buffer)))))
 
 ;;; The Customize Menu.