Skip to content

Commit

Permalink
Fix previous botched commit for PR.
Browse files Browse the repository at this point in the history
- The function definition of er/ruby-backward-up was borked.
  • Loading branch information
Le Wang committed Jun 27, 2012
1 parent deafbb2 commit 2756147
Showing 1 changed file with 21 additions and 5 deletions.
26 changes: 21 additions & 5 deletions ruby-mode-expansions.el
Original file line number Diff line number Diff line change
Expand Up @@ -46,17 +46,33 @@
(concat ruby-block-end-re "\\|}"))

(defsubst er/ruby-skip-past-block-end ()
"ensure that point is at bol"
(if (looking-at-p er/ruby-skip-past-block-end)
(forward-line 1)
(forward-line 0)))

(defun er/ruby-backward-up ()
"a la paredit-backward-up"
"a la `paredit-backward-up'"
(interactive)
(forward-line 1)
(beginning-of-line)
(ruby-beginning-of-block)
(set-mark (point))
(loop do
(let ((orig-point (point))
progress-beg
progress-end)
(ruby-beginning-of-block)
(setq progress-beg (point))
(ruby-end-of-block)
(ruby-skip-past-block-end)
(setq progress-end (point))
(goto-char progress-beg)
(if (> progress-end orig-point)
(return)))))

;;; This command isn't used here explicitly, but it's symmetrical with
;;; `er/ruby-backward-up', and nifty for interactive use.
(defun er/ruby-forward-up ()
"a la `paredit-forward-up'"
(interactive)
(ruby-backward-up)
(ruby-end-of-block)
(ruby-skip-past-block-end))

Expand Down

0 comments on commit 2756147

Please sign in to comment.