diff options
| author | Dave Love <fx@gnu.org> | 1999-11-29 23:03:09 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1999-11-29 23:03:09 +0000 |
| commit | aec2bb6375a017e3cadc9c8030ef8f9dec4ce3b0 (patch) | |
| tree | 7ebcbbe78da2847b2d60265da153ed15378b5327 /lisp/cus-edit.el | |
| parent | e33b0397a28e960f38fc7ecb19494ff6cc1e3390 (diff) | |
| download | emacs-aec2bb6375a017e3cadc9c8030ef8f9dec4ce3b0.tar.gz | |
(custom-save-variables, custom-save-faces): Write a
comment warning about editing.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 8 |
1 files changed, 6 insertions, 2 deletions
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)) |