mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(customize-group, customize-group-other-window):

Browse Source 
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').
This commit is contained in:
Juri Linkov 2005-12-04 02:39:24 +00:00
parent 0f01161d53
commit 544d874f7f
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/cus-edit.el
View File

@ -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)