/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.231 by rms, Tue Aug 30 10:35:09 2005 UTC revision 1.232 by rfrancoise, Sat Sep 24 13:44:02 2005 UTC
# Line 495  Return a list suitable for use in `inter Line 495  Return a list suitable for use in `inter
495           val)           val)
496       (setq val (completing-read       (setq val (completing-read
497                  (if (and (symbolp v) (custom-variable-p v))                  (if (and (symbolp v) (custom-variable-p v))
498                      (format "Customize option: (default %s) " v)                      (format "Customize option (default %s): " v)
499                    "Customize option: ")                    "Customize option: ")
500                  obarray 'custom-variable-p t))                  obarray 'custom-variable-p t))
501       (list (if (equal val "")       (list (if (equal val "")
# Line 967  then prompt for the MODE to customize." Line 967  then prompt for the MODE to customize."
967  (defun customize-group (group)  (defun customize-group (group)
968    "Customize GROUP, which must be a customization group."    "Customize GROUP, which must be a customization group."
969    (interactive (list (let ((completion-ignore-case t))    (interactive (list (let ((completion-ignore-case t))
970                         (completing-read "Customize group: (default emacs) "                         (completing-read "Customize group (default emacs): "
971                                          obarray                                          obarray
972                                          (lambda (symbol)                                          (lambda (symbol)
973                                            (or (get symbol 'custom-loads)                                            (or (get symbol 'custom-loads)
# Line 990  then prompt for the MODE to customize." Line 990  then prompt for the MODE to customize."
990  (defun customize-group-other-window (group)  (defun customize-group-other-window (group)
991    "Customize GROUP, which must be a customization group."    "Customize GROUP, which must be a customization group."
992    (interactive (list (let ((completion-ignore-case t))    (interactive (list (let ((completion-ignore-case t))
993                         (completing-read "Customize group: (default emacs) "                         (completing-read "Customize group (default emacs): "
994                                          obarray                                          obarray
995                                          (lambda (symbol)                                          (lambda (symbol)
996                                            (or (get symbol 'custom-loads)                                            (or (get symbol 'custom-loads)

Legend:
Removed from v.1.231  
changed lines
  Added in v.1.232

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26