(custom-save-variables, custom-save-faces): Write a

comment warning about editing.

2 files changed, 11 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e28de1d3b37..0babf162220 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 1999-11-29  Dave Love  <fx@gnu.org>
 
+        * cus-edit.el (custom-save-variables, custom-save-faces): Write a
+        comment warning about editing.
+
+1999-11-29  Dave Love  <fx@gnu.org>
+
         * help.el (help-mode-hook): Define.
 
 1999-11-29  Gerd Moellmann  <gerd@gnu.org>
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 146122c31da..17505d8f689 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3395,7 +3395,9 @@ Leave point at the location of the call, or after the last expression."
       (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 @@ Leave point at the location of the call, or after the last expression."
           (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))