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

comment warning about editing.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e28de1d3b37528de2d03df43d807a5b53680dec2..0babf162220d5afaba06c96ed448154e2a9963de 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 146122c31da405609843b4ae33fe56ca99bdc157..17505d8f689674a618869afce1b7635d25fcf8d2 100644 (file)
--- 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))