From: Klaus Zeitler <kzeitler+usenet@gsm-mailhost.de.lucent.com>
Subject: Re: Emacs LISP Question
Date: 22 Aug 2003 13:17:52 +0200 [thread overview]
Message-ID: <q5gk7960wm7.fsf@lucent.com> (raw)
In-Reply-To: mailman.669.1061546874.29551.help-gnu-emacs@gnu.org
>>>>> "Yakov" == Yakov Nekritch <yasha@theory.cs.uni-bonn.de> writes:
Yakov>
Yakov> How can I implement a mouse pop-up menu, for a menu defined with
Yakov> easy-menu-define?
Yakov>
Yakov> (defun mouse-popup-cscopemenu ( )
Yakov> "Popup a cscope menu."
Yakov> (popup-menu cscope:menu ) )
Yakov>
Yakov> (define-key c-mode-base-map [S-down-mouse-3] 'mouse-popup-cscopemenu)
close, but I think the parameter is missing. Here's what I use:
(defun cscope-popup-menu-prompt (event)
"Handle `mouse' events for cscope. EVENT is the mouse event."
(interactive "e")
(popup-menu cscope:menu event))
(defun cscope-popup-menu-no-prompt (event)
"Handle `mouse' events for cscope. EVENT is the mouse event."
(interactive "e")
(let ((cscope-no-mouse-prompts t))
(popup-menu cscope:menu event)))
(define-key c-mode-map [H-mouse-1] 'cscope-popup-menu-prompt)
(define-key c-mode-map [S-H-mouse-1] 'cscope-popup-menu-no-prompt)
(define-key c++-mode-map [H-mouse-1] 'cscope-popup-menu-prompt)
(define-key c++-mode-map [S-H-mouse-1] 'cscope-popup-menu-no-prompt)))
Cheers
Klaus
--
------------------------------------------
| Klaus Zeitler Lucent Technologies |
------------------------------------------
---
The trouble with doing something right the first time
is that nobody appreciates how difficult it was.
next parent reply other threads:[~2003-08-22 11:17 UTC|newest]
Thread overview: 24+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <mailman.669.1061546874.29551.help-gnu-emacs@gnu.org>
2003-08-22 11:17 ` Klaus Zeitler [this message]
[not found] <mailman.616.1460989677.7477.help-gnu-emacs@gnu.org>
2016-04-18 16:05 ` Emacs lisp question Barry Margolin
2016-04-18 14:27 Matthias Pfeifer
2016-04-18 19:50 ` tomas
2016-04-19 10:39 ` Matthias Pfeifer
2016-04-19 11:59 ` Alexis
2016-04-22 9:05 ` Matthias Pfeifer
[not found] <mailman.2559.1372339138.22516.help-gnu-emacs@gnu.org>
2013-06-27 15:33 ` Emacs Lisp Question Barry Margolin
-- strict thread matches above, loose matches on Subject: below --
2013-06-27 13:11 drain
2013-06-27 13:25 ` Thorsten Jolitz
2011-02-06 23:19 Emacs lisp question Ben
2011-02-07 1:38 ` Barry Margolin
2011-02-06 23:04 Ben Key
2011-02-07 0:49 ` Perry Smith
2011-02-07 1:05 ` Drew Adams
2011-02-07 1:30 ` Ben Key
2009-06-27 13:08 Emacs & Lisp question Ben Badgley
[not found] <mailman.1371.1246077688.2239.help-gnu-emacs@gnu.org>
2009-06-27 5:52 ` Tim X
2009-06-27 10:19 ` Richard Riley
2009-06-26 23:05 Ben Badgley
2009-06-27 17:40 ` Johan Bockgård
[not found] <mailman.303.1073667340.928.help-gnu-emacs@gnu.org>
2004-01-09 16:48 ` Emacs " Paolo Gianrossi
2004-01-09 15:55 Gian Uberto Lauri
2003-08-20 16:04 Emacs LISP Question Yakov Nekritch
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=q5gk7960wm7.fsf@lucent.com \
--to=kzeitler+usenet@gsm-mailhost.de.lucent.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.