From aec2bb6375a017e3cadc9c8030ef8f9dec4ce3b0 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 29 Nov 1999 23:03:09 +0000 Subject: [PATCH] (custom-save-variables, custom-save-faces): Write a comment warning about editing. --- lisp/ChangeLog | 5 +++++ lisp/cus-edit.el | 8 ++++++-- 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,3 +1,8 @@ +1999-11-29 Dave Love + + * cus-edit.el (custom-save-variables, custom-save-faces): Write a + comment warning about editing. + 1999-11-29 Dave Love * help.el (help-mode-hook): Define. 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)) -- 2.39.5