mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-03 20:24:29 +00:00
Code Issues Releases Activity

Indent methods with keyword names correctly

Browse Source 
* lisp/progmodes/ruby-mode.el (ruby-smie--at-dot-call):
Rename to ruby-smie--before-method-name.  Now also check if we're
after a 'def' keyword.  Update both callers.
This commit is contained in:
Dmitry Gutov 2016-03-10 14:35:45 +02:00
parent 28532a91a9
commit 72c7438c4c
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/progmodes/ruby-mode.el
View File

@ -481,10 +481,14 @@ It is used when `ruby-encoding-magic-comment-style' is set to `custom'."
(memq (car (syntax-after pos)) '(7 15))
(looking-at "[([]\\|[-+!~:]\\(?:\\sw\\|\\s_\\)")))))
(defun ruby-smie--at-dot-call ()
(defun ruby-smie--before-method-name ()
;; Only need to be accurate when method has keyword name.
(and (eq ?w (char-syntax (following-char)))
(eq (char-before) ?.)
(not (eq (char-before (1- (point))) ?.))))
(or
(and
(eq (char-before) ?.)
(not (eq (char-before (1- (point))) ?.)))
(looking-back "^\\s *def\\s +\\=" (line-beginning-position)))))
(defun ruby-smie--forward-token ()
(let ((pos (point)))
@ -507,7 +511,7 @@ It is used when `ruby-encoding-magic-comment-style' is set to `custom'."
" @ ")
((looking-at "\\s\"") "") ;A string.
(t
(let ((dot (ruby-smie--at-dot-call))
(let ((dot (ruby-smie--before-method-name))
(tok (smie-default-forward-token)))
(when dot
(setq tok (concat "." tok)))
@ -551,7 +555,7 @@ It is used when `ruby-encoding-magic-comment-style' is set to `custom'."
" @ ")
(t
(let ((tok (smie-default-backward-token))
(dot (ruby-smie--at-dot-call)))
(dot (ruby-smie--before-method-name)))
(when dot
(setq tok (concat "." tok)))
(cond

3
test/indent/ruby.rb
View File

@ -203,6 +203,9 @@ class C
self.end
D.new.class
end
def begin
end
end
a = foo(j, k) -