From: Mauro Aranda <maurooaranda@gmail.com>
Date: Tue, 24 Nov 2020 11:48:55 +0000 (-0300)
Subject: Fix menu binding for files in fileset
X-Git-Tag: emacs-28.0.90~5043
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c390141d39790bda2ac836a6ae03d5f02c58cdd4;p=emacs.git

Fix menu binding for files in fileset

* lisp/filesets.el (filesets-remake-shortcut): We want the callback of
the menu item, not a list that contains the callback.  (Bug#44764)
---

diff --git a/lisp/filesets.el b/lisp/filesets.el
index 84196561fcd..473f2858ddd 100644
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -1909,7 +1909,7 @@ User will be queried, if no fileset name is provided."
 		       (substring (elt submenu 0) 2))))
     (if (listp submenu)
 	(cons name (cdr submenu))
-      (apply 'vector (list name (cdr (append submenu nil)))))))
+      (apply 'vector (list name (cadr (append submenu nil)))))))
 ;      (vconcat `[,name] (subseq submenu 1)))))
 
 (defun filesets-wrap-submenu (submenu-body)