[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Romain Francoise]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.231 emacs/lisp/cus-edit.el:1.232
*** emacs/lisp/cus-edit.el:1.231        Tue Aug 30 10:35:09 2005
--- emacs/lisp/cus-edit.el      Sat Sep 24 13:44:02 2005
***************
*** 495,501 ****
         val)
       (setq val (completing-read
                (if (and (symbolp v) (custom-variable-p v))
!                   (format "Customize option: (default %s) " v)
                  "Customize option: ")
                obarray 'custom-variable-p t))
       (list (if (equal val "")
--- 495,501 ----
         val)
       (setq val (completing-read
                (if (and (symbolp v) (custom-variable-p v))
!                   (format "Customize option (default %s): " v)
                  "Customize option: ")
                obarray 'custom-variable-p t))
       (list (if (equal val "")
***************
*** 967,973 ****
  (defun customize-group (group)
    "Customize GROUP, which must be a customization group."
    (interactive (list (let ((completion-ignore-case t))
!                      (completing-read "Customize group: (default emacs) "
                                        obarray
                                        (lambda (symbol)
                                          (or (get symbol 'custom-loads)
--- 967,973 ----
  (defun customize-group (group)
    "Customize GROUP, which must be a customization group."
    (interactive (list (let ((completion-ignore-case t))
!                      (completing-read "Customize group (default emacs): "
                                        obarray
                                        (lambda (symbol)
                                          (or (get symbol 'custom-loads)
***************
*** 990,996 ****
  (defun customize-group-other-window (group)
    "Customize GROUP, which must be a customization group."
    (interactive (list (let ((completion-ignore-case t))
!                      (completing-read "Customize group: (default emacs) "
                                        obarray
                                        (lambda (symbol)
                                          (or (get symbol 'custom-loads)
--- 990,996 ----
  (defun customize-group-other-window (group)
    "Customize GROUP, which must be a customization group."
    (interactive (list (let ((completion-ignore-case t))
!                      (completing-read "Customize group (default emacs): "
                                        obarray
                                        (lambda (symbol)
                                          (or (get symbol 'custom-loads)