procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ruby-add-log-current-method): Improve performance at the expense

Browse source 
of accuracy.  `ruby-block-contains-point' is relatively slow, so
only use it for method and singleton class blocks.

* test/automated/ruby-mode-tests.el
(ruby-add-log-current-method-after-inner-class): Lower
expectations: move point inside a method, initially.
This commit is contained in:
Dmitry Gutov 2013-02-14 09:45:33 +04:00
parent 53ca88c478
commit 71a048c16b
4 changed files with 35 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -4,6 +4,9 @@
depth for unfinished percent literal. Not using it in the caller.
(ruby-move-to-block): Jump over multiline literals of all types,
ignoring code-looking contents inside them.
(ruby-add-log-current-method): Improve performance at the expense
of accuracy. `ruby-block-contains-point' is relatively slow, so
only use it for method and singleton class blocks.
2013-02-13 Michael Albinus <michael.albinus@gmx.de>

41
lisp/progmodes/ruby-mode.el
View file

@ -1073,29 +1073,33 @@ For example:
See `add-log-current-defun-function'."
(condition-case nil
(save-excursion
(let ((indent 0) mname mlist
(start (point))
(definition-re
(concat "^[ \t]*" ruby-defun-beg-re "[ \t]+"
"\\("
;; \\. and :: for class methods
"\\([A-Za-z_]" ruby-symbol-re "*\\|\\.\\|::" "\\)"
"+\\)")))
(let* ((indent 0) mname mlist
(start (point))
(make-definition-re
(lambda (re)
(concat "^[ \t]*" re "[ \t]+"
"\\("
;; \\. and :: for class methods
"\\([A-Za-z_]" ruby-symbol-re "*\\|\\.\\|::" "\\)"
"+\\)")))
(definition-re (funcall make-definition-re ruby-defun-beg-re))
(module-re (funcall make-definition-re "\\(class\\|module\\)")))
;; Get the current method definition (or class/module).
(when (re-search-backward definition-re nil t)
(goto-char (match-beginning 1))
(when (ruby-block-contains-point start)
;; We're inside the method, class or module.
(setq mname (match-string 2))
(unless (string-equal "def" (match-string 1))
(setq mlist (list mname) mname nil)))
(if (not (string-equal "def" (match-string 1)))
(setq mlist (list (match-string 2)))
;; We're inside the method. For classes and modules,
;; this check is skipped for performance.
(when (ruby-block-contains-point start)
(setq mname (match-string 2))))
(setq indent (current-column))
(beginning-of-line))
;; Walk up the class/module nesting.
(while (and (> indent 0)
(re-search-backward definition-re nil t))
(re-search-backward module-re nil t))
(goto-char (match-beginning 1))
(when (ruby-block-contains-point start)
(when (< (current-column) indent)
(setq mlist (cons (match-string 2) mlist))
(setq indent (current-column))
(beginning-of-line)))
@ -1121,6 +1125,13 @@ See `add-log-current-defun-function'."
(let ((in-singleton-class
(when (re-search-forward ruby-singleton-class-re start t)
(goto-char (match-beginning 0))
;; FIXME: Optimize it out, too?
;; This can be slow in a large file, but
;; unlike class/module declaration
;; indentations, method definitions can be
;; intermixed with these, and may or may not
;; be additionally indented after visibility
;; keywords.
(ruby-block-contains-point start))))
(setq mname (concat
(if in-singleton-class "." "#")

2
test/ChangeLog
View file

@ -4,6 +4,8 @@
(ruby-move-to-block-skips-percent-literal): Add depth-affecting
bits inside the examples.
(ruby-move-to-block-skips-heredoc): New test.
(ruby-add-log-current-method-after-inner-class): Lower
expectations: move point inside a method, initially.
2013-02-13 Dmitry Gutov <dgutov@yandex.ru>

6
test/automated/ruby-mode-tests.el
View file

@ -390,11 +390,13 @@ VALUES-PLIST is a list with alternating index and value elements."
| class C
| class D
| end
| _
| def foo
| _
| end
| end
|end")
(search-backward "_")
(should (string= (ruby-add-log-current-method) "M::C"))))
(should (string= (ruby-add-log-current-method) "M::C#foo"))))
(defvar ruby-block-test-example
(ruby-test-string