[Emacs-diffs] trunk r115035: * lisp/progmodes/ruby-mode.el (ruby-smie--indent-to-stmt): Use

[Dmitry Gutov]

------------------------------------------------------------
revno: 115035
revision-id: address@hidden
parent: address@hidden
committer: Dmitry Gutov <address@hidden>
branch nick: trunk
timestamp: Fri 2013-11-08 13:22:52 +0200
message:
  * lisp/progmodes/ruby-mode.el (ruby-smie--indent-to-stmt): Use
  `smie-backward-sexp' with token argument.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/ruby-mode.el    
rubymode.el-20091113204419-o5vbwnq5f7feedwu-8804

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-08 09:31:50 +0000
+++ b/lisp/ChangeLog    2013-11-08 11:22:52 +0000
@@ -1,3 +1,8 @@
+2013-11-08  Dmitry Gutov  <address@hidden>
+
+       * progmodes/ruby-mode.el (ruby-smie--indent-to-stmt): Use
+       `smie-backward-sexp' with token argument.
+
 2013-11-08  Michael Albinus  <address@hidden>
 
        * net/tramp-sh.el (tramp-set-remote-path, tramp-get-ls-command):

=== modified file 'lisp/progmodes/ruby-mode.el'
--- a/lisp/progmodes/ruby-mode.el       2013-11-08 02:31:51 +0000
+++ b/lisp/progmodes/ruby-mode.el       2013-11-08 11:22:52 +0000
@@ -485,13 +485,8 @@
 
 (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)