mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
comment warning about editing.
This commit is contained in:
Dave Love 1999-11-29 23:03:09 +00:00
parent e33b0397a2
commit aec2bb6375
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/cus-edit.el
View file

@ -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))