From 544d874f7f4f7bf0e3f931a198c69bdb9befa7ad Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 4 Dec 2005 02:39:24 +0000 Subject: [PATCH] (customize-group, customize-group-other-window): Filter out autoloaded options from the group completion list by using heuristics that autoloaded groups don't have `custom-autoload' property on their symbols (they have only `custom-loads'). --- lisp/cus-edit.el | 32 ++++++++++++++++++-------------- 1 file changed, 18 insertions(+), 14 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index b84568b7060..d4ea953bc09 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -975,13 +975,15 @@ then prompt for the MODE to customize." ;;;###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)))) + (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,13 +1000,15 @@ then prompt for the MODE to customize." ;;;###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)))) + (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) -- 2.39.5