From f73754c9234b53d0def73a3d0c79d58180b095b6 Mon Sep 17 00:00:00 2001 From: John Anthony Date: Thu, 24 Oct 2013 19:38:39 -0700 Subject: [PATCH] * lisp/progmodes/ruby-mode.el (ruby-mode-menu): Add a menu Fixes: debbugs:15600 --- lisp/ChangeLog | 4 +++- lisp/progmodes/ruby-mode.el | 16 ++++++++++++++++ 2 files changed, 19 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0bd907ce581..5bd6b2b9d1b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,8 @@ 2013-10-25 John Anthony - * progmodes/inf-lisp.el (inferior-lisp-menu): Add menu. (Bug#15599) + * progmodes/ruby-mode.el (ruby-mode-menu): Add a menu. (Bug#15600) + + * progmodes/inf-lisp.el (inferior-lisp-menu): Add a menu. (Bug#15599) 2013-10-25 Glenn Morris diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el index 5f553b94ba7..1ea6c3c7c99 100644 --- a/lisp/progmodes/ruby-mode.el +++ b/lisp/progmodes/ruby-mode.el @@ -160,6 +160,22 @@ This should only be called after matching against `ruby-here-doc-beg-re'." map) "Keymap used in Ruby mode.") +(easy-menu-define + ruby-mode-menu + ruby-mode-map + "Ruby Mode Menu" + '("Ruby" + ["Beginning Of Block" ruby-beginning-of-block t] + ["End Of Block" ruby-end-of-block t] + ["Toggle Block" ruby-toggle-block t] + "--" + ["Backward Sexp" ruby-backward-sexp + :active (not ruby-use-smie)] + ["Forward Sexp" ruby-forward-sexp + :active (not ruby-use-smie)] + ["Indent Sexp" ruby-indent-sexp + :active (not ruby-use-smie)])) + (defvar ruby-mode-syntax-table (let ((table (make-syntax-table))) (modify-syntax-entry ?\' "\"" table) -- 2.39.5