Add "Package:" file headers to denote built-in packages.

[gnu-emacs] / lisp / cus-edit.el

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index bb2f67422e32d10e9ddfa9511e6067ec1e3dd5e4..a333be289edac31110032864f2d41371f74323ff 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -6,6 +6,7 @@
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; Maintainer: FSF
 ;; Keywords: help, faces
+;; Package: emacs
 
 ;; This file is part of GNU Emacs.
 
@@ -4097,8 +4098,8 @@ If GROUPS-ONLY non-nil, return only those members that are groups."
             (custom-group-state-update widget)
             (progress-reporter-done reporter))
           ;; End line
-          (let ((p (point)))
-            (insert "\n")
+          (let ((p (1+ (point))))
+            (insert "\n\n")
             (put-text-property p (1+ p) 'face '(:underline t))
             (overlay-put (make-overlay p (1+ p))
                          'before-string
@@ -4404,10 +4405,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 +4481,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))