mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

* lisp/progmodes/ruby-mode.el (ruby-end-of-defun)

Browse Source 
(ruby-beginning-of-defun): Simplify, allow indentation before
block beginning and end keywords.  Also, fix accidental change in the former.
This commit is contained in:
Dmitry Gutov 2012-09-07 08:36:20 +04:00
parent 0ba2d4b646
commit d81ceaaf7e
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2012-09-07 Dmitry Gutov <dgutov@yandex.ru>
* progmodes/ruby-mode.el (ruby-end-of-defun)
(ruby-beginning-of-defun): Simplify, allow indentation before
block beginning and end keywords.
2012-09-06 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-macs.el (cl--do-arglist): Understand _ on &key args

6
lisp/progmodes/ruby-mode.el
View File

@ -839,8 +839,8 @@ and `\\' when preceded by `?'."
With ARG, move backward multiple defuns. Negative ARG means
move forward."
(interactive "p")
(and (re-search-backward (concat "^\\(" ruby-block-beg-re "\\)\\b")
nil 'move (or arg 1))
(and (re-search-backward (concat "^\\s *\\(" ruby-block-beg-re "\\)\\_>")
nil t (or arg 1))
(beginning-of-line)))
(defun ruby-end-of-defun (&optional arg)
@ -848,7 +848,7 @@ move forward."
With ARG, move forward multiple defuns. Negative ARG means
move backward."
(interactive "p")
(and (re-search-forward ruby-indent-beg-re nil 'move (or arg 1))
(and (re-search-forward (concat "^\\s *" ruby-block-end-re) nil t (or arg 1))
(beginning-of-line))
(forward-line 1))