* lisp/emacs-lisp/smie.el (smie-next-sexp): Refine last fix.

* lisp/progmodes/ruby-mode.el (ruby-smie-rules): Tweak handling of
open braces.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 972eb2fe2d756286030d75455a6de1470d0e659f..64fedd321917a6adfa27a0d4798162e5a015ebaa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2013-10-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * progmodes/ruby-mode.el (ruby-smie-rules): Tweak handling of
+       open braces.
+
+       * emacs-lisp/smie.el (smie-next-sexp): Refine last fix.
+
        * textmodes/css-mode.el (css-smie-rules): Fix indentation (bug#15467).
        (css-mode): Use electric-indent-chars.
 

diff --git a/lisp/emacs-lisp/smie.el b/lisp/emacs-lisp/smie.el
index e35cb4a8fc2ff4f8bb8b0d195448a129733835fc..32dcb2ed7443fe50f0eeb8f85a118938b5ab1ced 100644 (file)
--- a/lisp/emacs-lisp/smie.el
+++ b/lisp/emacs-lisp/smie.el
@@ -709,11 +709,13 @@ Possible return values:
                 (condition-case err
                     (progn (funcall next-sexp 1) nil)
                   (scan-error
-                   (let ((pos (nth 2 err)))
+                   (let ((epos (nth 2 err)))
+                     (goto-char pos)
                      (throw 'return
-                            (list t pos
+                            (list t epos
                                   (buffer-substring-no-properties
-                                   pos (+ pos (if (< (point) pos) -1 1))))))))
+                                   epos
+                                   (+ epos (if (< (point) epos) -1 1))))))))
                 (if (eq pos (point))
                     ;; We did not move, so let's abort the loop.
                     (throw 'return (list t (point))))))

diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el
index b8c24e8a6902ba05d3877a2b373c7dbca809bbe7..6497fb6b7d078926154819c22cc7bdb89fe83cbb 100644 (file)
--- a/lisp/progmodes/ruby-mode.el
+++ b/lisp/progmodes/ruby-mode.el
@@ -414,7 +414,8 @@ Also ignores spaces after parenthesis when 'space."
     (`(:before . ,(or `"(" `"[" `"{"))
      ;; Treat purely syntactic block-constructs as being part of their parent,
      ;; when the opening statement is hanging.
-     (if (smie-rule-hanging-p) (smie-rule-parent)))
+     (when (smie-rule-hanging-p)
+       (smie-backward-sexp 'halfsexp) (smie-indent-virtual)))
     (`(:after . "=") 2)
     (`(:before . "do")
      (when (or (smie-rule-hanging-p)