Mercurial > emacs

diff lisp/cus-edit.el @ 26653:ea8ae3c8fad5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-save-variables, custom-save-faces): Write a comment warning about editing.
author Dave Love <fx@gnu.org>
date Mon, 29 Nov 1999 22:59:44 +0000
parents faf989c7a28e
children f7c68655bd5d
line wrap: on
line diff
--- 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))