# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 943916384 0
# Node ID ea8ae3c8fad57070dcbccfb25f2886f71366fca1
# Parent  a556296b4c8a9069bbcde4299b5c26a2fbcfe9f0
(custom-save-variables, custom-save-faces): Write a
comment warning about editing.

diff -r a556296b4c8a -r ea8ae3c8fad5 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Mon Nov 29 22:37:33 1999 +0000
+++ b/lisp/cus-edit.el	Mon Nov 29 22:59:44 1999 +0000
@@ -3395,7 +3395,9 @@
       (setq saved-list (sort (cdr saved-list) 'string<))
       (unless (bolp)
 	(princ "\n"))
-      (princ "(custom-set-variables")
+      (princ "(custom-set-variables
+  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
+  ;; Your init file must only contain one such instance.")
       (mapcar
        (lambda (symbol)
 	 (let ((value (get symbol 'saved-value))
@@ -3453,7 +3455,9 @@
 	  (setq saved-list (cons 'default (delq 'default saved-list))))
       (unless (bolp)
 	(princ "\n"))
-      (princ "(custom-set-faces")
+      (princ "(custom-set-faces
+  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
+  ;; Your init file must only contain one such instance.")
       (mapcar
        (lambda (symbol)
 	 (let ((value (get symbol 'saved-face))