(custom-group-menu-create): Only cdr if possible

since custom-menu-create might return a single menu entry (a vector).

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 7f48db888babb0d53c2f7965e878e869ee4b92f3..ce9829578f4dc742db8e3a024c6d692bf7d08ce4 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3694,7 +3694,8 @@ or (if there were none) at the end of the buffer."
   "Ignoring WIDGET, create a menu entry for customization group SYMBOL."
   `( ,(custom-unlispify-menu-entry symbol t)
      :filter (lambda (&rest junk)
-              (cdr (custom-menu-create ',symbol)))))
+              (let ((menu (custom-menu-create ',symbol)))
+                (if (consp menu) (cdr menu) menu)))))
 
 ;;;###autoload
 (defun custom-menu-create (symbol)