From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: John Anthony Newsgroups: gmane.emacs.bugs Subject: bug#15599: [PATCH] Inferior Lisp Mode Menu Date: Sat, 12 Oct 2013 18:21:00 +0100 Message-ID: <20131012172100.GA738@jo.hnanthony.com> References: <20131012170846.GA688@jo.hnanthony.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="G4iJoqBmSsgzjUCe" X-Trace: ger.gmane.org 1381598960 4889 80.91.229.3 (12 Oct 2013 17:29:20 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 12 Oct 2013 17:29:20 +0000 (UTC) To: 15599@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Oct 12 19:29:23 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@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 1VV30E-0003Rq-Lx for geb-bug-gnu-emacs@m.gmane.org; Sat, 12 Oct 2013 19:29:22 +0200 Original-Received: from localhost ([::1]:58925 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV30E-00084c-AW for geb-bug-gnu-emacs@m.gmane.org; Sat, 12 Oct 2013 13:29:22 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:59402) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV302-00084F-TA for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:29:19 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VV2zu-0003cb-HD for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:29:10 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:36291) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV2zu-0003cR-DK for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:29:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1VV2zt-0006Xo-PB for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:29:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: John Anthony Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Sat, 12 Oct 2013 17:29:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 15599 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.138159892725135 (code B ref -1); Sat, 12 Oct 2013 17:29:01 +0000 Original-Received: (at submit) by debbugs.gnu.org; 12 Oct 2013 17:28:47 +0000 Original-Received: from localhost ([127.0.0.1]:44584 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VV2ze-0006XK-WE for submit@debbugs.gnu.org; Sat, 12 Oct 2013 13:28:47 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:57558) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VV2zc-0006XC-KS for submit@debbugs.gnu.org; Sat, 12 Oct 2013 13:28:45 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VV2zT-0003Tu-VF for submit@debbugs.gnu.org; Sat, 12 Oct 2013 13:28:44 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:53558) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV2zT-0003To-Rg for submit@debbugs.gnu.org; Sat, 12 Oct 2013 13:28:35 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:59241) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV2zN-0007zr-Pt for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:28:35 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VV2zE-0003Rk-GQ for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:28:29 -0400 Original-Received: from [198.46.132.138] (port=34686 helo=jo.hnanthony.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV2zE-0003Rg-C5 for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:28:20 -0400 Original-Received: from jo.hnanthony.com (localhost.localdomain [127.0.0.1]) by jo.hnanthony.com (8.14.3/8.14.3/Debian-9.4) with ESMTP id r9CHL0M8000776 for ; Sat, 12 Oct 2013 18:21:01 +0100 Original-Received: (from john@localhost) by jo.hnanthony.com (8.14.3/8.14.3/Submit) id r9CHL0Bn000775 for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 18:21:00 +0100 Content-Disposition: inline In-Reply-To: <20131012170846.GA688@jo.hnanthony.com> User-Agent: Mutt/1.5.20 (2009-06-14) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:79214 Archived-At: --G4iJoqBmSsgzjUCe Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Oh, I'm terribly sorry. I used a quasiquote when a quote would have done. This is probably the worst thing that has ever happened and I am suitably embarrassed. -- John Anthony --G4iJoqBmSsgzjUCe Content-Type: text/x-diff; charset=us-ascii Content-Disposition: attachment; filename="inf-lisp-mode-menu2.patch" diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el index d73e948..eda7fda 100644 --- a/lisp/progmodes/inf-lisp.el +++ b/lisp/progmodes/inf-lisp.el @@ -91,6 +91,19 @@ mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword (define-key map "\C-c\C-v" 'lisp-show-variable-documentation) map)) +(easy-menu-define + inferior-lisp-menu + inferior-lisp-mode-map + "Inferior Lisp Menu" + '("Inf-Lisp" + ["Eval Last Sexp" lisp-eval-last-sexp t] + ["Load File" lisp-load-file t] + ["Compile File" lisp-compile-file t] + ["Show Arglist" lisp-show-arglist t] + ["Describe Sym" lisp-describe-sym t] + ["Show Fucntion Doc" lisp-show-function-documentation t] + ["Show Variable Doc" lisp-show-variable-documentation t])) + ;;; These commands augment Lisp mode, so you can process Lisp code in ;;; the source files. (define-key lisp-mode-map "\M-\C-x" 'lisp-eval-defun) ; Gnu convention --G4iJoqBmSsgzjUCe--