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 | |
| parent | e33b0397a28e960f38fc7ecb19494ff6cc1e3390 (diff) | |
| download | emacs-aec2bb6375a017e3cadc9c8030ef8f9dec4ce3b0.tar.gz emacs-aec2bb6375a017e3cadc9c8030ef8f9dec4ce3b0.tar.bz2 emacs-aec2bb6375a017e3cadc9c8030ef8f9dec4ce3b0.zip | |
(custom-save-variables, custom-save-faces): Write a
comment warning about editing.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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,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)) |