]> code.delx.au - gnu-emacs/blobdiff - lisp/cus-edit.el
* lisp/cus-edit.el (custom-save-variables, custom-save-faces): Fix up
[gnu-emacs] / lisp / cus-edit.el
index bb2f67422e32d10e9ddfa9511e6067ec1e3dd5e4..9fa817bd10247247ac4fceebf3ce0adddb7aadad 100644 (file)
@@ -4404,10 +4404,10 @@ This function does not save the buffer."
       (unless (bolp)
        (princ "\n"))
       (princ "(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.\n")
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.\n")
       (dolist (symbol saved-list)
        (let ((spec (car-safe (get symbol 'theme-value)))
              (value (get symbol 'saved-value))
@@ -4480,10 +4480,10 @@ This function does not save the buffer."
       (unless (bolp)
        (princ "\n"))
       (princ "(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.\n")
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.\n")
       (dolist (symbol saved-list)
        (let ((spec (car-safe (get symbol 'theme-face)))
              (value (get symbol 'saved-face))