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

[Juri Linkov]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.242 emacs/lisp/cus-edit.el:1.243
*** emacs/lisp/cus-edit.el:1.242        Tue Nov 22 23:28:28 2005
--- emacs/lisp/cus-edit.el      Sun Dec  4 02:39:24 2005
***************
*** 975,987 ****
  ;;;###autoload
  (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)
!                                             (get symbol 'custom-group)))
!                                       t))))
    (when (stringp group)
      (if (string-equal "" group)
        (setq group 'emacs)
--- 975,989 ----
  ;;;###autoload
  (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 (and (get symbol 'custom-loads)
!                                      (not (get symbol 'custom-autoload)))
!                                 (get symbol 'custom-group)))
!                           t))))
    (when (stringp group)
      (if (string-equal "" group)
        (setq group 'emacs)
***************
*** 998,1010 ****
  ;;;###autoload
  (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)
!                                             (get symbol 'custom-group)))
!                                       t))))
    (when (stringp group)
      (if (string-equal "" group)
        (setq group 'emacs)
--- 1000,1014 ----
  ;;;###autoload
  (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 (and (get symbol 'custom-loads)
!                                      (not (get symbol 'custom-autoload)))
!                                 (get symbol 'custom-group)))
!                           t))))
    (when (stringp group)
      (if (string-equal "" group)
        (setq group 'emacs)