From 0c2b747d26fd8d2ee0398db3c1c415caf70f4bbe Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 16 Jun 2019 15:53:03 +0200 Subject: [PATCH] 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). --- lisp/emacs-lisp/eieio-custom.el | 9 +++++++-- 1 file 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) -- 2.39.2