emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/inf-clojure 2627825 025/313: Move inf-clojure-mode menu de


From: ELPA Syncer
Subject: [nongnu] elpa/inf-clojure 2627825 025/313: Move inf-clojure-mode menu definition
Date: Wed, 11 Aug 2021 09:59:39 -0400 (EDT)

branch: elpa/inf-clojure
commit 26278254c9b550aae982716ba37371583d2bb4af
Author: Bozhidar Batsov <bozhidar@tradeo.com>
Commit: Bozhidar Batsov <bozhidar@tradeo.com>

    Move inf-clojure-mode menu definition
---
 inf-clojure.el | 23 ++++++++++-------------
 1 file changed, 10 insertions(+), 13 deletions(-)

diff --git a/inf-clojure.el b/inf-clojure.el
index f732705..9023146 100644
--- a/inf-clojure.el
+++ b/inf-clojure.el
@@ -68,21 +68,18 @@ mode.  Default is whitespace followed by 0 or 1 
single-letter colon-keyword
     (define-key map "\C-c\C-a" 'inf-clojure-show-arglist)
     (define-key map "\C-c\C-v" 'inf-clojure-show-var-documentation)
     (define-key map "\C-c\C-s" 'inf-clojure-show-var-source)
+    (easy-menu-define inf-clojure-menu map
+      "Inferior Clojure Menu"
+      '("Inf-Clojure"
+        ["Eval Last Sexp" inf-clojure-eval-last-sexp t]
+        "--"
+        ["Load File..." inf-clojure-load-file t]
+        "--"
+        ["Show Arglist..." inf-clojure-show-arglist t]
+        ["Show Documentation for Var..." inf-clojure-show-var-documentation t]
+        ["Show Source for Var..." inf-clojure-show-var-source t]))
     map))
 
-(easy-menu-define
-  inf-clojure-menu
-  inf-clojure-mode-map
-  "Inferior Clojure Menu"
-  '("Inf-Clojure"
-    ["Eval Last Sexp" inf-clojure-eval-last-sexp t]
-    "--"
-    ["Load File..." inf-clojure-load-file t]
-    "--"
-    ["Show Arglist..." inf-clojure-show-arglist t]
-    ["Show Documentation for Var..." inf-clojure-show-var-documentation t]
-    ["Show Source for Var..." inf-clojure-show-var-source t]))
-
 (defvar inf-clojure-minor-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "\M-\C-x"  'inf-clojure-eval-defun)     ; Gnu convention



reply via email to

[Prev in Thread] Current Thread [Next in Thread]