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:08:46 +0100 Message-ID: <20131012170846.GA688@jo.hnanthony.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="cNdxnHkX5QqsyA0e" X-Trace: ger.gmane.org 1381598242 29682 80.91.229.3 (12 Oct 2013 17:17:22 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 12 Oct 2013 17:17:22 +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:17:25 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 1VV2oc-0004tn-Uw for geb-bug-gnu-emacs@m.gmane.org; Sat, 12 Oct 2013 19:17:23 +0200 Original-Received: from localhost ([::1]:58903 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV2oc-0006ND-9D for geb-bug-gnu-emacs@m.gmane.org; Sat, 12 Oct 2013 13:17:22 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57566) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV2oR-0006Mv-4N for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:17:19 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VV2oI-0000Zx-Gw for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:17:11 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:36285) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV2oI-0000Zs-Dh for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:17:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1VV2oI-0006GR-58 for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:17: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:17:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 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.138159819524038 (code B ref -1); Sat, 12 Oct 2013 17:17:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 12 Oct 2013 17:16:35 +0000 Original-Received: from localhost ([127.0.0.1]:44578 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VV2nq-0006Fd-Q0 for submit@debbugs.gnu.org; Sat, 12 Oct 2013 13:16:35 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:55789) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1VV2no-0006FT-Ue for submit@debbugs.gnu.org; Sat, 12 Oct 2013 13:16:33 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VV2ng-0000WG-H5 for submit@debbugs.gnu.org; Sat, 12 Oct 2013 13:16:32 -0400 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:32930) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV2ng-0000WC-EC for submit@debbugs.gnu.org; Sat, 12 Oct 2013 13:16:24 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57504) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV2na-0006Ki-DC for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:16:24 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VV2nU-0000UV-9c for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:16:18 -0400 Original-Received: from [198.46.132.138] (port=60058 helo=jo.hnanthony.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VV2nU-0000Ts-53 for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 13:16:12 -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 r9CH8kq0000710 for ; Sat, 12 Oct 2013 18:08:46 +0100 Original-Received: (from john@localhost) by jo.hnanthony.com (8.14.3/8.14.3/Submit) id r9CH8kRG000709 for bug-gnu-emacs@gnu.org; Sat, 12 Oct 2013 18:08:46 +0100 Content-Disposition: inline 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:79213 Archived-At: --cNdxnHkX5QqsyA0e Content-Type: text/plain; charset=us-ascii Content-Disposition: inline I have put together a menu for inferior-lisp mode, which is one of the two listed in etc/TODO (line 66, I already supplied a patch for text-mode). Please do let me know if there's anything I could have done better as I'm planning to make sure all major modes have appropriate menus. -- John Anthony --cNdxnHkX5QqsyA0e Content-Type: text/x-diff; charset=us-ascii Content-Disposition: attachment; filename="inf-lisp-mode-menu.patch" diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el index d73e948..4cda3fe 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 --cNdxnHkX5QqsyA0e--