* lisp/progmodes/ruby-mode.el (ruby-smie--indent-to-stmt): Use

`smie-backward-sexp' with token argument.

1 files changed, 2 insertions, 7 deletions

diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el
index c3bafa47f70..9c733d68f2b 100644
--- a/lisp/progmodes/ruby-mode.el
+++ b/lisp/progmodes/ruby-mode.el
@@ -485,13 +485,8 @@ explicitly declared in magic comment."
 
 (defun ruby-smie--indent-to-stmt ()
   (save-excursion
-    (let (parent)
-      (while (not (or (eq (car parent) t)
-                      (equal (nth 2 parent) ";")))
-        (setq parent (let (smie--parent) (smie-indent--parent)))
-        (when (numberp (nth 1 parent))
-          (goto-char (nth 1 parent))))
-      (cons 'column (smie-indent-virtual)))))
+    (smie-backward-sexp ";")
+    (cons 'column (smie-indent-virtual))))
 
 (defun ruby-smie-rules (kind token)
   (pcase (cons kind token)