diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/eieio-custom.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el index e018883b442..c9a8129a45e 100644 --- a/lisp/emacs-lisp/eieio-custom.el +++ b/lisp/emacs-lisp/eieio-custom.el @@ -466,8 +466,13 @@ Return the symbol for the group, or nil" ;; Make the association list (setq g (mapcar (lambda (g) (cons (symbol-name g) g)) g)) (cdr (assoc - (completing-read (concat (oref obj name) " Custom Group: ") - g nil t nil 'eieio-read-custom-group-history) + (completing-read + (concat + (if (slot-exists-p obj 'name) + (concat (slot-value obj (intern "name" obarray)) "") + "") + "Custom Group: ") + g nil t nil 'eieio-read-custom-group-history) g))))) (provide 'eieio-custom) |