# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1162739869 0
# Node ID 2bd04d2f629ac88532d71c8494a3fd9a8c68c9b1
# Parent  1c9765fecfa40b8fc795b597d1a649dcfb2edbd2
(custom-save-all): Error if saving in .emacs and it had an error when loaded.

diff -r 1c9765fecfa4 -r 2bd04d2f629a lisp/cus-edit.el
--- a/lisp/cus-edit.el	Sun Nov 05 15:00:31 2006 +0000
+++ b/lisp/cus-edit.el	Sun Nov 05 15:17:49 2006 +0000
@@ -4149,6 +4149,8 @@
 ;;;###autoload
 (defun custom-save-all ()
   "Save all customizations in `custom-file'."
+  (when (and (null custom-file) init-file-had-error)
+    (error "Cannot save customizations; init file was not fully loaded"))
   (let* ((filename (custom-file))
 	 (recentf-exclude (if recentf-mode
 			      (cons (concat "\\`"