From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Robert Weiner Newsgroups: gmane.emacs.devel Subject: Re: Need a predicate to tell whether a command was invoked from the menu-bar Date: Tue, 28 Jun 2016 20:24:05 -0400 Message-ID: References: Reply-To: rswgnu@gmail.com NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 X-Trace: ger.gmane.org 1467159917 22729 80.91.229.3 (29 Jun 2016 00:25:17 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 29 Jun 2016 00:25:17 +0000 (UTC) Cc: emacs-devel Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Jun 29 02:25:17 2016 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1bI3Jc-00072l-Jh for ged-emacs-devel@m.gmane.org; Wed, 29 Jun 2016 02:25:16 +0200 Original-Received: from localhost ([::1]:40449 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bI3Jb-00059G-Sb for ged-emacs-devel@m.gmane.org; Tue, 28 Jun 2016 20:25:15 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:51631) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bI3J5-000597-FY for emacs-devel@gnu.org; Tue, 28 Jun 2016 20:24:44 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1bI3J0-00007P-GZ for emacs-devel@gnu.org; Tue, 28 Jun 2016 20:24:43 -0400 Original-Received: from fencepost.gnu.org ([2001:4830:134:3::e]:38994) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1bI3J0-00007H-DA for emacs-devel@gnu.org; Tue, 28 Jun 2016 20:24:38 -0400 Original-Received: from mail-ob0-f175.google.com ([209.85.214.175]:36605) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_128_CBC_SHA1:128) (Exim 4.82) (envelope-from ) id 1bI3Iy-0004e1-UG for emacs-devel@gnu.org; Tue, 28 Jun 2016 20:24:37 -0400 Original-Received: by mail-ob0-f175.google.com with SMTP id mu6so3898296obc.3 for ; Tue, 28 Jun 2016 17:24:36 -0700 (PDT) X-Gm-Message-State: ALyK8tKvbfMgCASxF9tVrhB/ZPyrhizHwFeM/FXUfRZIni6kfCiutDu8239QfRvrDB9U1iRZUN3tqdTfJUHqLA== X-Received: by 10.157.14.174 with SMTP id 43mr3591944otj.83.1467159875235; Tue, 28 Jun 2016 17:24:35 -0700 (PDT) Original-Received: by 10.202.212.143 with HTTP; Tue, 28 Jun 2016 17:24:05 -0700 (PDT) In-Reply-To: X-Gmail-Original-Message-ID: X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 2001:4830:134:3::e X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:204907 Archived-At: On Tue, Jun 28, 2016 at 5:18 PM, Drew Adams wrote: > (and (> (length (this-command-keys-vector)) 0) > (equal '(menu-bar) (elt (this-command-keys-vector) 0)) Thanks, Drew. I will try it out. Bob