From: John Anthony Date: Fri, 25 Oct 2013 02:38:39 +0000 (-0700) Subject: * lisp/progmodes/ruby-mode.el (ruby-mode-menu): Add a menu X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1137 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f73754c9234b53d0def73a3d0c79d58180b095b6;p=emacs.git * lisp/progmodes/ruby-mode.el (ruby-mode-menu): Add a menu Fixes: debbugs:15600 --- 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)