Avoid "unknown slot" compilation warning in eieio-custom

* lisp/emacs-lisp/eieio-custom.el
(eieio-read-customization-group): Slot `name' may not exist in all
classes, so protect against that (and avoid a compilation warning
about it).

diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el
index e018883b4427f890cd71d68b521758cae7d4c84a..c9a8129a45edb212457adeb6a2ecdde68c823a2c 100644 (file)
--- 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)