From e61845c1db42405938b9dca7dfff73b4ab6aa52a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 3 Nov 2013 17:56:03 -0500 Subject: * lisp/emacs-lisp/smie.el (smie-rule-parent): Always call smie-indent-virtual rather than only for hanging tokens. (smie--next-indent-change): New helper command. * lisp/progmodes/ruby-mode.el (ruby-smie--rule-parent-skip-assign): Remove. (ruby-smie-rules): Use smie-rule-parent instead. --- lisp/progmodes/ruby-mode.el | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) (limited to 'lisp/progmodes/ruby-mode.el') diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el index 36aa8eeae96..75c59ebe1fd 100644 --- a/lisp/progmodes/ruby-mode.el +++ b/lisp/progmodes/ruby-mode.el @@ -467,16 +467,6 @@ explicitly declared in magic comment." (t ";"))) (t tok))))))) -(defun ruby-smie--rule-parent-skip-assign () - (let* ((parent (smie-indent--parent)) - (tok (caddr parent))) - (if (and (stringp tok) (string-match-p "[+-*&|^]?=\\'" tok)) - (progn - (goto-char (cadr parent)) - (let (smie--parent) - (smie-rule-parent))) - (smie-rule-parent)))) - (defun ruby-smie-rules (kind token) (pcase (cons kind token) (`(:elem . basic) ruby-indent-level) @@ -499,7 +489,7 @@ explicitly declared in magic comment." ((and (equal token "{") (not (smie-rule-prev-p "(" "{" "[" "," "=>" "=" "return" ";"))) ;; Curly block opener. - (ruby-smie--rule-parent-skip-assign)) + (smie-rule-parent)) ((smie-rule-hanging-p) ;; Treat purely syntactic block-constructs as being part of their parent, ;; when the opening statement is hanging. @@ -508,7 +498,7 @@ explicitly declared in magic comment." (cons 'column (smie-indent-virtual))))) (`(:after . ,(or "=" "iuwu-mod")) 2) (`(:after . " @ ") (smie-rule-parent)) - (`(:before . "do") (ruby-smie--rule-parent-skip-assign)) + (`(:before . "do") (smie-rule-parent)) (`(,(or :before :after) . ".") (unless (smie-rule-parent-p ".") (smie-rule-parent ruby-indent-level))) -- cgit v1.2.3