Commit aec2bb63 authored by Dave Love's avatar Dave Love
Browse files

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

comment warning about editing.
parent e33b0397
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.
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment