From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Kevin Rodgers Newsgroups: gmane.emacs.help Subject: Re: List possible completions in pop-up menu and choose from it. Date: Fri, 19 Aug 2005 11:57:21 -0600 Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=GB2312 Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1124475155 1366 80.91.229.2 (19 Aug 2005 18:12:35 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Fri, 19 Aug 2005 18:12:35 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Aug 19 20:12:35 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1E6BLK-0007c8-IP for geh-help-gnu-emacs@m.gmane.org; Fri, 19 Aug 2005 20:11:51 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1E6BOu-0006Vu-Lp for geh-help-gnu-emacs@m.gmane.org; Fri, 19 Aug 2005 14:15:32 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1E6BHz-0002JM-L0 for help-gnu-emacs@gnu.org; Fri, 19 Aug 2005 14:08:24 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1E6BHs-0002G7-6y for help-gnu-emacs@gnu.org; Fri, 19 Aug 2005 14:08:18 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1E6BHq-0002Dh-NB for help-gnu-emacs@gnu.org; Fri, 19 Aug 2005 14:08:14 -0400 Original-Received: from [80.91.229.2] (helo=ciao.gmane.org) by monty-python.gnu.org with esmtp (TLS-1.0:RSA_AES_128_CBC_SHA:16) (Exim 4.34) id 1E6BRI-0006Gg-I3 for help-gnu-emacs@gnu.org; Fri, 19 Aug 2005 14:18:00 -0400 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1E6B9J-0004TC-Ll for help-gnu-emacs@gnu.org; Fri, 19 Aug 2005 19:59:25 +0200 Original-Received: from 207.167.42.60 ([207.167.42.60]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 19 Aug 2005 19:59:25 +0200 Original-Received: from ihs_4664 by 207.167.42.60 with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 19 Aug 2005 19:59:25 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-To: help-gnu-emacs@gnu.org Original-Lines: 44 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: 207.167.42.60 User-Agent: Mozilla Thunderbird 0.9 (X11/20041105) X-Accept-Language: en-us, en In-Reply-To: X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:28868 X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:28868 Rolex JM wrote: > I want to list in pop-up menu the possible completions returned from > (dabbrev-completion). Then I can choose one from it and insert it into > the text, just as (semantic-ia-complete-symbol-menu) > does. dabbrev-completion stores its results in dabbrev--last-obarray, which is a data structure suitable for the completion functions. You can read about obarrays in the "Creating [and Interning] Symbols ==============================" node of the Emacs Lisp manual. Converting that to a menu keymap was too interesting for me to pass up: (let ((menu (make-sparse-keymap "dabbrev-completion")) (completions (let ((symbols '())) (mapatoms (lambda (sym) (setq symbols (cons sym symbols))) dabbrev--last-obarray) (sort symbols 'string-lessp)))) (mapc (lambda (completion) (define-key menu (vector completion) `(,(symbol-name completion) . (lambda () (interactive) (insert ,(symbol-name completion)))))) (nreverse completions)) (x-popup-menu t menu)) You can create your own command that you could bind to a key, mouse click, or menu item by wrapping that in something like: (defun dabbrev-mouse-completion (event) "*Just like `dabbrev-completion', but display a popup menu." (interactive "*e") (save-window-excursion ; suppress *Completions* buffer (dabbrev-mouse-completion)) ... ) And then replace the t POSITION argument to x-popup-menu with event. -- Kevin Rodgers